Hallo,
mit folgender Funktion kann ich problemlos einen Postrequest inkl. Cookie senden und bekomme auch die richtige Antwort. Gleiches gilt für einen GetRequest. Leider wird beim Getrequest kein Cookie mitgesendet. Wenn ich den Live Http Headers auswerte sehe ich, dass beim Getrequest auf der Seite ein Sessioncookie mitgesendet wird. Ich habe das Sessioncookie zwar im Container, schaffe es aber nicht es mitzusenden. Kann mir da wer helfen?
mit folgender Funktion kann ich problemlos einen Postrequest inkl. Cookie senden und bekomme auch die richtige Antwort. Gleiches gilt für einen GetRequest. Leider wird beim Getrequest kein Cookie mitgesendet. Wenn ich den Live Http Headers auswerte sehe ich, dass beim Getrequest auf der Seite ein Sessioncookie mitgesendet wird. Ich habe das Sessioncookie zwar im Container, schaffe es aber nicht es mitzusenden. Kann mir da wer helfen?
VB.NET-Quellcode
- Public Function Req(ByVal Site As String, ByVal referer As String, ByVal Met As String, Optional ByVal P As String = "") As String
- Dim Response As String = String.Empty
- Try
- Dim R As HttpWebRequest = CType(HttpWebRequest.Create(Site), HttpWebRequest)
- R.Method = Met
- R.CookieContainer = New CookieContainer
- R.AllowAutoRedirect = False
- R.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:13.0) Gecko/20100101 Firefox/13.0.1"
- R.ContentType = "application/x-www-form-urlencoded"
- R.CookieContainer.SetCookies(Serienbrief.WebBrowser1.Document.Url, Serienbrief.GetGlobalCookies(Serienbrief.WebBrowser1.Document.Url.AbsoluteUri))
- 'MessageBox.Show(CookieContainerToString(R.CookieContainer))
- 'R.Accept = "application/x-ms-application, image/jpeg, application/xaml+xml, image/gif, image/pjpeg, application/x-ms-xbap, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*"
- 'R.AllowAutoRedirect = True
- R.Referer = referer
- If Met = "POST" Then
- R.ContentLength = P.Length
- Dim Wr As New StreamWriter(R.GetRequestStream(), System.Text.Encoding.Default)
- Wr.Write(P)
- Wr.Close()
- End If
- Dim Re As New StreamReader(R.GetResponse.GetResponseStream())
- Response = Re.ReadToEnd
- Re.Close()
- Catch ex As Exception
- MessageBox.Show(ex.ToString)
- End Try
- Return Response
- End Function