NewBeanfun Webbrowser Login Source

最近好懶惰，好久沒碰了  (茶
剛好有人在問就把他發出來吧～ 高手請飄過～
其實某個論壇曾經有發過，不過那論壇不見了  (呵呵
其實自從改 NewBeanfun 之後反而在某些部分更容易取得網頁內容，這只是一些 Webbrowser 的操作手法，沒有甚麼難的
如果想用更有效率的登入請自行研究 Http Request 那個比較麻煩...

直接貼源碼吧～

VB6 Win7 x86 編譯通過，不過這邊只貼重點不貼完整XD

登入：

WebB.Document.Frames.ifmForm1.Document.GetElementById("t_AccountID").value = txt_User.Text '帳號
WebB.Document.Frames.ifmForm1.Document.GetElementById("t_Password").value = txt_Pass.Text '密碼
WebB.Document.Frames.ifmForm1.Document.GetElementById("CodeTextBox").value = txt_Check.Text '驗證碼
WebB.Document.Frames.ifmForm1.Document.GetElementById("btn_login").Click '確定

取得驗證碼圖片：

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")) '複製驗證碼圖片
Clipboard.Clear '清除剪貼簿內容
ctrlRange.execCommand ("Copy") '複製
CheckPic.Picture = Clipboard.GetData 'Picturebox 取得剪貼簿圖片
Clipboard.Clear '清除剪貼簿內容

換一張驗證碼：

WebB.Document.Frames.ifmForm1.Document.GetElementById("c_login_idpass_form_samplecaptcha_ReloadLink").Click

大致上是這樣囉，不過細節請自行調教，如果有自動登入的興趣歡迎研究 新楓之谷洋蔥 的登入流程。