灯火互联
管理员
管理员
  • 注册日期2011-07-27
  • 发帖数41778
  • QQ
  • 火币41290枚
  • 粉丝1086
  • 关注100
  • 终身成就奖
  • 最爱沙发
  • 忠实会员
  • 灌水天才奖
  • 贴图大师奖
  • 原创先锋奖
  • 特殊贡献奖
  • 宣传大使奖
  • 优秀斑竹奖
  • 社区明星
阅读:7144回复:0

VB填充IE上的输入框并提交

楼主#
更多 发布于:2014-06-20 09:52
 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>
 
 
很简单的页面,在上面有一个登录的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

喜欢0 评分0
游客

返回顶部