Ich war dabei ein Facebook Account Creator zu coden und habe ein Problem.
Undzwar, wenn Ich auf den Button "Acc erstellen" klicke, bekomme Ich die Fehlermeldung "Fehler!" sprich, es wird kein Account erstellt.
So sieht mein Code derzeit aus:
Hoffe jemand kann mir helfen, bedanke mich im vorraus.
Undzwar, wenn Ich auf den Button "Acc erstellen" klicke, bekomme Ich die Fehlermeldung "Fehler!" sprich, es wird kein Account erstellt.
So sieht mein Code derzeit aus:
Code:
Public Sub CreateAccount()
With New Http
Dim html As String = String.Empty
Dim firstname As String = "Paul"
Dim lastname As String = "Klaus"
Dim reg_email As String = "[Only registered and activated users can see links. Click Here To Register...]"
Dim reg_email_confirmation As String = "[Only registered and activated users can see links. Click Here To Register...]"
Dim reg_passwd As String = "fawFWfw321"
Dim sex As String = "1"
Dim birthday_day As String = "1"
Dim birthday_month As String = "1"
Dim birthday_year As String = "1992"
html = .GetResponse("https://www.facebook.com/ajax/register.php?lsd=AVqnxyB6", "firstname=" & firstname & "&lastname=" & lastname & "®_email__=" & reg_email & "®_email_confirmation__=" & reg_email_confirmation & "®_passwd=" & reg_passwd & "&sex=" & sex & "&birthday_day=" & birthday_day & "&birthday_month=" & birthday_month & "&birthday_year=" & birthday_year)
If html.Contains("Schritt") Then
Dim aView As ListViewItem = Me.AccountsView.Items.Add(reg_email, 0)
aView.SubItems.Add(reg_passwd)
Else
MsgBox("Fehler!")
End If
End With
End Sub