[Vb] OGame login. Wie mache ich weiter?

[Ludder231]

Hi,

ich wollte mir zum üben nen OGame login erstellen.

Nun mein code ist bis jetzt so.

 Spoiler

PHP Code:

Private Sub _einloggen()

        '  Dim Request As HttpWebRequest = CType(WebRequest.Create(""), HttpWebRequest)
        Dim Request As HttpWebRequest = CType(WebRequest.Create("http://ogame.de/main/login"), HttpWebRequest)
        Dim tempcookie As New CookieContainer
        Request.Method = "POST"               
        Request.ContentType = "application/x-www-form-urlencoded"

        Dim Post As String = "kid=&uni=uni101.ogame.de&login=OBot&pass=*****"
        Dim byteArray() As Byte = Encoding.UTF8.GetBytes(Post)
        Request.ContentLength = byteArray.Length
        Dim DataStream As Stream = Request.GetRequestStream()
        DataStream.Write(byteArray, 0, byteArray.Length)
        DataStream.Close()

        Dim Response As HttpWebResponse = Request.GetResponse()
        DataStream = Response.GetResponseStream()
        Dim reader As New StreamReader(DataStream)
        Dim ServerResponse As String = reader.ReadToEnd()
        reader.Close()
        DataStream.Close()
        Response.Close()

      
        File.WriteAllText("C:\Users\Luca\Desktop\response.html", ServerResponse)

End Sub 


so weit so gut. Bloß er logt sich noch nicht ein, was ich glaube verstehe, weil mir ein GET befehl fehlt.

PHP Code:

http://uni101.ogame.de/game/reg/login2.php?login=OBot&pass=*****&kid=&v=2 


Aber wie mach ich das jetzt? Ich finde im Internet wie man das mit POST macht aber nie einfach nur GET. Könnt ihr mir helfen?

MfG Ludder231

[tolio]

Hier aus meinem alten ogame bot projekt, die funktion webrpost ist nen ganz normaler webrequests-post und darfste dir selber basteln

    Public Function LogIn(ByVal sUser As String, ByVal sPwd As String, ByVal sUniUrl As String) As Boolean
        Try
            Dim sessionRequest As HttpWebRequest = CType(WebRequest.Create("http://ogame.de"), HttpWebRequest)

            sessionRequest.CookieContainer = New CookieContainer()
            cookies = sessionRequest.CookieContainer
            sessionRequest.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.8.1.7) Gecko/20070914 Firefox/2.0.0.7"
            Dim sessionResponse As HttpWebResponse = DirectCast(sessionRequest.GetResponse(), HttpWebResponse)
            Dim checkReader As New StreamReader(sessionResponse.GetResponseStream())
            checkReader.Close()
            sessionResponse.Close()

            Dim test As String = WebRPOST("http://" & sUniUrl & "/game/reg/login2.php", "uni_id=&kid=&v=2&is_utf8=0&uni_url=" & sUniUrl & "&login=" & sUser & "&pass=" & sPwd, cookies)

            If InStr(test, "Verteidigung") <> 0 Then
                Return True
            Else
                Return False
            End If

        Catch ex As Exception
            Return False
        End Try
    End Function

[Ludder231]

Originally Posted by tolio

Hier aus meinem alten ogame bot projekt, die funktion webrpost ist nen ganz normaler webrequests-post und darfste dir selber basteln

    Public Function LogIn(ByVal sUser As String, ByVal sPwd As String, ByVal sUniUrl As String) As Boolean
        Try
            Dim sessionRequest As HttpWebRequest = CType(WebRequest.Create("http://ogame.de"), HttpWebRequest)

            sessionRequest.CookieContainer = New CookieContainer()
            cookies = sessionRequest.CookieContainer
            sessionRequest.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.8.1.7) Gecko/20070914 Firefox/2.0.0.7"
            Dim sessionResponse As HttpWebResponse = DirectCast(sessionRequest.GetResponse(), HttpWebResponse)
            Dim checkReader As New StreamReader(sessionResponse.GetResponseStream())
            checkReader.Close()
            sessionResponse.Close()

            Dim test As String = WebRPOST("http://" & sUniUrl & "/game/reg/login2.php", "uni_id=&kid=&v=2&is_utf8=0&uni_url=" & sUniUrl & "&login=" & sUser & "&pass=" & sPwd, cookies)

            If InStr(test, "Verteidigung") <> 0 Then
                Return True
            Else
                Return False
            End If

        Catch ex As Exception
            Return False
        End Try
    End Function

Hmm, ich bekomms nicht hin. Iwas muss da falsch sein. Entwerde meine GETs oder oder die Posts. Kp

[kissein]

wie schaut denn deine funktion WEBRPOST aus ?

siehe 2. post:

Originally Posted by tolio

Hier aus meinem alten ogame bot projekt, die funktion webrpost ist nen ganz normaler webrequests-post und darfste dir selber basteln

[tolio]

der code funktioniert garantiert
brauchst nur ne webrequest post klasse die akzeptiert: url, post, cookiecontainer

[Ludder231]

Mein WebRPOSt sieht so aus

 Spoiler

