Thema: Login in mein Forum
-
23.03.2012, 07:16 #1
- Registriert seit
- 04.12.2012
- Beiträge
- 42
Thanked 0 Times in 0 PostsLogin in mein Forum
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:
So hab ich es versucht aber das ist irgendwie full crap -.-'
-
23.03.2012, 10:24 #2
Login in mein Forum
Hallo,
versuchs mit WebClient.
Code: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
MfGIch will Geld haben und zwar so viel, das ich auch mal sagen kann das es Wichtigeres gibt...
-
23.03.2012, 12:14 #3
- Registriert seit
- 04.12.2012
- Beiträge
- 42
Thanked 0 Times in 0 PostsLogin in mein Forum
Das geht nur irgendwie kommt nur Falscher Login ^^
-
23.03.2012, 12:54 #4
-
23.03.2012, 15:27 #5
- Registriert seit
- 04.12.2012
- Beiträge
- 42
Thanked 0 Times in 0 PostsLogin in mein Forum
in mein Forum ^^
Code: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
-
23.03.2012, 16:25 #6
- Registriert seit
- 06.08.2011
- Beiträge
- 16
Thanked 22 Times in 19 PostsLogin in mein Forum
Was für ein Forum, bzw. welche Forensoftware benutzt du?
-
23.03.2012, 16:59 #7
Login in mein Forum
METHODE = POST
Außerdem solltest du natürlich dir die Serverantwort angucken und nicht irgendwie auswerten, vielleicht hat sich der Text geändert etc.
-
23.03.2012, 17:01 #8
- Registriert seit
- 22.05.2012
- Beiträge
- 203
Thanked 21 Times in 9 PostsLogin 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.
-
23.03.2012, 18:31 #9
- Registriert seit
- 08.03.2012
- Beiträge
- 56
Thanked 0 Times in 0 PostsLogin in mein Forum
Code: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
Musst du halt nur auf deine GUI anpassen.
-
23.03.2012, 18:32 #10
- Registriert seit
- 18.03.2012
- Beiträge
- 43
Thanked 6 Times in 6 PostsLogin in mein Forum
Ähnliche Themen
-
Anfänger Mein Konto.
Von Mentos im Forum AufgabenAntworten: 4Letzter Beitrag: 12.08.2013, 17:39 -
Wie ist mein Avatar ?
Von Bossover im Forum ShowroomAntworten: 9Letzter Beitrag: 23.04.2012, 14:56 -
Mein Erste Mix
Von getsha im Forum Musik ♫Antworten: 10Letzter Beitrag: 03.03.2012, 19:09
Diese Seite nutzt Cookies, um das Nutzererlebnis zu verbessern. Klicken Sie hier, um das Cookie-Tracking zu deaktivieren.