需要text1、text2、 Command1、WebBrowser1物件
===========================================
在視窗的地方寫入
Private Sub Form_Load()
WebBrowser1.Navigate ("樂豆的網址")
End Sub
===========================================
實際程式碼
Private Sub Form_Load()
WebBrowser1.Navigate ("
http://tw.beanfun.com/")
End Sub
2014-06-07 21:11:01 補充:
然後對著按鈕雙擊2下後寫入
Private Sub Command1_Click()
On Error Resume Next
WebBrowser1.Document.GetElementById("email").Value = Text1.Text
WebBrowser1.Document.GetElementById("pass").Value = Text2.Text
WebBrowser1.Document.GetElementById("loginbutton").Click
End Sub
2014-06-07 21:12:12 補充:
Text1是給使用者輸入beafun的帳號
Text2是給使用者輸入beafun的密碼
2014-06-07 21:13:22 補充:
希望以上答案對你有幫助^_^
FaceBook搜尋:RC笠小誠
2014-06-07 21:17:44 補充:
如果有錯誤聯繫本人= =
2014-06-08 16:26:06 補充:
這個我就不懂了= =!!
因為隨機的話....那請高手回答搂^_^
2014-06-08 16:27:24 補充:
WebBrowser1這個東西喔
======================================================
專案 --> 設定使用原件 --> Microsoft Internet Controls --> 套用
{ 出現一個元件叫 WebBrowser }
======================================================