Dim part As Boolean = False
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("
https://login.yahoo.com/config/login_verify2?.intl=us&.src=ym")
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
If part = False Then
WebBrowser1.document.GetElementById("username").SetAttribute("value", "myYAHOOusername")
WebBrowser1.document.GetElementById("passwd").SetAttribute("value", "myYAHOOpassword")
WebBrowser1.document.GetElementById(".save").InvokeMember("click")
part = True
End If
End Sub
-------------------------------------------------------------------
จากโค๊ดชุดนี้นำไปดัดแปลงสามารถล๊อกอินเว็บที่ต้องการได้โดยอัตโนมัติ แต่ติดปัญหาคือ หน้าเว็บที่เปิดบางเว็บจะฟ้องว่า "เบราเซอร์ไม่รองรับทำงาน" เลยอยากทราบว่า หากเราให้คอนโทรล webbrowser มีค่า default เป็น chrome หรือ firefox จะดัดแปลงโคดอย่างไรครับ
ผมอ้างอิงตรงนี้ WebBrowser1.document.GetElementById("username").SetAttribute("value", "myYAHOOusername") ไม่เป็นน่ะครับ
vb.net ใช้งาน คอนโทรล webbrowser เพื่อเปิดเว็บโดย chrome หรืออื่นๆ
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("https://login.yahoo.com/config/login_verify2?.intl=us&.src=ym")
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
If part = False Then
WebBrowser1.document.GetElementById("username").SetAttribute("value", "myYAHOOusername")
WebBrowser1.document.GetElementById("passwd").SetAttribute("value", "myYAHOOpassword")
WebBrowser1.document.GetElementById(".save").InvokeMember("click")
part = True
End If
End Sub
-------------------------------------------------------------------
จากโค๊ดชุดนี้นำไปดัดแปลงสามารถล๊อกอินเว็บที่ต้องการได้โดยอัตโนมัติ แต่ติดปัญหาคือ หน้าเว็บที่เปิดบางเว็บจะฟ้องว่า "เบราเซอร์ไม่รองรับทำงาน" เลยอยากทราบว่า หากเราให้คอนโทรล webbrowser มีค่า default เป็น chrome หรือ firefox จะดัดแปลงโคดอย่างไรครับ
ผมอ้างอิงตรงนี้ WebBrowser1.document.GetElementById("username").SetAttribute("value", "myYAHOOusername") ไม่เป็นน่ะครับ