[VB]Webrequest recaptcha klappt nicht

[Hanteken]

Wenn ich das mit diesem Code mache bekomme ich 2 verschiedene captchas.

Dim r As HttpWebRequest = HttpWebRequest.Create("http://freebitco.in/")
        r.CookieContainer = cookiecon
        Dim re As HttpWebResponse = r.GetResponse()
        Dim response As HttpWebResponse = DirectCast(r.GetResponse, HttpWebResponse)
        Using sr As New StreamReader(response.GetResponseStream)
            Dim input As String = sr.ReadToEnd
            Dim apiURL As String = GetStringBetween(input, "src=""http://www.google.com/recaptcha/api/challenge?k=", """")

            Dim r2 As HttpWebRequest = HttpWebRequest.Create("http://www.google.com/recaptcha/api/challenge?k=" & apiURL)
            r2.CookieContainer = cookiecon
            Dim re2 As HttpWebResponse = r2.GetResponse()
            Dim response2 As HttpWebResponse = DirectCast(r2.GetResponse, HttpWebResponse)
            Using sr2 As New StreamReader(response2.GetResponseStream)
                Dim input2 As String = sr2.ReadToEnd
                Dim captchaimg As String = GetStringBetween(input2, "challenge : '", "',")
                Dim captchaurl As String = ("http://www.google.com/recaptcha/api/image?c=" & captchaimg)
                TextBox1.Text = captchaimg
                PictureBox1.Load(captchaurl)
                WebBrowser1.DocumentText = input
                Timer1.Stop()
            End Using
        End Using
    End Sub

[MrSm!th]

#moved

[b0tterk2]

Warum auch doppelt?:

  Dim re2 As HttpWebResponse = r2.GetResponse()
            Dim response2 As HttpWebResponse = DirectCast(r2.GetResponse, HttpWebResponse)

[Hanteken]

funzt immer noch nicht :I

[Razor']

PM - me! Kann dir helfen.