VB[Express] Verbinden ..

    Wie genau meinst du das?
    Leute müssen sich in einer Anwendung anmelden um in sdas Forum zu kommen?

    Also, ich mach ya in meinem Projekt ganz am Anfang ein Login mit:
    Benutzername: ...
    Passwort: ...


    Aber um sich einloggen zu können, muss er sich in meinem Forum registrieren.
    Sonst geht es nicht, ich brauch da glaub ich mal höchstens ne Datenbank Verbindung zur User Tabelle vom Forum...


    //Edit/:
    Will jetzt nicht so immer das Programm ändern damit es so ist:

    PHP
    If Textbox1.Text = Samp Then && If Textbox2.Text = Gta Then
Msgbox ("Erfolgreich Eingeloggt")
Else
Msgbox("Falsche Daten")


    BTW:


    Ich mache gerade etwas sehr ähnliches, wenn du Hifle rbauchst kannst du mcih gerne anschreiben ;)

    Also, bei mir gehts iwie nicht... Bin auf der seite Eingeloggt es kommt aber der Fehler, dass es nicht Ok ist.^^.
    Oder habe ich den code falsch verstanden ??!


    Source:

    Spoiler anzeigen

    Code
    Imports System.IO, System.Net, System.TextPublic Class Form1	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load		Dim User = "", Pwd = ""		Dim Request As HttpWebRequest = CType(WebRequest.Create("http://www.Mein Link/index.php?form=UserLogin"), HttpWebRequest)		Request.Method = "POST"		Request.ContentType = "application/x-www-form-urlencoded"		Dim Post As String = "loginUsername=" & User & "&loginPassword=" & Pwd & "&useCookies=1&url="		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()		If InStr(ServerResponse, "Sie wurden erfolgreich angemeldet.") Then    		MessageBox.Show("Login OK")		Else    		MessageBox.Show("Login nicht OK")		End If	End SubEnd Class

    Spoiler anzeigen

    Ja du hast den Code falsch verstanden.
    Außerdem würde ich das ganze so machen:


    Code
    If ServerResponse.Contains("Sie wurden erfolgreich angemeldet.") Then
            MessageBox.Show("Login OK")
        Else
            MessageBox.Show("Login nicht OK")
        End If


    Du solltest auch den User-Agent angeben.

    2 Mal editiert, zuletzt von Lars_Vegas () aus folgendem Grund: Rechtschreibung

  • do.de - Domain-Offensive - Domains für alle und zu super Preisen

    Hm, ich denke es liegt an den Cookies.


    /e


    Oder WBB Blockiert es.