Dim httpRequest2 As HttpWebRequest = HttpWebRequest.Create( _
  "http://api.recaptcha.net/noscript?k=6LffAwwAAAAAAHYaV40t4RX1Ngqv2ip1X84SlMQ" & _
  "")
    	Dim httpResponse As HttpWebResponse = httpRequest2.GetResponse()
    	Dim reader As StreamReader = New StreamReader( _
      httpResponse.GetResponseStream)
    	Dim httpContent As String = reader.ReadToEnd
 
    	Dim adressenstring As New Regex("\<img id=\""recaptcha_image\""" & _
      "width=\""300\"" height=\""57\"" alt=\""\"" src=\""/image\?c=(?<String>(" & _
      ".*))\"">\<\/center>\<\/td\>")
    	Dim Adresse As String = adressenstring.Match(httpContent).Groups( _
    "String").ToString()
'Adresse ist der Link zum Captcha, den ich dan weiterverwenden will
 
    	Dim httpRequest As HttpWebRequest = HttpWebRequest.Create(Link.Text) _
      'Seite wo Captcha URL gebraaucht wird
    	httpRequest.Method = "POST"
    	httpRequest.ContentType = "application/x-www-form-urlencoded"
    	Dim Post As String = "LINK" 'Link URL
    	Dim byteArray() As Byte = Encoding.UTF8.GetBytes(Post)
    	httpRequest.ContentLength = byteArray.Length
    	Dim DataStream As Stream = httpRequest.GetRequestStream()
    	DataStream.Write(byteArray, 0, byteArray.Length)
    	DataStream.Close()
 
    	Dim Response As HttpWebResponse = httpRequest.GetResponse()
    	DataStream = Response.GetResponseStream()
    	Dim reader2 As New StreamReader(DataStream)
    	Dim ServerResponse As String = reader2.ReadToEnd()
    	reader2.Close()
    	DataStream.Close()
    	Response.Close()
 
    	If InStr(ServerResponse, "Signout") Then
        	MessageBox.Show("Alles OK")
    	Else
        	MessageBox.Show("Fehler")
    	End If