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

【东西源码是什么】【短线诸葛源码选股器】【电脑源码锁死怎么解决】seckill 源码

2024-12-23 01:44:03 来源：网站源码商品侵权

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，电脑源码锁死怎么解决然后用 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

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

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