Private Sub btnLogin_Click (sender As Object, e As EventArgs) Handles btnLogin.Click
Dim h As New Http
//Login ausführen
textboxQuelltext.Text = h.GetResponse("http://www.elitepvpers.com/forum/login.php?do=login", "vb_login_username=EPVP_USERNAME&vb_login_password=EPVP_PASSWORT&cookieuser=1&s=&securitytoken=guest&do=login&vb_login_md5password=&vb_login_md5password_utf=")
//Hauptseite aufrufen
textboxQuelltext.Text = h.GetResponse("http://www.elitepvpers.com/forum/")
//prüfen, ob Login erfolgreich war
If textboxQuelltext.Text.Contains("Log Out")
//eingeloggt
Else
//nicht eingeloggt
End If
End Sub
Ich kann die Grundlagen^^ Naja em nur i wie gibt es nur eine Textbox (textboxQuelltext) die PW + ID beinhaltet?!Quote:
Bitte lieber erst Grundlagen lernen, bevor du an so einem Thema arbeitest. Das ist eine ganz normale Methode, die aufgerufen wird, wenn der Button "btnLogin" geklickt wurde.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim h As New Http
'Posten ausführen
textboxQuelltext.Text = h.GetResponse("http://www.elitepvpers.com/forum/newreply.php?do=postreply&t=1784743", "message=bump%3Cbr%3E&wysiwyg=1&styleid=0&signature=1&fromquickreply=1&s=&securitytoken=1332659524-11093eb9d98690c9630171388c53caf8df179273&do=postreply&t=1639683&p=who+cares&specifiedpost=0&parseurl=1&loggedinuser=4048456&sbutton=Antworten")
textboxQuelltext.Text = h.GetResponse("http://www.elitepvpers.com/forum/")
'prüfen, ob Post erfolgreich war
If textboxQuelltext.Text.Contains("bump") Then
MessageBox.Show("Post erfolgreich!")
'Erfolgreich --> Sonst ~ Else
Else
MessageBox.Show("Post nicht erfolgreich!")
End If
End Sub
rivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim h As New Http
'Posten
textboxQuelltext.Text = h.GetResponse("http://www.elitepvpers.com/forum/elite-gold-trading/1639683-vk-spammer-mit-hotkeys-hot.html", "message=bump%3Cbr%3E&wysiwyg=1&styleid=0&signature=1&fromquickreply=1&s=&securitytoken=(textboxQuelltext.Text)&do=postreply&t=1639683&p=who+cares&specifiedpost=0&parseurl=1&loggedinuser=4048456&sbutton=Antworten")
textboxQuelltext.Text = h.GetResponse("http://www.elitepvpers.com/forum/elite-gold-trading/1639683-vk-spammer-mit-hotkeys-hot.html")
'prüfen, ob Post erfolgreich war
If textboxQuelltext.Text.Contains("bump") Then
MessageBox.Show("Post erfolgreich!")
'Erfolgreich
Else
MessageBox.Show("Post nicht erfolgreich!")
End If
End Sub
Somit verlierst du alle Cookies und bist nicht mehr eingeloggt.Quote:
Dim h As New Http
Dim h As New Http
Private Sub Button1_Click...//login
h.GetResponse...
End Sub
Private Sub Button2_Click...//post
h.GetResponse...
End Sub