Facebook Http WebRequest/Response Cookie Problem

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von roteisen^.

    Facebook Http WebRequest/Response Cookie Problem

    Hallo liebe VB Community,
    dies ist mein erster Beitrag und ich komme gleich mit einer Frage;)
    Ich arbeite im moment an einem Facebook - Freunde Ad Programm mit VB NET 2010. Wollte meinen Bot nicht auf Basis eines Form mit WebBrowser Tool sondern als kompakte Konsolenanwendung entwickeln mit HttpWeb Response/Request .

    Login - funktioniert soweit
    Jedoch hab ich irgendwas bei den Cookies falsch gemacht...
    Profil besuchen - und wir sind nicht eingeloggt, kommmen zwar aufs Profil aber ohne eingeloggt zu sein bzw wurden die Cookies nicht erkannt.

    VB.NET-Quellcode

    1. Imports System.Net
    2. Imports System.Text.RegularExpressions
    3. Imports System.Text
    4. Imports System.IO
    8. Module Module1
    9. Dim logincookie As CookieContainer
    10. Dim PEmail As String
    11. Dim PPass As String
    13. Public Structure FBLoginData
    14. Public EMail As String
    15. Public Password As String
    16. Public lsd As String
    17. Public charset As String
    18. End Structure
    21. Private Function GetLoginData(ByVal EMail As String, ByVal Password As String, ByVal SourceCode As String) As FBLoginData
    23. Dim FBData As New FBLoginData()
    24. FBData.EMail = PEmail
    25. FBData.Password = PPass
    29. Dim lsdPattern As String = "<input type=""hidden"" name=""lsd"" value=""(?<lsd>.+?)"" />"
    30. Dim lsd As Match = Regex.Match(SourceCode, lsdPattern)
    31. FBData.lsd = lsd.Groups("lsd").Value
    33. Dim charsetPattern As String = "<input type=""hidden"" name=""charset_test"" value=""(?<charset>.+?)"" />"
    34. Dim charset As Match = Regex.Match(SourceCode, charsetPattern)
    35. FBData.charset = charset.Groups("charset").Value
    37. Return FBData
    39. End Function
    41. Sub Main()
    45. ' Willkommensnachricht
    46. Console.WriteLine(" *******************************\n")
    47. Console.WriteLine(" * Facebook Bot by Roteisen*\n")
    48. Console.WriteLine(" *******************************\n")
    49. ' Public Var PEmail und PPass werden deklariert.
    50. Console.WriteLine()
    51. Console.WriteLine()
    52. Console.WriteLine(" - Bitte Facebook E-Mail eingeben: -")
    53. Console.WriteLine()
    54. PEmail = Console.ReadLine()
    55. Console.WriteLine()
    56. Console.WriteLine(" - Bitte Facebook Passwort eingeben: -")
    57. Console.WriteLine()
    59. PPass = Console.ReadLine()
    61. Console.WriteLine()
    62. Console.WriteLine()
    63. Console.WriteLine(" processing Login ...")
    64. Threading.Thread.Sleep(2000)
    65. intlogin()
    66. Console.WriteLine()
    67. Console.WriteLine(" - Login Succes! -")
    69. Console.WriteLine()
    70. Console.WriteLine("-------------------------------------------------------")
    71. Console.WriteLine()
    74. FBProfil()
    75. Console.WriteLine("Profil besuchen")
    76. Console.ReadLine()
    79. End Sub
    81. Sub intlogin()
    85. 'Daten varuser & varpass werden mit postData versendet !
    87. '/Dim postData As String = "charset_test=%E2%82%AC%2C%C2%B4%2C%E2%82%AC%2C%C2%B4%2C%E6%B0%B4%2C%D0%94%2C%D0%84&lsd=8WiEa&locale=de_DE&email=" & PEmail & "&pass=" & PPass & "&default_persistent=0&charset_test=%E2%82%AC%2C%C2%B4%2C%E2%82%AC%2C%C2%B4%2C%E6%B0%B4%2C%D0%94%2C%D0%84&lsd=8WiEa"
    88. '/Dim tempCookies As New CookieContainer
    90. 'Enconding, da Http keinen Stream warnehmen kann
    91. '/Dim encoding As New UTF8Encoding
    92. '/Dim byteData As Byte() = encoding.GetBytes(postData)
    95. 'Login zu Facebook
    96. '/ Dim postReq As HttpWebRequest = DirectCast(WebRequest.Create("https://www.facebook.com/login.php?login_attempt=1"), HttpWebRequest)
    97. '/ postReq.Method = "POST"
    98. '/postReq.KeepAlive = True
    99. '/ postReq.CookieContainer = tempCookies
    100. '/ postReq.ContentType = "pplication/x-www-form-urlencoded"
    101. '/postReq.Referer = "https://www.facebook.com/login.php?login_attempt=1"
    102. '/postReq.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:6.0a2) Gecko/20110613 Firefox/6.0a2"
    103. '/postReq.ContentLength = byteData.Length
    105. '/ Dim postreqstream As Stream = postReq.GetRequestStream()
    106. '/postreqstream.Write(byteData, 0, byteData.Length)
    107. '/postreqstream.Close()
    108. '/ Dim postresponse As HttpWebResponse
    110. '/ postresponse = DirectCast(postReq.GetResponse(), HttpWebResponse)
    111. '/tempCookies.Add(postresponse.Cookies)
    112. '/ logincookie = tempCookies
    113. '/ Dim postreqreader As New StreamReader(postresponse.GetResponseStream())
    115. '/ My.Computer.FileSystem.WriteAllText("C:\Debug\x5.html", postreqreader.ReadToEnd(), False)
    117. '/ postreqreader.Close()
    119. Dim uri As New Uri("http://www.facebook.com/login.php?login_attempt=1")
    120. Dim cookieContainer As New CookieContainer()
    121. Dim FBData As FBLoginData
    122. Dim tempCookies As New CookieContainer
    124. ' Infos auslesen (Wegen Cookies)
    125. 'Dim sessionRequest As HttpWebRequest = DirectCast(WebRequest.Create(uri), HttpWebRequest)
    126. 'sessionRequest.CookieContainer = New CookieContainer()
    127. 'logincookie = sessionRequest.CookieContainer
    128. 'sessionRequest.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.8.1.7) Gecko/20070914 Firefox/2.0.0.7"
    129. 'Dim sessionResponse As HttpWebResponse = DirectCast(sessionRequest.GetResponse(), HttpWebResponse)
    130. 'Dim checkReader As New StreamReader(sessionResponse.GetResponseStream())
    131. 'FBData = GetLoginData(FBData.EMail, FBData.Password, checkReader.ReadToEnd())
    132. 'checkReader.Close()
    133. 'sessionResponse.Close()
    135. ' Einloggen
    136. Dim loginData As String = "charset_test=" & FBData.charset & "&lsd=" & FBData.lsd & "&locale=de_DE&email=" & FBData.EMail & "&pass=" & FBData.Password & "&persistent=1&default_persistent=1&charset_test=" & FBData.charset & "&lsd=" & FBData.lsd
    137. Dim req As HttpWebRequest = DirectCast(HttpWebRequest.Create("http://www.facebook.com/login.php?login_attempt=1"), HttpWebRequest)
    138. req.CookieContainer = logincookie
    139. req.Method = "POST"
    140. req.ContentType = "application/x-www-form-urlencoded"
    141. req.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.8.1.7) Gecko/20070914 Firefox/2.0.0.7"
    143. Dim encoding As New ASCIIEncoding()
    144. Dim loginDataBytes As Byte() = encoding.GetBytes(loginData)
    145. req.ContentLength = loginDataBytes.Length
    146. Dim stream As IO.Stream = req.GetRequestStream()
    147. stream.Write(loginDataBytes, 0, loginDataBytes.Length)
    148. stream.Close()
    149. Dim res As HttpWebResponse = DirectCast(req.GetResponse(), HttpWebResponse)
    150. tempCookies.Add(res.Cookies)
    151. logincookie = tempCookies
    154. Return
    156. End Sub
    158. Sub FBProfil()
    159. Dim tempCookies As New CookieContainer
    160. ' Test ID 100003177993836 : , aus Txt Holen IDs
    161. Dim request As HttpWebRequest = DirectCast(WebRequest.Create("http://www.facebook.com/profile.php?id=100003177993836"), HttpWebRequest)
    162. request.CookieContainer = logincookie
    163. request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.8.1.7) Gecko/20070914 Firefox/2.0.0.7"
    165. Dim res As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
    166. tempCookies.Add(res.Cookies)
    167. logincookie = tempCookies
    171. Dim str As New StreamReader(res.GetResponseStream)
    173. My.Computer.FileSystem.WriteAllText("C:\Debug\x53.html", str.ReadToEnd(), False)
    175. res.Close()
    176. Return
    177. End Sub
    178. End Module


    Hoffe jemand kann mir weiterhelfen, denn ich find den Fehler irgendwie nicht.

    roteisen^ schrieb:

    Login - funktioniert soweit

    Nun, wieso nimmst Du an, daß der Login funktioniert hat ? Mir sieht es eher danach aus als ob Du genau daran scheiterst, da Du sofort mit einem POST Request beginnst

    Versuchs mal in folgender Reihenfolge:
    - einen leeren Cookiecontainer anlegen
    - mit einem GET Request auf die Login Seite gehen (-> Cookiecontainer wird automatisch mit Sessioncookie gefüllt)
    - Login Daten ermitteln
    - mit einem POST Request und dem gleichen CookieContainer den Login durchführen

    Kangaroo schrieb:

    roteisen^ schrieb:

    Login - funktioniert soweit

    Nun, wieso nimmst Du an, daß der Login funktioniert hat ? Mir sieht es eher danach aus als ob Du genau daran scheiterst, da Du sofort mit einem POST Request beginnst

    Versuchs mal in folgender Reihenfolge:
    - einen leeren Cookiecontainer anlegen
    - mit einem GET Request auf die Login Seite gehen (-> Cookiecontainer wird automatisch mit Sessioncookie gefüllt)
    - Login Daten ermitteln
    - mit einem POST Request und dem gleichen CookieContainer den Login durchführen
    Hallo,
    erstmal danke;) Habs gemacht und meinen alten Code überarbeitet

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Net
    2. Imports System.Text.RegularExpressions
    3. Imports System.Text
    4. Imports System.IO
    8. Module Module1
    9. Dim cookies As CookieContainer
    10. Dim PEmail As String
    11. Dim PPass As String
    13. Public Structure FBLoginData
    14. Public EMail As String
    15. Public Password As String
    16. Public lsd As String
    17. Public charset As String
    18. End Structure
    21. Private Function GetLoginData(ByVal EMail As String, ByVal Password As String, ByVal SourceCode As String) As FBLoginData
    23. Dim FBData As New FBLoginData()
    24. FBData.EMail = PEmail
    25. FBData.Password = PPass
    29. Dim lsdPattern As String = "<input type=""hidden"" name=""lsd"" value=""(?<lsd>.+?)"" />"
    30. Dim lsd As Match = Regex.Match(SourceCode, lsdPattern)
    31. FBData.lsd = lsd.Groups("lsd").Value
    33. Dim charsetPattern As String = "<input type=""hidden"" name=""charset_test"" value=""(?<charset>.+?)"" />"
    34. Dim charset As Match = Regex.Match(SourceCode, charsetPattern)
    35. FBData.charset = charset.Groups("charset").Value
    37. Return FBData
    39. End Function
    41. Sub Main()
    45. ' Willkommensnachricht
    46. Console.WriteLine(" *******************************\n")
    47. Console.WriteLine(" * Facebook Bot by Roteisen *\n")
    48. Console.WriteLine(" *******************************\n")
    49. ' Public Var PEmail und PPass werden deklariert.
    50. Console.WriteLine()
    51. Console.WriteLine()
    52. Console.WriteLine(" - Bitte Facebook E-Mail eingeben: -")
    53. Console.WriteLine()
    54. PEmail = Console.ReadLine()
    55. Console.WriteLine()
    56. Console.WriteLine(" - Bitte Facebook Passwort eingeben: -")
    57. Console.WriteLine()
    59. PPass = Console.ReadLine()
    61. Console.WriteLine()
    62. Console.WriteLine()
    63. Console.WriteLine(" processing Login ...")
    64. Threading.Thread.Sleep(2000)
    65. intlogin()
    66. Console.WriteLine()
    67. Console.WriteLine(" - Login Succes! -")
    69. Console.WriteLine()
    70. Console.WriteLine("-------------------------------------------------------")
    71. Console.WriteLine()
    74. FBProfil()
    75. Console.WriteLine("Profil besuchen")
    76. Console.ReadLine()
    79. End Sub
    81. Sub intlogin()
    83. Dim uri As New Uri("http://www.facebook.com/login.php?login_attempt=1")
    84. Dim cookieContainer As New CookieContainer()
    85. Dim FBData As FBLoginData
    87. ' Infos auslesen (Wegen Cookies)
    88. Dim sessionRequest As HttpWebRequest = DirectCast(WebRequest.Create(uri), HttpWebRequest)
    89. sessionRequest.CookieContainer = New CookieContainer()
    90. cookies = sessionRequest.CookieContainer
    91. sessionRequest.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.8.1.7) Gecko/20070914 Firefox/2.0.0.7"
    92. Dim sessionResponse As HttpWebResponse = DirectCast(sessionRequest.GetResponse(), HttpWebResponse)
    93. Dim checkReader As New StreamReader(sessionResponse.GetResponseStream())
    94. FBData = GetLoginData(PEmail, PPass, checkReader.ReadToEnd())
    95. checkReader.Close()
    96. sessionResponse.Close()
    98. ' Einloggen
    99. Dim loginData As String = "charset_test=" & FBData.charset & "&lsd=" & FBData.lsd & "&locale=de_DE&email=" & FBData.EMail & "&pass=" & FBData.Password & "&persistent=1&default_persistent=1&charset_test=" & FBData.charset & "&lsd=" & FBData.lsd
    100. Dim req As HttpWebRequest = DirectCast(HttpWebRequest.Create("http://www.facebook.com/login.php?login_attempt=1"), HttpWebRequest)
    101. req.CookieContainer = cookies
    102. req.Method = "POST"
    103. req.ContentType = "application/x-www-form-urlencoded"
    104. req.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.8.1.7) Gecko/20070914 Firefox/2.0.0.7"
    106. Dim encoding As New ASCIIEncoding()
    107. Dim loginDataBytes As Byte() = encoding.GetBytes(loginData)
    108. req.ContentLength = loginDataBytes.Length
    109. Dim stream As IO.Stream = req.GetRequestStream()
    110. stream.Write(loginDataBytes, 0, loginDataBytes.Length)
    111. stream.Close()
    112. Dim res As HttpWebResponse = DirectCast(req.GetResponse(), HttpWebResponse)
    113. Dim str As New StreamReader(res.GetResponseStream)
    115. My.Computer.FileSystem.WriteAllText("C:\debug\debugfb.html", str.ReadToEnd(), False)
    117. res.Close()
    119. End Sub
    122. Sub loginto()
    123. Dim logcookie As New CookieContainer
    124. Dim FBData As FBLoginData
    127. Dim fburl As String = "http://www.facebook.com/login.php?login_attempt=1"
    128. Dim request As HttpWebRequest = DirectCast(WebRequest.Create(fburl), HttpWebRequest)
    129. request.Method = "GET"
    130. logcookie = request.CookieContainer
    131. request.ContentType = "application/x-www-form-urlencoded"
    133. Dim sessionResponse As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
    134. Dim checkReader As New StreamReader(sessionResponse.GetResponseStream())
    135. FBData = GetLoginData(FBData.EMail, FBData.Password, checkReader.ReadToEnd())
    136. checkReader.Close()
    138. Dim loginData As String = "charset_test=" & FBData.charset & "&lsd=" & FBData.lsd & "&locale=de_DE&email=" & FBData.EMail & "&pass=" & FBData.Password & "&persistent=1&default_persistent=1&charset_test=" & FBData.charset & "&lsd=" & FBData.lsd
    139. Dim req As HttpWebRequest = DirectCast(HttpWebRequest.Create("http://www.facebook.com/login.php?login_attempt=1"), HttpWebRequest)
    140. req.CookieContainer = cookies
    141. req.Method = "POST"
    142. req.ContentType = "application/x-www-form-urlencoded"
    143. req.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.8.1.7) Gecko/20070914 Firefox/2.0.0.7"
    145. Dim encoding As New ASCIIEncoding()
    146. Dim loginDataBytes As Byte() = encoding.GetBytes(loginData)
    147. req.ContentLength = loginDataBytes.Length
    148. Dim stream As IO.Stream = req.GetRequestStream()
    149. stream.Write(loginDataBytes, 0, loginDataBytes.Length)
    150. stream.Close()
    156. End Sub
    157. Sub FBProfil()
    158. Dim profilcoock As New CookieContainer
    160. Dim request As HttpWebRequest = DirectCast(WebRequest.Create("http://www.facebook.com/profile.php?id=100003177993836"), HttpWebRequest)
    161. request.CookieContainer = cookies
    162. request.Method = "POST"
    163. request.ContentType = "application/x-www-form-urlencoded"
    164. request.UserAgent = "Mozilla/5.0 (Windo"
    166. '
    168. Dim res As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
    169. cookies.Add(res.Cookies)
    170. Dim str As New StreamReader(res.GetResponseStream)
    172. My.Computer.FileSystem.WriteAllText("C:\debug\debugfbprof.html", str.ReadToEnd(), False)
    174. res.Close()
    179. Return
    180. End Sub
    181. End Module


    Jetzt funktioniert der Login, und die Cookies werden gespeichert,
    Hab Testweise mal die zweite Funktion FBProfil() gestartet...
    Nun bin ich zwar eingeloggt aber es kommt der Fehler von Facebook "Leider konnte deine Anfrage nicht bearbeitet werden." ....
    was ist nun schief gelaufen.