Hallo Leute, ich habe mir einen FB-Login geschrieben
dieses Script, Gibt den Facebooknamen des Nutzers in einer MsgBox aus. jetzt will ich mich nch mit diesem LogIn Code im Browser anmelden, weß jemand wie?
Spoiler anzeigen
#include <Winhttp.au3>
#include <string.au3>
Global $HTTP_Host = "m.facebook.com"
Global $HTTP_Agent = _WinHttpOpen("Opera/9.80 (Android 3.2.1; Linux; Opera Tablet/ADR-1205181138; U; en-GB) Presto/2.10.254 Version/12.00")
Global $HTTP_ConnectFB = _WinHttpConnect($HTTP_Agent, $HTTP_Host, $INTERNET_DEFAULT_HTTPS_PORT)
$sEmail = InputBox("Login", "Email eingeben")
$sPW = InputBox("Login", "Passwort eingeben", "", "*")
$hLogin = _FBLogin($sEmail, $sPW)
[/autoit] [autoit][/autoit] [autoit]MsgBox(0, "Login", $hLogin)
[/autoit] [autoit][/autoit] [autoit]Func _FBLogin($sEmail, $sPW)
$sEmail = StringReplace($sEmail, '@', '%40')
$sHTML = _WinHttpSimpleSSLRequest($HTTP_ConnectFB, "GET", "")
$returnvalue = _StringBetween($sHTML, 'value="', '"')
If @error = 1 Then Return False
$value = $returnvalue[0]
$value0 = $returnvalue[7]
$value1 = $returnvalue[8]
$sHTML = _WinHttpSimpleSSLRequest($HTTP_ConnectFB, "POST", "/login.php?m=m&refsrc=http%3A%2F%2Fm.facebook.com%2F&refid=8", "m.facebook.com", "lsd=&charset_test=" & $value & "&version=1&ajax=1&width=1680&pxr=1&gps=1&email=" & $sEmail & "&pass=" & $sPW & "&m_ts=" & $value0 & "&li=" & $value1 & "&signup_layout=bottom_link&laststage=first&login=Anmelden")
FileWrite("Fehler.html", $sHTML)
Select
Case StringInStr($sHTML, 'Probleme beim Anmelde')
MsgBox(1, "", "Login Daten fehlerhaft")
Return 1
Case StringInStr($sHTML, 'Sicherheitskontrolle')
MsgBox(1, "", "Kein zugang möglich da eine Sicherheitskontrolle angefordert wird.")
Return 2
Case StringInStr($sHTML, 'unbekannten Browser')
Return 2
Case StringInStr($sHTML, 'bergehend gesperrt')
$aLsd = _StringBetween($sHTML, 'lsd" value="', '"')
$sHTML = _WinHttpSimpleSSLRequest($HTTP_ConnectFB, "GET", "/")
$aName = _StringBetween($sHTML, 'Abmelden</a> (', ')')
Case Else
$aName = _StringBetween($sHTML, 'Abmelden</a> (', ')')
Return $aName[0]
EndSelect
EndFunc ;==>_FBLogin