|
| Autor |
Nachricht |
hyperia_
Newbie
Anmeldedatum: 07.11.2007
Beiträge: 4
|
Suche , Login Checker @ HTTP
Verfasst am: 10.11.2007, 22:43 |
|
|
Hi
ich hänge an einer Passage meines Programms
und zwar müssen Login Daten an die INPUT Felder bestimmter Websites weitergegeben werden , und auf Validadität gecheckt werden
ich weiß nicht wie ich das umsetzten soll , vllt kann mir jemand helfen
MFG Hyp |
|
| |
|
 |
Miah_
Coder
Anmeldedatum: 22.04.2007
Beiträge: 96
|
Verfasst am: 10.11.2007, 23:01 |
|
|
| Code: | Public Function postData(ByVal Page As String, ByVal Post As String)
System.Net.ServicePointManager.Expect100Continue = False
Dim web As New System.Net.WebClient()
web.Headers.Add("Content-Type", "application/x-www-form-urlencoded")
Dim d As Byte() = System.Text.Encoding.ASCII.GetBytes(Post)
Dim res As Byte() = web.UploadData(Page, "POST", d)
Return System.Text.Encoding.ASCII.GetString(res)
End Function |
damit kannst du einen post senden an eine bestimmte sseite z.b.
| Code: | dim ergebniss as string
ergebniss = postData("http://www.meine-seite.de/check-logindaten.php"
"name=foo&passwort=bar")
MsgBox(ergebniss) |
|
|
| |
|
|
hyperia_
Newbie
Anmeldedatum: 07.11.2007
Beiträge: 4
|
Verfasst am: 12.11.2007, 15:40 |
|
|
Hmm hab ich soweit glaub umgesetzt , aber wie bekomm ich jetzt die Rückmeldung ob der Login funzt
sieht bei mir jetzt so aus
| Code: | Public Class Form1
Dim ergebniss As String
Dim pahe As String
Dim nam As String
Dim passwort As String
Public Function postData(ByVal Page As String, ByVal Post As String)
System.Net.ServicePointManager.Expect100Continue = False
Dim web As New System.Net.WebClient()
web.Headers.Add("Content-Type", "application/x-www-form-urlencoded")
Dim d As Byte() = System.Text.Encoding.ASCII.GetBytes(Post)
Dim res As Byte() = web.UploadData(Page, "POST", d)
Return System.Text.Encoding.ASCII.GetString(res)
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
pahe = ("www.web.de")
nam = TextBox1.Text
passwort = TextBox2.Text
ergebniss = postData(pahe, nam & passwort)
MsgBox(ergebniss)
End Sub
End Class |
|
|
| |
|
|
Marduk_
« Moderator »
Anmeldedatum: 17.06.2007
Beiträge: 389
|
Verfasst am: 12.11.2007, 17:50 |
|
|
Wenn du die httpwebrewuest benutzt, kannst du folgendes machen
| Code: | dim request as system.net.httpwebrequest = CType(HttpWebRequest.Create(dein_link_hier_rein), HttpWebRequest))
request.getresponse()
oder halt den Quelltext der Seite laden
request.GetResponse.GetResponseStream()
'einfach in einen Stream schreiben lassen und ausgeben
|
|
|
| |
|
|
Miah_
Coder
Anmeldedatum: 22.04.2007
Beiträge: 96
|
Verfasst am: 13.11.2007, 14:13 |
|
|
Also wenn du dich einlogst z.b. auf der seite http://www.blabla.de/checklogin.php
dann wirst du von der seite doch eine rückmeldung bekommen ala "Erfolgreich eingelogt" also irgendein text der auf der seite steht... nun schreibst du einfach
| Code: | Dim Seiteninhalt as String
Seiteninhalt = postData("name=miah&passwort=irgendwas")
if Seiteninhalt.IndexOf("Erfolgreich eingelogt") <> -1 then
MsgBox("Der Account" & vbCrLf & _
"Name: Miah" & vbCrLf & _
"Pass: irgendwas" & vbCrLf & _
"funktioniert", _
vbInformation, _
" > Account funktioniert")
Else
MsgBox("Der Account exisitiert nicht oder das Passwort ist falsch!", _
vbInformation, _
" < Account funktioniert nicht")
End If |
so sollte es gehen ^^ ist aber von hand geschrieben also net meckern wenns nicht geht xD |
|
| |
|
|
hyperia_
Newbie
Anmeldedatum: 07.11.2007
Beiträge: 4
|
Verfasst am: 14.11.2007, 00:45 |
|
|
sollte eigentlich klappen machts aber iergendwie nicht
bin ratlos
| Code: |
Public Function postData(ByVal Page As String, ByVal Post As String)
System.Net.ServicePointManager.Expect100Continue = False
Dim web As New System.Net.WebClient()
web.Headers.Add("Content-Type", "application/x-www-form-urlencoded")
Dim d As Byte() = System.Text.Encoding.ASCII.GetBytes(Post)
Dim res As Byte() = web.UploadData(Page, "POST", d)
Return System.Text.Encoding.ASCII.GetString(res)
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Seiteninhalt As String
Dim pw As String
Dim usr As String
pw = TextBox1.Text
usr = TextBox2.Text
Seiteninhalt = postData("http://www.web.de"
"inpLoginUsername=usr&inpLoginPasswd=pw")
If Seiteninhalt.IndexOf("<img src="//img.web.de/v/mail/logout_dummy.jpg" alt="" border="0" height="222" width="196">") <> -1 Then *BILD IM ERFOLGREICHEN LOGIN
MsgBox("Der Account" & vbCrLf & _
"Name: Miah" & vbCrLf & _
"Pass: irgendwas" & vbCrLf & _
"funktioniert", _
vbInformation, _
" > Account funktioniert")
Else
MsgBox("Der Account exisitiert nicht oder das Passwort ist falsch!", _
vbInformation, _
" < Account funktioniert nicht")
End If
End Sub
End Class |
|
|
| |
|
|
Miah_
Coder
Anmeldedatum: 22.04.2007
Beiträge: 96
|
Verfasst am: 14.11.2007, 14:00 |
|
|
du kannst nicht einfach schreiben "Hallo "Name"." denn in VB.Net escapest du anführungszeichen so
"Hallo ""Name""."
also darfst du auch nciht schreiben
| Code: | | If Seiteninhalt.IndexOf("<img src="//img.web.de/v/mail/logout_dummy.jpg" alt="" border="0" height="222" width="196">") <> -1 Then |
sondern
| Code: | | If Seiteninhalt.IndexOf("<img src=""//img.web.de/v/mail/logout_dummy.jpg"" alt="""" border=""0"" height=""222"" width=""196"">") <> -1 Then |
nebenbei kannst du doch nicht einfach an www.web.de die daten
inpLoginUsername=usr&inpLoginPasswd=pw
senden! du musst schon die datei herausfinden in der web.de prüft ob das paswort richtig ist und dann musst du auch noch
inpLoginUsername=usr&inpLoginPasswd=pw
so umschreiben
"inpLoginUsername=" & usr & "&inpLoginPasswd=" & pw
damit die variablen auch geparst werden... |
|
| |
|
|
hyperia_
Newbie
Anmeldedatum: 07.11.2007
Beiträge: 4
|
Verfasst am: 20.11.2007, 15:34 |
|
|
ich bin mir noch net mal sicher ob ich VB.net oder VB6 habe^^
VB 2k5 EXpress ist das |
|
| |
|
|
ZiG_
Überflieger
Anmeldedatum: 07.03.2007
Beiträge: 1248
|
Verfasst am: 20.11.2007, 16:20 |
|
|
Dann arbeitest du mit VB.Net
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde) |
|
| |
|
|
Miah_
Coder
Anmeldedatum: 22.04.2007
Beiträge: 96
|
Verfasst am: 20.11.2007, 16:22 |
|
|
ich empfehle dir dich auch mal mit dem auseinanderzusetzen was du machen willst also mit dem HTTP protokoll...
weitere infos unter google  |
|
| |
|
|
Topmaster_
Tutorial Leser
Anmeldedatum: 15.09.2007
Beiträge: 32
|
Verfasst am: 07.12.2007, 19:32 |
|
|
HI leute ich würde gerne auch sowas machen.
Und zwar braucht der nicht die Seiten variablen also die "namen der eintage felder"???
Also meine Login page B:z
http://mama.uttx.net/Admin%20bereich/login.php
| Code: | Public Class Form1
Dim ergebniss As String
Dim login As String
Dim username As String
Dim userpass As String
Public Function postData(ByVal Page As String, ByVal Post As String)
System.Net.ServicePointManager.Expect100Continue = False
Dim web As New System.Net.WebClient()
web.Headers.Add("Content-Type", "application/x-www-form-urlencoded")
Dim d As Byte() = System.Text.Encoding.ASCII.GetBytes(Post)
Dim res As Byte() = web.UploadData(Page, "POST", d)
Return System.Text.Encoding.ASCII.GetString(res)
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
login = ("http://mama.uttx.net/Admin bereich/login.php")
username = TextBox1.Text
userpass = TextBox2.Text
ergebniss = postData(login, username & userpass)
MsgBox(ergebniss)
End Sub
|
So habe ich das gemacht wenn ich mich richtig einlogge setht dann
"Ausloggen"
"Admin Login"
"Check"
Aber irgendwie will der sich nicht einloggen also ^^.. |
|
| |
|
|
Miah_
Coder
Anmeldedatum: 22.04.2007
Beiträge: 96
|
Verfasst am: 08.12.2007, 15:04 |
|
|
meine post funktion und
| Code: | Dim username as String = "Bla"
Dim userpass as Strign = "blub123"
Seiteninhalt = postData("http://mama.uttx.net/Admin%20bereich/login.php"
"username=" & username & "&userpass=" & userpass) |
|
|
| |
|
|
Topmaster_
Tutorial Leser
Anmeldedatum: 15.09.2007
Beiträge: 32
|
Verfasst am: 08.12.2007, 16:37 |
|
|
HI irgenwie geht dat nihct ... aslo deine Schreib fehler habe ich schon behoben aber er mach irgenwie etwas falsch:?
| Code: |
Public Class Form1
Dim username As String = "Topmaster"
Dim userpass As String = "lol"
Dim Seiteninhalt As String
Public Function postData(ByVal Page As String, ByVal Post As String)
System.Net.ServicePointManager.Expect100Continue = False
Dim web As New System.Net.WebClient()
web.Headers.Add("Content-Type", "application/x-www-form-urlencoded")
Dim d As Byte() = System.Text.Encoding.ASCII.GetBytes(Post)
Dim res As Byte() = web.UploadData(Page, "POST", d)
Return System.Text.Encoding.ASCII.GetString(res)
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Seiteninhalt = postData("http://mama.uttx.net/Admin%20bereich/login.php", "username=username&userpass=userpass" )
If Seiteninhalt.IndexOf("Ausloggen") <> -1 Then
MsgBox("Der Account" & vbCrLf & _
"Name: Miah" & vbCrLf & _
"Pass: irgendwas" & vbCrLf & _
"funktioniert", _
vbInformation, _
" > Account funktioniert")
Else
MsgBox("Der Account exisitiert nicht oder das Passwort ist falsch!", _
vbInformation, _
" < Account funktioniert nicht")
End If
End Sub
End Class
|
Habe mal meine Daten mit geschrieben aber ich krige es einfach nicht hin:( aber ich finde nicht den fehler |
|
| |
|
|
Miah_
Coder
Anmeldedatum: 22.04.2007
Beiträge: 96
|
Verfasst am: 08.12.2007, 19:32 |
|
|
ja mädel  du bist so dämlich sorry aber schreibs mal so xD
| Code: | Public Class Form1
Dim username As String = "Topmaster"
Dim userpass As String = "lol"
Dim Seiteninhalt As String
Public Function postData(ByVal Page As String, ByVal Post As String)
System.Net.ServicePointManager.Expect100Continue = False
Dim web As New System.Net.WebClient()
web.Headers.Add("Content-Type", "application/x-www-form-urlencoded")
Dim d As Byte() = System.Text.Encoding.ASCII.GetBytes(Post)
Dim res As Byte() = web.UploadData(Page, "POST", d)
Return System.Text.Encoding.ASCII.GetString(res)
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Seiteninhalt = postData("http://mama.uttx.net/Admin%20bereich/login.php", "username=username&userpass=userpass" )
If Seiteninhalt.Length <> 0 Then
MsgBox(Seiteninhalt)
End If
End Sub
End Class |
|
|
| |
|
|
Topmaster_
Tutorial Leser
Anmeldedatum: 15.09.2007
Beiträge: 32
|
Verfasst am: 08.12.2007, 21:09 |
|
|
geht nicht er loggt sich nicht ein^^ deshalb ja ^^ |
|
| |
|
|
Registrieren
Login
