皮皮网
    位置：
  • 首页
  • 热点
  • 正文

【涨停变色指标源码免费】【板块里票数源码】【幸运28源码2018】seckill 源码

2024-11-18 23:38:53 来源：互换红包源码

1.VB如何访问某一网页

seckill 源码

VB如何访问某一网页

       HTML 源码:

        <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

        <html>

        <head>

        <title>testPage</title>

        </head>

        <body>

        <FORM name=chh method = "POST" action = "login.asp">

        <table width="%" border="0" cellspacing="0" cellpadding="2">

        <tr>

        <td width="%" align="center">用户：</td>

        <td width="%" align="left">

        <input name="LoginName" type="text" id="LoginName" size="">

        </td>

        </tr>

        <tr>

        <td width="%" align="center">密码：</td>

        <td width="%" align="left">

        <input name="LoginPassword" type="password" id="LoginPassword" size="">

        </td>

        </tr>

        </table>

        <input type = "submit" id = "clickme" value = "提交">

        </FORM>

        </body>

        </html>

       很简单的页面，在上面有一个登录的涨停变色指标源码免费 Form，一个用户名输入框 LoginName，板块里票数源码一个密码输入框LoginPassword 和一个提交按钮 clickme，幸运28源码2018然后用 IE 打开这个页面，破解群验证源码注意页面的彩虹博客网站源码 title 设置为 testPage。然后打开 VBA，在工程中引用 Microsoft internet controls：

       Private Sub Command1_Click()

        Dim IEList As New ShellWindows

        Dim browser

        Dim Doc

        On Error Resume Next

        '遍历当前地浏览器窗口

        For Each browser In IEList

        '找到需要地IE窗口

        If browser.Document.Title = "testPage" Then

        '获得浏览器地文档对象

        Set Doc = browser.Document

        '填写用户名字段

        Doc.body.All("LoginName").Value = "eddie"

        '填写密码字段

        Doc.body.All("LoginPassword").Value = ""

        '提交

        Doc.body.All("clickme").Click

        End If

        Next

        End Sub

       自己参考一下，应该可以搞定....

相关文章
今日关注
热点快讯