Hallo liebe .Net Programmierer....
Ich melde mich mal wieder mit einer meiner Probleme bei euch.
Wie auch immer... ich versuche seit ugf. 2 Stunen ein auf HttpWebRequest basiertes "http://www.ask.fm/" login zu programmieren.
Jedoch klappt irendwie garnichts!
Hier ist mal mein SourceCode den ich bisjetzt geschrieben habe.....
Button.-Click Event
Http.-Klasse
Jedoch bekomme ich beim ausprobieren entweder einen "404" NotFound oder einfach wieder die LoginPage zurück... aber passieren tut rein garnichts!
evtl. weiß ja jemand von euch woran das liegt...
ach ja hier noch der HttpLiveHeader (Anhang)
Ich melde mich mal wieder mit einer meiner Probleme bei euch.
Wie auch immer... ich versuche seit ugf. 2 Stunen ein auf HttpWebRequest basiertes "http://www.ask.fm/" login zu programmieren.
Jedoch klappt irendwie garnichts!
Hier ist mal mein SourceCode den ich bisjetzt geschrieben habe.....
Button.-Click Event
VB.NET-Quellcode
- Dim Http As New HttpClass
- Dim Source As String = String.Empty
- Source = Http.send_request("http://www.ask.fm/")
- Dim Token As String = System.Text.RegularExpressions.Regex.Match(Source, " var AUTH_TOKEN = ""(?<id>.*?)"";").Groups("id").Value.ToString
- Token = Http.URLEncode(Token)
- Source = Http.send_request("http://www.ask.fm/session/", "authenticity_token=" & Token & "&login=" & "USERNAME" & "&password=" & "PASSWORD" & "&follow=&like=&back=&authenticity_token=" & Token, "http://www.ask.fm/")
Http.-Klasse
VB.NET-Quellcode
- Public Class HttpClass
- Dim request As HttpWebRequest
- Dim response As HttpWebResponse
- Dim CookieCon As New CookieContainer()
- Public Function send_request(ByVal url As String, Optional ByVal post As String = Nothing, Optional ByVal ref As String = Nothing) As String
- Try
- request = CType(HttpWebRequest.Create(url), HttpWebRequest)
- request.AllowAutoRedirect = True
- request.KeepAlive = True
- request.UserAgent = "Mozilla/5.0 (Windows NT 5.1; rv:15.0) Gecko/20100101 Firefox/15.0"
- request.CookieContainer = CookieCon
- request.ContentType = "application/x-www-form-urlencoded; charset=UTF-8"
- request.Method = "GET"
- request.Referer = ref
- If post <> Nothing Then
- request.Method = "POST"
- Dim bArray() As Byte = System.Text.Encoding.Default.GetBytes(post)
- request.ContentLength = bArray.Length
- Dim dStream As Stream = request.GetRequestStream
- dStream.Write(bArray, 0, bArray.Length)
- dStream.Close()
- End If
- response = CType(request.GetResponse, HttpWebResponse)
- Dim reader As New IO.StreamReader(response.GetResponseStream)
- Dim source As String = reader.ReadToEnd
- Return source
- Catch ex As Exception
- Return ex.Message.ToString
- End Try
- End Function
- Public Function URLEncode(ByVal StringToEncode As String, Optional ByVal _
- UsePlusRatherThanHexForSpace As Boolean = False) As String
- Dim TempAns As String = ""
- Dim CurChr As Integer
- CurChr = 1
- Do Until CurChr - 1 = Len(StringToEncode)
- Select Case Asc(Mid$(StringToEncode, CurChr, 1))
- Case 48 To 57, 65 To 90, 97 To 122
- TempAns = TempAns & Mid$(StringToEncode, CurChr, 1)
- Case 32
- If UsePlusRatherThanHexForSpace = True Then
- TempAns = TempAns & "+"
- Else
- TempAns = TempAns & "%" & Hex(32)
- End If
- Case Else
- TempAns = TempAns & "%" & Hex(Asc(Mid$(StringToEncode, _
- CurChr, 1)))
- End Select
- CurChr = CurChr + 1
- Loop
- URLEncode = TempAns
- End Function
- End Class
Jedoch bekomme ich beim ausprobieren entweder einen "404" NotFound oder einfach wieder die LoginPage zurück... aber passieren tut rein garnichts!
evtl. weiß ja jemand von euch woran das liegt...
ach ja hier noch der HttpLiveHeader (Anhang)