Guten Tag....
Ich muss zugeben ich habe diese Frage zunächst in 2 anderen Foren gestellt, da ich einfach mal ein anderes Forum ausprobieren wollte. Nun da ich nach längerer Zeit dennoch nicht zu einem Ergebniss kam, lag nicht unbedingt am Forum, kann auch an mit liegen :D, stelle ich die Frage nun hier auch nochmal.
Und zwar versuche ich seit einiger Zeit mich per HttpWebRequest auf ICQ einzuloggen.
Allerdings gelingt mir dies nicht, und ich bin momentan ratlos.
Hier ist mal mein momentaner Code:
Es scheint beim "Post" welcher an die ICQ Seite gesendet wird zu hapern, da nach der Log-Datei lediglich die ICQ-Nummer eingetragen ist.
Vielleicht wäre jemand so freundlich sich mal meinen Code anzuschauen, um mir eventuell weiterzuhelfen.
Mit freundlichen Grüßen.
Ich muss zugeben ich habe diese Frage zunächst in 2 anderen Foren gestellt, da ich einfach mal ein anderes Forum ausprobieren wollte. Nun da ich nach längerer Zeit dennoch nicht zu einem Ergebniss kam, lag nicht unbedingt am Forum, kann auch an mit liegen :D, stelle ich die Frage nun hier auch nochmal.
Und zwar versuche ich seit einiger Zeit mich per HttpWebRequest auf ICQ einzuloggen.
Allerdings gelingt mir dies nicht, und ich bin momentan ratlos.
Hier ist mal mein momentaner Code:
VB.NET-Quellcode
- Private Sub KeyAuslesen()
- Dim myReq As HttpWebRequest = WebRequest.Create("https://www.icq.com/karma/login_page.php")
- Dim httpResponse As HttpWebResponse = myReq.GetResponse()
- Dim reader As StreamReader = New StreamReader(httpResponse.GetResponseStream)
- Dim httpContent As String = reader.ReadToEnd
- Dim ipRegEx As New Regex("\<input type=\""hidden\"" name=\""icq_ln\"" value=\""(?<read>(.*))\""\>")
- Dim Wert As String = ipRegEx.Match(httpContent).Groups("read").ToString()
- myReq.CookieContainer = Containa
- myReq.ContentType = "application/x-www-form-urlencoded"
- ICQIN = Wert
- End Sub
- Private Sub Login()
- Dim myReq As HttpWebRequest = WebRequest.Create("https://www.icq.com/karma/login_page.php")
- Dim parameterRequest As String = "dest=http%3A%2F%2Fwww.icq.com&service=30&icq_ln=" & ICQIN & "&uin_email=Icqnummer&password=Passwort"
- Dim parameter() As Byte = Encoding.UTF8.GetBytes(parameterRequest)
- myReq.Method = "POST"
- myReq.CookieContainer = Containa
- myReq.Headers("useragent") = "Mozilla/5.0 (Windows; U; Windows NT 6.1; de; rv:1.9.2.8) Gecko/20100722 Firefox/3.6.8"
- myReq.ContentType = "application/x-www-form-urlencoded"
- myReq.ContentLength = parameter.Length
- Dim requestStream As Stream = myReq.GetRequestStream
- requestStream.Write(parameter, 0, parameter.Length)
- requestStream.Close()
- Dim response As HttpWebResponse = CType(myReq.GetResponse(), HttpWebResponse)
- Dim responseStream As Stream = response.GetResponseStream
- Dim streamReader As StreamReader = New StreamReader(responseStream)
- Me.Text = (streamReader.ReadToEnd)
- My.Computer.FileSystem.WriteAllText("C:\Users\...\Desktop\Log.html", Me.Text, False)
- streamReader.Close()
- responseStream.Close()
- End Sub
Es scheint beim "Post" welcher an die ICQ Seite gesendet wird zu hapern, da nach der Log-Datei lediglich die ICQ-Nummer eingetragen ist.
Vielleicht wäre jemand so freundlich sich mal meinen Code anzuschauen, um mir eventuell weiterzuhelfen.
Mit freundlichen Grüßen.