[Pyt] Pomocy ! :D

[ByczekXde]

Zrobiłem programik logujący na stronę darkorbit.com

I po kliknięciu Login loguję się cały czas w kółko np 100 x

Pomocy !!

 

Kod :

 

 

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    WebBrowser1.Navigate("www.darkorbit.com")

   End Sub

   Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
    WebBrowser1.document.GetElementById("loginForm_default_input_username").SetAttribute("Value", TextBox1.Text)
    WebBrowser1.document.GetElementById("loginForm_default_input_password").SetAttribute("Value", TextBox2.Text)
    WebBrowser1.document.GetElementById("loginForm_default_loginButton").InvokeMember("click")
   End Sub

   Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

   End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

   End Sub

   Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

   End Sub

   Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

   End Sub

   Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

   End Sub

   Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

   End Sub

   Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

   End Sub
End Class