Hallo liebe Community,
nach langen versuchen und keinen erzielten Erfolg - bin ich am verzweifeln.
Und bin auf der Suche nach einen Rat von euch!
Ich habe einen XenForo Forum aufgesetzt und möchte über VB.Net einen LogIn programmieren.
Spricht, das ganze basiert auf auslesen des Quellcodes.
Erstmal zu den Code
Ich möchte KEINE WERBUNG für mein Forum machen, zudem da auch nichts zu finden gibts.. da es lediglich
nur für Testzwecke erstmal genutzt wird! (Website im Code enthalten).
Das ganze soll so ablaufen:
1. Man Registriert sich im Forum.
2. Man kann das Programm downloaden.
3. Man gibt seine Benutzerdaten ein. (Username + Password)
4. Man loggt sich ein und die zweite Plattform öffnet sich.
Was das ganze bezwecken soll ist, das ich später ein Chat darauf auslesen möchte mit den Benutzerdaten
die sich dank des LogIn eingeloggt haben. Das man später darauf Chatten kann.
Aber leider funktioniert garnichts daran.. ich hab schon einiges probiert. Aber er liest es nicht richtig aus anscheinend!
Kann mir wer bitte weiter helfen?
Vielen Dank im vorraus.
*Topic verschoben, Links entfernt*
nach langen versuchen und keinen erzielten Erfolg - bin ich am verzweifeln.
Und bin auf der Suche nach einen Rat von euch!
Ich habe einen XenForo Forum aufgesetzt und möchte über VB.Net einen LogIn programmieren.
Spricht, das ganze basiert auf auslesen des Quellcodes.
Erstmal zu den Code
VB.NET-Quellcode
- Public Class Form1
- Private Sub FrostButton1_Click(sender As System.Object, e As System.EventArgs) Handles FrostButton1.Click
- Using EnviarPara As New Net.WebClient
- Dim Param As New Specialized.NameValueCollection
- Param.Add("username", TextBox1.Text)
- Param.Add("password", TextBox2.Text)
- Dim RespostaBytes As Byte() = EnviarPara.UploadValues("http://*zensiert*/index.php?login/", "POST", Param)
- Dim RespostaHTML As String = (New System.Text.UTF8Encoding).GetString(RespostaBytes)
- 'Erfolgreich ANGEMELDET!
- If RespostaHTML.Contains("") Then
- MsgBox("♥-lich Willkommen " & TextBox1.Text & ", " & vbNewLine & "Sie wurden erfolgreich mit dem *zensiert*-Server verbunden!", vbOKOnly + vbInformation, "Status: Angemeldet │ Copyright by → *zensiert* ← ")
- Form2.Show()
- Me.Close()
- 'Falsches PASSWORT oder BENUTZERNAME
- End If
- If RespostaHTML.Contains("Du hast ein falsches Passwort eingegeben. Bitte versuche es noch einmal.") Then
- Label2.Text = "Zugang nicht gewährt!"
- End If
- End Using
- End Sub
Ich möchte KEINE WERBUNG für mein Forum machen, zudem da auch nichts zu finden gibts.. da es lediglich
nur für Testzwecke erstmal genutzt wird! (Website im Code enthalten).
Das ganze soll so ablaufen:
1. Man Registriert sich im Forum.
2. Man kann das Programm downloaden.
3. Man gibt seine Benutzerdaten ein. (Username + Password)
4. Man loggt sich ein und die zweite Plattform öffnet sich.
Was das ganze bezwecken soll ist, das ich später ein Chat darauf auslesen möchte mit den Benutzerdaten
die sich dank des LogIn eingeloggt haben. Das man später darauf Chatten kann.
Aber leider funktioniert garnichts daran.. ich hab schon einiges probiert. Aber er liest es nicht richtig aus anscheinend!
Kann mir wer bitte weiter helfen?
Vielen Dank im vorraus.
*Topic verschoben, Links entfernt*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()