![]()

|
|
Visual Basic Quellcode |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
Dim bomb As New NameValueCollection bomb.Add("loginUsername", "C0der") bomb.Add("loginPassword", "015229641050") bomb.Add("url", "/index.php?form=UserLogin") Dim b() As Byte = wc.UploadValues("http://www.vb-paradise.de/index.php?form=UserLogin", "POST", bomb) If (Text.Encoding.ASCII.GetString(b).Contains("eingeloggt") then ' Du musst hier das richtig einsetzen, ich weiss nicht, welcher Text bei Erfolg kommt Else ' Falsche Daten End If |
|
|
Visual Basic Quellcode |
1 |
Imports System
|
|
|
Visual Basic Quellcode |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
Dim bomb As New NameValueCollection bomb.Add("loginUsername", TextBox1.Text) bomb.Add("loginPassword", TextBox2.Text) bomb.Add("url", "/index.php?form=UserLogin") Dim b() As Byte = wc.UploadValues("http://www.vb-paradise.de/index.php?form=UserLogin", "POST", bomb) If Text.Encoding.ASCII.GetString(b).Contains("Sie wurden erfolgreich angemeldet.") Then MsgBox("Erfolg.") Else MsgBox("Falsche Daten.") End If |
Benutzer, die diesen Beitrag hilfreich fanden:
|
|
Visual Basic Quellcode |
1 2 3 4 5 6 7 8 9 10 11 |
Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click Dim bomb As New Specialized.NameValueCollection bomb.Add("loginUsername", "C0der") bomb.Add("loginPassword", "015229641050") bomb.Add("url", "/index.php?form=UserLogin") Dim b() As Byte = WC.UploadValues("http://www.vb-paradise.de/index.php?form=UserLogin", "POST", bomb) |
|
|
Visual Basic Quellcode |
1 |
Dim WC as new Net.WebClient |
Imports System.Text.Encodingmhh, es steht: "Encoding" ist kein Member von "String".
Text.Encoding ist unterstrichen kA wieso![]()
Benutzer, die diesen Beitrag hilfreich fanden:
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von »hal2000« (20. Mai 2009, 20:43)
Benutzer, die diesen Beitrag hilfreich fanden:
|
|
Visual Basic Quellcode |
1 |
CHILL DOCH MAL :D |
Höhö...guter Witz. Also doch Punkt 1. Viel Spaß beim Zocken.wenn du keine ahnung darüber hast.
Benutzer, die diesen Beitrag hilfreich fanden:
