Support Forums

Full Version: how to display google captcha picture on form and add to textbox hit ok to bypass
You're currently viewing a stripped down version of our content. View the full version with proper formatting.
Hi my friends.
Can someone help me and show or make simple tutorial how to add google captcha on form and then you type it in textbox hit ok button to access and bypass it from blocking proxy.
Cuz when is blocking google captcha then program becomes not active.
It just shows blank page with not responding.
Cuz google blocks me for about 2 or 3 hours and i can't do anything cuz it does nothing after that.

I'm creating google scraper program it is almost done but i can't bypass google catcha and the program hangs and shows not responding.

If someone knows how to fix these 2 problems.

This is just part of code cuz it is main.
Maybe i need better regex code to not to do not responding.

I'm using this code on timer.
I set interval on 1000 tried of course to change to bigger number but it still hangs program for about 2 or 3 seconds and then it starts working correctly.

And the second code i need for google captcha bypass from picturebox and access it using ok button to bypass.

I hope you understand what i mean.

Code:
Try
            Dim httpRequest As HttpWebRequest = HttpWebRequest.Create("http://www.google.lt/search?num=100&q=" & TextBox1.Text & "&start=" & i * 100)
            Dim httpResponse As HttpWebResponse = httpRequest.GetResponse()
            Dim reader As StreamReader = New StreamReader(httpResponse.GetResponseStream)
            Dim httpContent As String = reader.ReadToEnd
           Dim pattern1 As String = "(?:(?:(?:http|ftp|gopher|telnet|news)://)(?:w{3}\.)?(?:[a-zA-Z0-9/;\?=:\-_\$\+!\*'\(\|\\~\[\]\.])+)"
            For Each m As Match In Regex.Matches(httpContent, pattern1, RegexOptions.Singleline Or RegexOptions.IgnoreCase)
                Dim value As String = m.Groups(0).Value
                If Not value.Contains("google") Then
                    ListBox1.Items.Add(m.Groups(0).ToString())
                End If
            Next
        Catch ex As Exception
        End Try