Public Class Form1
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
WebBrowser2.document.GetElementById("username").SetAttribute("value", TextBox1.Text)
WebBrowser2.document.GetElementById("password").SetAttribute("value", TextBox2.Text)
Dim Elements As HtmlElementCollection = WebBrowser2.document.All
For Each webpageelement As HtmlElement In Elements
If webpageelement.GetAttribute("value") = "Login" Then
webpageelement.InvokeMember("click")
End If
Next
End Sub
Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
WebBrowser2.document.window.Domwindow.execscript("alert('Hello World!');", "Javascript")
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
For Each webpageelement As HtmlElement
webpageelement.GetAttribute("value") = "youtubeiv")Then
webpageelement.InvokeMember("click")
Next
End Sub
End Class
I get errors saying this doesn't work
Page 1 of 11 Replies - 322 Views - Last Post: 18 January 2013 - 05:30 PM
#1
I get errors saying this doesn't work
Posted 18 January 2013 - 05:12 PM
Replies To: I get errors saying this doesn't work
#2
Re: I get errors saying this doesn't work
Posted 18 January 2013 - 05:30 PM
You already have a thread open for this topic (two, actually). Do not post your questions multiple times! Use your existing thread if you want to continue discussing this topic.
Page 1 of 1
|
|

New Topic/Question
This topic is locked


MultiQuote





|