[VB.NET] HttpWebRequest - Tutorial

[Train™]

Originally Posted by xKraizy

WebBrowser? Ich benutze die nicht weil die mist sind und was soll man da für ein Tutorial machen?

ja du hast recht^^

aber was meinst du mit "textboxQuelltext" ?

[Kraizy​]

Das ist nur ein Beispiel..kann man ja benutzen um in der TextBox den Seitenquelltext anzeigen zu lassen. Musst du natürlich nicht machen.

[DasSchwarzeT]

Ich weiß halt nich wo das

PHP Code:

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 


hinkommt..

[Kraizy​]

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.

[DasSchwarzeT]

Originally Posted by xKraizy

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.

Ich kann die Grundlagen^^ Naja em nur i wie gibt es nur eine Textbox (textboxQuelltext) die PW + ID beinhaltet?!

ich blick das irgendwie nicht :O
Kannste nicht vllt ein Projekt hochladen wo das drin ist?

[Kraizy​]

Am Ende des Beitrags ist die gesamte Source, die man braucht, um sich einzuloggen. Wenn du das trotzdem nicht schaffst, dann kannst du die Grundlagen nicht, sry ist aber so. Und in diesem Thread geht es um WebRequests, nicht wie man irgendwelche Buttons auf die Form klatscht.

['xLeatz.]

Also erstmal Super Tutorial.
Nur etz komm ich nicht weiter ich möchte das es einen Post macht, ich habes fast genau so wie beim Einloggen gemacht. Die neuen Scores mit Firefox gesucht aber es macht keinen Post.

[Kraizy​]

Dein Code?

['xLeatz.]

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

Ich muss auf die Letzte Seite vom Thread dann schauen ob dort ein Bump steht und wenn das erfolgreich ist sollte es gehen aber ka es postet nicht

[Kraizy​]

Du loggst dich gar nicht ein..? Außerdem, warum rufst du die Hauptseite auf nachdem du versuchst einen Beitrag zu erstellen?

['xLeatz.]

Doch ich logg mich schon ein das geht auch. Das ist nur der Button2 mit der Belegung zum Pushen!

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

[Kraizy​]

Durch den Button2-Klick machst du aber eine neue Instanz der Http-Klasse:

Dim h As New Http

Somit verlierst du alle Cookies und bist nicht mehr eingeloggt.

['xLeatz.]

Stimmt danke für die Hilfe!

€: Hab keine Ahnung wie ich das Fixxen kann

[Kraizy​]

Was genau? Dass du danach noch eingeloggt bist? Erstell die Variable außerhalb des Klicks, also:

PHP Code:

Dim h As New Http

Private Sub Button1_Click...//login
   h.GetResponse...
End Sub

Private Sub Button2_Click...//post
   h.GetResponse...
End Sub 


[airsonic]

Hallo ich habe mir dein Tutorial angesehen und gelesen
du hast es auch wunderbar beschrieben aber ich verstehe nicht wo man seinen Namen und sein PW eingeben muss um sich einzuloggen. Ich hoffe das du mir das erklären kannst weil ich noch nicht soviel Erfahrung mit VB und anderen Sprachen hab.