日期:2011-11-10  浏览次数:20521 次

回答一个网友的问题,假设登录页面的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