vb.net HttpRequest

[frequenzer]

Hallo, habe ein Login gebaut für bananenkönig.de, aber er geht nicht, komischer Fehler beim debuggen.
Ich hoffe mir kann jemand helfen...

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

      
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLogin.Click
        Dim cookieCon As New CookieContainer
        Dim request As HttpWebRequest = DirectCast(HttpWebRequest.Create("http://www.bananenkoenig.de/index.php?ac=login"), HttpWebRequest)

        request.Method = "POST"
        request.CookieContainer = cookieCon
        request.UserAgent = "Mozilla/6.0 (Windows NT 6.2; WOW64; rv:16.0.1) Gecko/20121011 Firefox/16.0.1"
        request.ContentType = "application/x-www-form-urlencoded"
        Dim post As String = "selserver=Plantage%A01&user=testuser&password=testuser&x=172&y=8"
        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

        If seitenQuelltext.Contains("Logout") Then
            MsgBox("Fine")

        Else
            MsgBox("Not Fine")

        End If



    End Sub
End Class

PS:Ihr könnt es 1:1 kopieren, user und pass sind richtig.

['Heaven.]

Explict weglassen und den cookiecontainer global definieren

[Kraizy​]

Originally Posted by 'Heaven.

Explict weglassen

Warum sollte man soetwas tun?

[frequenzer]

Originally Posted by 'Heaven.

Explict weglassen und den cookiecontainer global definieren

global? Wie denn genau? Und mit dem 1.eren klappts auch nicht.

Originally Posted by Kraizy​

Warum sollte man soetwas tun?

hast du eine lösung dazu?

[Kraizy​]

Originally Posted by frequenzer

hast du eine lösung dazu?

Originally Posted by frequenzer

aber er geht nicht, komischer Fehler beim debuggen.

Welcher "komischer Fehler"?

[frequenzer]

Bei

Dim response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)

kommt

Der Remoteserver hat einen Fehler zurückgegeben: (417) Expectation Failed.

EDIT:

geht doch nicht

Muss wohl am Spiel liegen -.-

[False]

Bei mir geht es ohne Probleme
Also nachdem ich

request.ServicePoint.Expect100Continue = False

eingefügt habe

['Heaven.]

@Kraizy
Es ist überflüssig, da strict explicit mit einschließt meines wissens

[frequenzer]

Originally Posted by .ƒaℓsє.

Bei mir geht es ohne Probleme
Also nachdem ich
eingefügt habe

Danke dir, werde es nacher nochmal ausprobieren, versuche mich gerade an penner game

[RicoSterr]

Klappt das den jetzt?

LG

[False]

Originally Posted by RicoSterr

Klappt das den jetzt?

LG

Bei mir ohne Probleme

[Kraizy​]

Originally Posted by 'Heaven.

Es ist überflüssig

Nein ist es nicht. Sollte Explicit wirklich aus sein (normalerweise hat die IDE Explicit auf ON als Standardeinstellung), so wäre dies hier möglich (obwohl Strict On ist):

PHP Code:

Dim s1 As String
MsgBox(s2) 


Du kannst das zwar nun kompilieren und ausführen (obwohl die Variable s2 nicht explizit deklariert wurde), aber bei einem großen Projekt wäre sowas einfach der reinste Horror.