Option Explicit
'取驗(yàn)證碼+自動(dòng)填表例子
'
'窗體上添加一個(gè)WebBrowser1,Picture1,Timer1
'
'BY 嗷嗷叫的老馬
'"http://www.m5home.com

Dim oHTML As Object

Private Sub Form_Load()
Timer1.Enabled = False
WebBrowser1.Navigate "http://www.aocdisplay.com.cn/activity/detail.asp?id=39268"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If URL = "http://www.aocdisplay.com.cn/activity/vote.asp?id=39268&sid=a744f808e9c4759586da57f92bfeacbd&" Then
Set oHTML = pDisp
Timer1.Interval = 1000 '等小窗口驗(yàn)證碼刷新后再提取
Timer1.Enabled = True
End If
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = False

Dim oTmp As Object, CR As Object

Set oTmp = oHTML.Document.getElementById("Uid") '用戶名
oTmp.Value = "asdfasdf"

Set oTmp = oHTML.Document.getElementById("Pwd") '密碼
oTmp.Value = "asdfasdf"

Set oTmp = oHTML.Document.getElementById("Vcd") '驗(yàn)證碼
oTmp.Value = "asdfasdf"

Set oTmp = oHTML.Document.getElementById("validatorImage") '得到驗(yàn)證碼

Set CR = oHTML.Document.body.createControlRange() '設(shè)置選區(qū)

CR.Add oTmp '添加驗(yàn)證碼圖片對象到選區(qū)
CR.execCommand ("Copy") '復(fù)制
Set Picture1.Picture = Clipboard.GetData() '粘貼過去
End Sub