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