kann jemand bitte meinen HttpWebRequest code korrigieren ? [VB.NET 2010]

[.Lorex]

hi Comunity,

ich möchte eig. nicht viel reden weil der Titel sagt eig. alles

ich hatte vor mich über httpwebRequest auf epvp anzumelden nur gibt er mir immer in einer if anfrage "nicht eingeloggt" wieder.
und ich weiß wirklich nicht wo der fehler liegt

Code:

 Spoiler

Option Strict On
Imports System.Net
Imports System.Text
Imports System.IO

Public Class Form1
    Dim cookieCon As New CookieContainer
    Private Sub btnstart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnstart.Click
        Dim request As HttpWebRequest = DirectCast(HttpWebRequest.Create("http://www.elitepvpers.com/forum/login.php?do=login"), HttpWebRequest)
        request.Method = "Post"
        request.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:10.0.2) Gecko/20100101 Firefox/10.0.2"
        request.ContentType = "application/x-www-form-urlencoded"
        Dim post As String = "vb_login_username=[meinbenutzername]&vb_login_password=[meinpasswort]&cookieuser=1&s=&securitytoken=guest&do=login&vb_login_md5password=&vb_login_md5password_utf="
        Dim byteArr() As Byte = Encoding.UTF8.GetBytes(post)
        request.ContentLength = byteArr.Length
        Dim dataStream As Stream = request.GetRequestStream()
        dataStream.Write(byteArr, 0, byteArr.Length)
        Dim response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
        Dim reader As New StreamReader(response.GetResponseStream())
        Dim seitenQuelltext As String = reader.ReadToEnd()
        request.CookieContainer = cookieCon

        Dim request2 As HttpWebRequest = DirectCast(HttpWebRequest.Create("http://www.elitepvpers.com/forum/"), HttpWebRequest)
        request2.Method = "Get"
        Dim response2 As HttpWebResponse = DirectCast(request2.GetResponse(), HttpWebResponse)
        Dim reader2 As New StreamReader(response2.GetResponseStream())
        Dim seitenQuelltext2 As String = reader2.ReadToEnd()
        request2.CookieContainer = cookieCon

        If seitenQuelltext2.Contains("Abmelden") Then
            MsgBox("eingeloggt")
        Else
            MsgBox("nicht eingeloggt")
        End If
    End Sub
End Class

da es bestimmt ein richtig einfacher Fehler ist kriegt der erste 1 E*Gold was ich angemessen finde

[Adroxxx]

#moved

[boxxiebabee]

Was mir jetzt mal schnell auffällt wenn ichs sehe:
Den POST kannst du kürzen:
"vb_login_username=" + USERNAME + "&vb_login_password=" + PASSWORD + "&do=login"

Und das du dir dann ne ganze Seite runterlädst nur um zu sehen ob die Seite "Abmelden" beinhaltet ist recht ineffizient. Außerdem was machst du wenn in der Shoutbox oder in einem Thread Titel das Wort vorkommt?

Du solltest lieber das Cookie auslesen welches erzeugt wird, da steht auch drinnen ob du eingeloggt bist oder nicht :>

Ansonsten hier mal 2 Klassen, für post & get (wurde nur schnell konvertiert, musst testen ob das so geht):

[Kraizy​]

PHP Code:

Option Strict On
Option Explicit On

Imports System.IO
Imports System.Net
Imports System.Text

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With New Http
            Dim post As String = "vb_login_username=[meinbenutzername]&vb_login_password=[meinpasswort]&cookieuser=1&s=&securitytoken=guest&do=login&vb_login_md5password=&vb_login_md5password_utf="
            Dim html As String = .GetResponse("http://www.elitepvpers.com/forum/login.php?do=login", post)
            html = .GetResponse("http://www.elitepvpers.com/forum/")

            If html.Contains("Log Out") Then
                MsgBox("eingeloggt")
            End If
        End With
    End Sub
End Class

Public Class Http
    Dim cookieCon As New CookieContainer
    Dim request As HttpWebRequest
    Dim response As HttpWebResponse

    Public Function GetResponse(ByVal url As String) As String
        request = CType(HttpWebRequest.Create(url), HttpWebRequest)
        request.CookieContainer = cookieCon
        response = CType(request.GetResponse(), HttpWebResponse)

        Return New StreamReader(response.GetResponseStream()).ReadToEnd()
    End Function

    Public Function GetResponse(ByVal url As String, ByVal post As String) As String
        request = CType(HttpWebRequest.Create(url), HttpWebRequest)
        request.Method = "POST"
        request.CookieContainer = cookieCon
        request.UserAgent = "Mozilla/5.0 (Windows NT 6.1; rv:8.0) Gecko/20100101 Firefox/8.0"
        request.ContentType = "application/x-www-form-urlencoded"

        Dim byteArr() As Byte = Encoding.UTF8.GetBytes(post)
        request.ContentLength = byteArr.Length

        Dim dataStream As Stream = request.GetRequestStream()
        dataStream.Write(byteArr, 0, byteArr.Length)

        response = CType(request.GetResponse(), HttpWebResponse)

        Return New StreamReader(response.GetResponseStream()).ReadToEnd()
    End Function
End Class 


[.Lorex]

Originally Posted by xKraizy

PHP Code:

Option Strict On
Option Explicit On

Imports System.IO
Imports System.Net
Imports System.Text

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With New Http
            Dim post As String = "vb_login_username=[meinbenutzername]&vb_login_password=[meinpasswort]&cookieuser=1&s=&securitytoken=guest&do=login&vb_login_md5password=&vb_login_md5password_utf="
            Dim html As String = .GetResponse("http://www.elitepvpers.com/forum/login.php?do=login", post)
            html = .GetResponse("http://www.elitepvpers.com/forum/")

            If html.Contains("Log Out") Then
                MsgBox("eingeloggt")
            End If
        End With
    End Sub
End Class

Public Class Http
    Dim cookieCon As New CookieContainer
    Dim request As HttpWebRequest
    Dim response As HttpWebResponse

    Public Function GetResponse(ByVal url As String) As String
        request = CType(HttpWebRequest.Create(url), HttpWebRequest)
        request.CookieContainer = cookieCon
        response = CType(request.GetResponse(), HttpWebResponse)

        Return New StreamReader(response.GetResponseStream()).ReadToEnd()
    End Function

    Public Function GetResponse(ByVal url As String, ByVal post As String) As String
        request = CType(HttpWebRequest.Create(url), HttpWebRequest)
        request.Method = "POST"
        request.CookieContainer = cookieCon
        request.UserAgent = "Mozilla/5.0 (Windows NT 6.1; rv:8.0) Gecko/20100101 Firefox/8.0"
        request.ContentType = "application/x-www-form-urlencoded"

        Dim byteArr() As Byte = Encoding.UTF8.GetBytes(post)
        request.ContentLength = byteArr.Length

        Dim dataStream As Stream = request.GetRequestStream()
        dataStream.Write(byteArr, 0, byteArr.Length)

        response = CType(request.GetResponse(), HttpWebResponse)

        Return New StreamReader(response.GetResponseStream()).ReadToEnd()
    End Function
End Class 


danke euch beiden , ich habe es jetzt geschafft dank euch

[Kraizy​]

Joa..STRG+A, STRG+C & STRG+V müsste heutzutage eig jeder schaffen.