das ist mein momentaniger quellcode
die funktion gibt:
1 wenn alles geklappt hat
0 wenn ein Fehler aufgetreten ist
-1 wenn ein Captcha vorhanden ist

ich kenne mich leider nicht soo gut mit dem Zeug aus. Ich glaube in den Cookies werden bestimmte strings übergeben, die ich beim betrachten des captchas behalten muss, vlt kann ja mal jemand drüber schauen =)

Code:
 Public Function GBEintrag(ByVal Name As String, ByVal Text As String) As Integer
        Try
            Dim rq As HttpWebRequest = CType(WebRequest.Create("http://www.jappy.de/user/" & Name & "/gb"), HttpWebRequest)
            rq.CookieContainer = Coocki_C
            rq.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; de; rv:1.9.2.4) Gecko/20100611 Firefox/3.6.4"
            rq.Method = "POST"
            Text = Text.Replace(" ", "+")
            rq.ContentType = "application/x-www-form-urlencoded"
            Dim PostString As String = "gb%5Bts%5D=1277037044&gb%5Bkey%5D=9622effe165f076a1c9ad1b6687ad018&gb%5B9622effe165f076a1c9ad1b6687ad018%5D%5Btext%5D=" & Text & "+%3D%29"
            Dim b() As Byte = Encoding.UTF8.GetBytes(PostString)
            rq.ContentLength = b.Length
            Dim DS As Stream = rq.GetRequestStream()
            DS.Write(b, 0, b.Length)
            DS.Close()
            Dim reader As New StreamReader(rq.GetResponse.GetResponseStream())
            Dim Quellcode As String = reader.ReadToEnd()
            reader.Close()
            DS.Close()
            rq.GetResponse.GetResponseStream.Close()
            ' My.Computer.Clipboard.SetText(ServerResponse)
            If InStr(Quellcode, "Captcha") Then
                Return -1
            Else
                Return 1
            End If
        Catch ex As Exception
            Return 0
        End Try
    End Function