Login in mein Forum

[AnqeL]

Hey Com,

Ich versuch gerade sowas wie ein Login zu machen für mein kleines Programm.

Nun wollte ich mal gerne wissen wie ich dies machen kann.

Das man erst eingeloggt sein muss um das Programm nutzen zu können.

Spoiler:

Public Class Form1

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Navigate("http://127.0.0.1/upload/index.php?form=UserLogin")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        WebBrowser1.Document.GetElementById("loginUsername").SetAttribute("value", TextBox1.Text)
        WebBrowser1.Document.GetElementById("loginPassword").SetAttribute("value", TextBox2.Text)

        WebBrowser1.Document.GetElementById("s").InvokeMember("click")
    End Sub

So hab ich es versucht aber das ist irgendwie full crap -.-'

[exception]

Hallo,
versuchs mit WebClient.

        Imports System.Net
        Imports System.Text.Encoding
        Imports System.Collections.Specialized

        Dim c As New WebClient
        Dim nvm As New NameValueCollection
        Dim url As String = "http://127.0.0.1/upload/index.php?form=UserLogin"
        Dim src As String = String.Empty

        nvm.Add("loginUsername", "USERNAME")
        nvm.Add("loginPassword", "PASSWORD")
        nvm.Add("submit", "ok")

        src = ASCII.GetString(c.UploadValues(url, "METHODE", nvm))

        If src.Contains("erfolgreich eingeloggt") Then
            MessageBox.Show("Erfolgreich eingeloggt.")
        Else
            MessageBox.Show("Login fehlgeschlagen.")
        End If

MfG

[AnqeL]

Das geht nur irgendwie kommt nur Falscher Login ^^

[exception]

Das geht nur irgendwie kommt nur Falscher Login ^^

Zeig mal dein Code. Auf welcher Seite willst du dich überhaupt einloggen?

[AnqeL]

in mein Forum ^^

Imports System.Net
Imports System.Text.Encoding
Imports System.Collections.Specialized

Public Class Form1

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim c As New WebClient
        Dim nvm As New NameValueCollection
        Dim url As String = "http://127.0.0.1/upload/index.php?form=UserLogin"
        Dim src As String = String.Empty

        nvm.Add("loginUsername", "USERNAME")
        nvm.Add("loginPassword", "PASSWORD")
        nvm.Add("submit", "ok")

        src = ASCII.GetString(c.UploadValues(url, "METHODE", nvm))

        If src.Contains("erfolgreich eingeloggt") Then
            MessageBox.Show("Erfolgreich eingeloggt.")
            Form3.Show()
        Else
            MessageBox.Show("Login fehlgeschlagen.")
        End If
    End Sub
End Class

[Dreamware]

Was für ein Forum, bzw. welche Forensoftware benutzt du?

[Diebspiel]

METHODE = POST

Außerdem solltest du natürlich dir die Serverantwort angucken und nicht irgendwie auswerten, vielleicht hat sich der Text geändert etc.

[The Don of NYC]

in mein Forum ^^

Eine sehr konstruktive Antwort. Gehst Du auch zu MC Donalds und sagst dem Kassierer: "Ich will was zu essen." ?
Ohne zu wissen, welche Forensoftware Du benutzt, kann man dir nicht helfen. Bei manchen muss man vorher eine Login-ID
auslesen und diese beim Einloggen mitsenden oder sonstiges in der Art. Jede Forensoftware ist verschieden.

[Dewu]

Function Login(ByVal Benutzer As String, ByVal Passwort As String)
        Dim WebRequest As HttpWebRequest = CType(Net.WebRequest.Create("http://LINK ZUM FORENLOGIN"), HttpWebRequest)
        WebRequest.Method = "POST"
        WebRequest.ContentType = "application/x-www-form-urlencoded"
        Dim byte1() As Byte = Encoding.UTF8.GetBytes("loginUsername=" & Benutzer & "&loginPassword=" & Passwort & "&useCookies=1&url=")
        WebRequest.ContentLength = byte1.Length
        Dim Stream As Stream = WebRequest.GetRequestStream()
        Stream.Write(byte1, 0, byte1.Length)
        Stream.Close()
        Dim Response As HttpWebResponse = WebRequest.GetResponse()
        Stream = Response.GetResponseStream()
        Dim reader As New StreamReader(Stream)
        Dim ServerResponse As String = reader.ReadToEnd()
        reader.Close()
        Stream.Close()
        Response.Close()
        If InStr(ServerResponse, "Sie wurden erfolgreich angemeldet.") Then
            Return True
        Else
            Return False
        End If
    End Function

Den habe ich damals benutzt.
Musst du halt nur auf deine GUI anpassen.

[RainMan]

http://www.vb-paradise.de/allgemeine...uer-anfaenger/