VB[Express] Verbinden ..

Keys-Planet · 3. Juni 2012

Wie kann ich mein Programm mit meinem Forum (WBB3.1.6) Verbinden?
Also, das sich nur User Einloggen können die da Registriert sind ?!

Lars_Vegas · 3. Juni 2012

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

Keys-Planet · 3. Juni 2012

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")

namespace · 3. Juni 2012

Mit HttpWebRequests.

Lars_Vegas · 3. Juni 2012

Da muss ich namespace recht geben.
Du machst das ganze mit HttpWebRequest(System.Net).
Auslesen kannst du mit HttpWebResponse (System.Net).

Hier ein Beispiel für C#:

http://forum.chip.de/c-net/c-w…txt-auslesen-1640443.html

In VB sieht es ähnlich aus

Keys-Planet · 3. Juni 2012

Danke, für das Tutorial, schon am machen
Ging recht schnell

Lars_Vegas · 3. Juni 2012

BTW:

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

Keys-Planet · 3. Juni 2012

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

Lars_Vegas · 3. Juni 2012

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.

Keys-Planet · 3. Juni 2012

Geht leider nicht kommt immer" nicht OK"

Lars_Vegas · 3. Juni 2012

Hm, ich denke es liegt an den Cookies.

/e

Oder WBB Blockiert es.

Keys-Planet · 3. Juni 2012

Wie kann ich sonst soetwas machen ?
Das z.B mit Label + Textboxen z.B:

PHP

[LABEL]Accountname: Textbox[Test]
[LABEL]Passwort: Textbox[Test1]


[BUTTON] (Loggin)

breadfish.de 11. März 2022