回复 3楼 风吹过b
版主。老大、
我能用IE填充点击按钮。可是非IE浏览器该怎么填充点击按钮?非IE浏览器怎么引用对象的?
Dim IEList As New ShellWindows
Dim browser
Dim Doc
On Error Resume Next
'遍历当前地浏览器窗口
For Each browser In IEList
'找到需要地IE窗口
If browser.Document.Title = "W彩票" Then
'获得浏览器地文档对象
Set Doc = browser.Document
'填写用户名字段
'Doc.body.All("login").Value = "eddie"
'填写密码字段
'Doc.body.All("pass").Value = "123456"
'Doc.body.All("authnum").Value = "63217"
'提交authnum
'Doc.body.All("send-button").Click
End If
Next