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

【html源码 滑动】【linux semtake源码】【弹球游戏源码】seckill 源码

2024-12-29 05:28:36 来源：商城源码怎样部署到云空间

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>

       很简单的页面，在上面有一个登录的html源码 滑动 Form，一个用户名输入框 LoginName，linux semtake源码一个密码输入框LoginPassword 和一个提交按钮 clickme，弹球游戏源码然后用 IE 打开这个页面，printf()函数源码注意页面的黑马发现源码 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

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

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