hallo ich steh mal wieder vor ein kleines Problem ,
ich habe eine function und bevor ich diese aus führe möchte ich mich mit ein Proxy verbinden
das läuft alles mit httpwebrequest
ich habe das ganze mal getestet mit wieistmeineip.de
und es hat geklappt er hat mir die ip vom Proxy ausgegeben.
Aber wenn ich das mit meiner Function mache geht es nicht warum ?
Code :
also sobald ich die Function aufrufe bekomm ich vom Remot Server hat ein Fehler zurückgegeben (500) interner ServerFehler
LG freue mich auf Antworten
ich habe eine function und bevor ich diese aus führe möchte ich mich mit ein Proxy verbinden
das läuft alles mit httpwebrequest
ich habe das ganze mal getestet mit wieistmeineip.de
und es hat geklappt er hat mir die ip vom Proxy ausgegeben.
Aber wenn ich das mit meiner Function mache geht es nicht warum ?
Code :
VB.NET-Quellcode
- Imports System.Threading, System.Net, System.IO, System.Text.RegularExpressions
- Public Class Form1
- Public containa As New CookieContainer
- Public Actu As Thread
- Dim wc As New Net.WebClient
- Public Function req(ByVal site As String, ByVal post As String, ByVal met As String) As String
- Dim r As HttpWebRequest = CType(HttpWebRequest.Create(site), HttpWebRequest)
- r.Method = met
- r.UserAgent = "Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:15.0) Gecko/15.0 Firefox/15.0a1"
- r.ContentType = "application/x-www-form-urlencoded"
- r.AllowAutoRedirect = True
- r.CookieContainer = containa
- r.Proxy = New WebProxy("201.64.254.228", 3128)
- If r.Method = "POST" Then
- Dim i As New StreamWriter(r.GetRequestStream(), System.Text.Encoding.Default)
- i.Write(post)
- i.Close()
- End If
- Dim t As New StreamReader(r.GetResponse.GetResponseStream())
- Dim l As String = t.ReadToEnd
- t.Close()
- Return l
- End Function
- Public Function Buchen() As Boolean
- Dim token As String = Regex.Match("https://center.vodafone.de/vfcenter/index.html?", "name=""timeToken"" value=""([^""]+)").Groups(1).Value
- Dim Buch As String = req("https://center.vodafone.de/vfcenter/upgrade-buchen.html?timeToken=" & token & "&speedbucket=zh5", "", "POST")
- Return Buch.Contains("Sie haben ihr Vodafone MobileInternet Upgrade 5 GB erfolgreich gebucht!") AndAlso Not Buch.Contains("Leider ist bei der Bearbeitung ein Fehler aufgetreten.")
- End Function
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- 'Dim s As String = req("http://whatismyipaddress.com/", "", "GET") ' das geht damit habe ich es getestet
- 'RichTextBox1.Text &= s
- Buchen()
- End Sub
- End Class
also sobald ich die Function aufrufe bekomm ich vom Remot Server hat ein Fehler zurückgegeben (500) interner ServerFehler
LG freue mich auf Antworten