• 注册
  • 关于作者
    个人说明:他太懒了,什么都没有写
    关注 0 粉丝 0 喜欢 0 内容 238
    雅安
    聊天 送礼
    • 查看作者
    • VB填充IE上的输入框并提交

      VB填充IE上的输入框并提交
      假设登录页面的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="100%" border="0" cellspacing="0" cellpadding="2">
          <tr>
            <td width="31%" align="center">用户:</td>
            <td width="69%" align="left">
             <input name="LoginName" type="text" id="LoginName" size="12">
            </td>
          </tr>
          <tr>
            <td width="31%" align="center">密码:</td>
            <td width="69%" align="left">
             <input name="LoginPassword" type="password" id="LoginPassword" size="12">
            </td>
          </tr>
        </table>
      <input type = "submit" id = "clickme" value = "提交">
      </FORM>
      </body>
      </html>

      利用Visual Basic操作XML数据

      VB学习

      很简单的页面,在上面有一个登录的Form,一个用户名输入框LoginName,一个密码输入框LoginPassword和一个提交按钮clickme

       

      然后用IE打开这个页面,注意页面的title设置为testPage。

       

      然后打开VB,在工程中引用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 = "123456"
                 
                  '提交
                  Doc.body.All("clickme").Click
              End If
          Next
      End Sub

      利用Visual Basic操作XML数据

      VB学习

    • 0
    • 0
    • 0
    • 66
    • 单栏布局 侧栏位置: