+- Support Forums (https://www.supportforums.net)
+-- Forum: Categories (https://www.supportforums.net/forumdisplay.php?fid=87)
+--- Forum: Coding Support Forums (https://www.supportforums.net/forumdisplay.php?fid=18)
+---- Forum: Visual Basic and the .NET Framework (https://www.supportforums.net/forumdisplay.php?fid=19)
+---- Thread: how to display google captcha picture on form and add to textbox hit ok to bypass (/showthread.php?tid=27098)
how to display google captcha picture on form and add to textbox hit ok to bypass - polas - 09-14-2012
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