|
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
（编辑：李大同）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
