[零基礎][06] vb6寫楓之谷外掛 – BeanFun登入篇

相信對於WebBrowser稍微有些認識的讀者來說，用它來填寫網頁上的內容、點擊網頁上的元素並不是一件太難的事，但拿來應用在樂豆的網頁上就不同了，即使使用Google Chrome的檢查元素能夠得知帳號輸入框的ID是「t_AccountID」，一般直接針對ID尋找的寫法卻並不能行，原因在於它被包在一個框架（Frame）內。既然我們偉大的洋蔥大神又大方的開源了，就讓我們看看大神的Level和小弟相距多遠吧<(_ _)>。

On Error GoTo Er '如果出現錯誤則跳躍到Er標籤
If Len(txt_User.Text) = 0 Or Len(txt_Pass.Text) = 0 Or Len(txt_Check.Text) = 0 Then Exit Sub

With WebB.Document.Frames.ifmForm1.Document
.GetElementById("t_AccountID").value = txt_User.Text
.GetElementById("t_Password").value = txt_Pass.Text
.GetElementById("CodeTextBox").value = txt_Check.Text
.GetElementById("btn_login").Click
End With
txt_Check.Text = vbNullString

Do: DoEvents: Loop While WebB.Busy

If InStr(WebB.Document.Frames.ifmForm1.Document.GetElementById("DivMsgBoxContainer").innertext, "錯誤") Then
MsgBox "帳密或驗證碼錯誤", vbInformation, "ERROR"
WebB.Document.Frames.ifmForm1.Document.GetElementById("MsgBoxOkBtn").Click
Exit Sub
End If

Er:
WebB.Navigate "http://tw.new.beanfun.com/game_zone/default.aspx"
（只做了一行的註解…）
然後我們來看看所需要的元件：

• txt_User：使用者輸入帳號的文字框
• txt_Pass：使用者輸入密碼的文字框
• txt_Check:：使用者輸入驗證碼的文字框

Private Sub GetImage()
On Error GoTo Er
Dim ctrlRange As Object
Set ctrlRange = WebB.Document.Frames.ifmForm1.Document.body.createControlRange()
ctrlRange.Add (WebB.Document.Frames.ifmForm1.Document.GetElementById("c_login_idpass_form_samplecaptcha_CaptchaImage"))
'ctrlRange.Add (WebB.Document.Frames.ifmForm1.Document.images(1))
ctrlRange.execCommand ("Copy")
Delay (1) '修正剪貼簿無法開啟問題
CheckPic.Picture = Clipboard.GetData
Clipboard.Clear
Er:
End Sub