How to get Captcha to Picturebox

sontqq

Newbie
Joined
Feb 28, 2013
Messages
13
Reaction score
1
Helo guys!


I have decided to make my own autosurf bot, but I am stucked and I need your help!


So I'm at the very beginning of the bot. Especially I want to get the Captcha image into a Picturebox after the webpage fully loaded. I've tried Google it and found a lot of code snippets but did not find them work.


My bot basicly would do this:
1. On form load: open a webpage
2. After fully loaded, show the Captcha in a picturebox
3. Then Submit the Login informations
4. Then the bot should open a Page, wait 15 seconds, then open another one.


I could do all these but that captcha thing is a little hard for me.


If you can help me I will post the Bot on the forum.
It is for a Brand New website where you can earn money by clicking on ads.
I hope you guys can help me.
Sorry for my bad english, it isnt my native. (Greetings from Hungary :p)


Regards, sOnt

 
It is for a webpage and I would code it in VB.Net for Windows.
 
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Call getcaptcha()
End Sub


Private Sub captcha()
Dim Doc As mshtml.IHTMLDocument2 = WebBrowser1.Document.DomDocument
Dim ImgRange As mshtml.IHTMLControlRange = CType(Doc.body, mshtml.HTMLBody).createControlRange
For Each Img As mshtml.IHTMLImgElement In Doc.images
If Img.getattribute("src").ToString.Contains("****/login/captcha_image") Then
ImgRange.add(Img)
ImgRange.execCommand("Copy", False, Nothing)
PictureBox1.Image = Clipboard.GetDataObject.GetData(DataFormats.Bitmap)
Exit For
End If
Next
End Sub

I have already tried this, but no success, nothing happens to the Picturebox. Any idea? :-/
 
I am going to look into it but Im afraid im not that good at coding to implement 3rd party APIs :(
 
Back
Top