PHP Code:

  Private Function WebRPOST(ByVal Url As String, ByVal post As String, ByVal cookies As CookieContainer)

        Dim Request As HttpWebRequest = CType(WebRequest.Create(Url), HttpWebRequest)
        Dim tempcookie As New CookieContainer
        Request.Method = "POST"               
        Request.ContentType = "application/x-www-form-urlencoded"

        post = post
        Dim byteArray() As Byte = Encoding.UTF8.GetBytes(Post)
        Request.ContentLength = byteArray.Length
        Dim DataStream As Stream = Request.GetRequestStream()
        DataStream.Write(byteArray, 0, byteArray.Length)
        DataStream.Close()

        Dim Response As HttpWebResponse = Request.GetResponse()
        DataStream = Response.GetResponseStream()
        Dim reader As New StreamReader(DataStream)
        Dim ServerResponse As String = reader.ReadToEnd()
        reader.Close()
        DataStream.Close()
        Response.Close()

        Return ServerResponse

    End Function 


[tolio]

du übergibst den cookiecontainer nicht sondern deklarierst nen neuen aber den nutzt du auch nicht

"post = post"? was genau soll das machen, einfach raus

option strict anmachen und den fehler bei Request.GetResponse() beheben sowie die "as klausel" der funktion hinzufügen

und zu guter letzt sollte der request nen useragent mitführen sonst wirft ogame dich raus

[Ludder231]

Originally Posted by tolio

du übergibst den cookiecontainer nicht sondern deklarierst nen neuen aber den nutzt du auch nicht

"post = post"? was genau soll das machen, einfach raus

option strict anmachen und den fehler bei Request.GetResponse() beheben sowie die "as klausel" der funktion hinzufügen

und zu guter letzt sollte der request nen useragent mitführen sonst wirft ogame dich raus

Ich habs jz so:

 Spoiler

PHP Code:

  Dim Request As HttpWebRequest = CType(WebRequest.Create(Url), HttpWebRequest)
        Request.Method = "POST"
        Request.ContentType = "application/x-www-form-urlencoded"
        Request.UserAgent = " Mozilla/5.0 (Windows NT 6.1; WOW64; rv:16.0) Gecko/20100101 Firefox/16.0"

        Dim byteArray() As Byte = Encoding.UTF8.GetBytes(post)
        Request.ContentLength = byteArray.Length
        Dim DataStream As Stream = Request.GetRequestStream()
        DataStream.Write(byteArray, 0, byteArray.Length)
        DataStream.Close()

        Dim Response As HttpWebResponse = Request.GetResponse()
        DataStream = Response.GetResponseStream()
        Dim reader As New StreamReader(DataStream)
        Dim ServerResponse As String = reader.ReadToEnd()
        reader.Close()
        DataStream.Close()
        Response.Close()

        Return ServerResponse 


Hab Option strict an. Useragent hab ich hinzugefügt. Wei0ß aber nicht was du mit dem fehler bei Request.GetResponse meinst. Ich sehe da keinen Fehler.

MfG Ludder231

[tolio]

klick auf den fehler drauf da steht wie es sein muss

€dit: du musst den cookie den die funktion übergeben bekommt natürlich noch mitnehmen

[Ludder231]

Bei mir ist ekin Fehler. Tempcookie wird doch mitgenommen:

 Spoiler

PHP Code:

 Dim test As String = WebRPOST("http://uni101.ogame.de/game/reg/login2.php?", "login=OBot&pass=******&kid=&v=2", tempcookie)

 Private Function WebRPOST(ByVal Url As String, ByVal post As String, ByVal tempcookie As CookieContainer)

        Dim Request As HttpWebRequest = CType(WebRequest.Create(Url), HttpWebRequest)
        Request.Method = "POST"
        Request.ContentType = "application/x-www-form-urlencoded"
        Request.UserAgent = " Mozilla/5.0 (Windows NT 6.1; WOW64; rv:16.0) Gecko/20100101 Firefox/16.0"

        Dim byteArray() As Byte = Encoding.UTF8.GetBytes(post)
        Request.ContentLength = byteArray.Length
        Dim DataStream As Stream = Request.GetRequestStream()
        DataStream.Write(byteArray, 0, byteArray.Length)
        DataStream.Close()

        Dim Response As HttpWebResponse = Request.GetResponse()
        DataStream = Response.GetResponseStream()
        Dim reader As New StreamReader(DataStream)
        Dim ServerResponse As String = reader.ReadToEnd()
        reader.Close()
        DataStream.Close()
        Response.Close()

        Return ServerResponse

    End Function 


[tolio]

also ich seh da kein request.cookiecontainer = tempcookie
du musst sie natürlich mitschicken

[Ludder231]

Originally Posted by tolio

also ich seh da kein request.cookiecontainer = tempcookie
du musst sie natürlich mitschicken

Vielen Vielen dank. Es funktioniert.
Ohne deine Mühe hätet ich es nie herausgefunden. Jedes tutorial im Netzt ist anders. danke für die ganze Mühe

MfG Ludder21

[tolio]

jo kein ding wenn du sonst noch sachen bei ogame net hinbekommste schreib mich an