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

王朝vb·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

回答一个网友的问题,假设登录页面的HTML代码如下:

?testPage

?

???

????? 用户:

?????

????? ?

?????

???

???

????? 密码:

?????

????? ?

?????

???

?

很简单的页面,在上面有一个登录的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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航