TECHNOLOGIES
FORUMS
JOBS
BOOKS
EVENTS
INTERVIEWS
Live
MORE
LEARN
Training
CAREER
MEMBERS
VIDEOS
NEWS
BLOGS
Sign Up
Login
No unread comment.
View All Comments
No unread message.
View All Messages
No unread notification.
View All Notifications
Answers
Post
An Article
A Blog
A News
A Video
An EBook
An Interview Question
Ask Question
Forums
Monthly Leaders
Forum guidelines
Dav Lewis
NA
8
5.6k
How can I display a captcha image in a picture box
Jul 27 2014 4:38 AM
Hi
I've just started trying to learn visual basic and I'm trying to to display a captcha image in a picture box.
The site Im trying to make the desktop app for is https://emkei.cz/
Here is the code that I've done so far.
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Call navigatetosite()
End Sub
Private Sub navigatetosite()
Try
WebBrowser1.Navigate("https://emkei.cz/", False)
While WebBrowser1.Readystate <> WebBrowserReadyState.Complete
Application.DoEvents()
End While
Call getcaptcha()
Catch ex As Exception
MsgBox(ex.StackTrace)
End Try
End Sub
Private Sub getcaptcha()
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("scr").ToString.Contains("https://www.google.com/recaptcha/api/") Then
imgRange.add(img)
imgRange.execCommand("copy", False, Nothing)
PictureBox1.Image = Clipboard.GetDataObject.GetData(DataFormats.Bitmap)
Exit For
End If
Next
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
WebBrowser1.Document.GetElementById("fromname").SetAttribute("value", TextBox1.Text)
End Sub
Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
WebBrowser1.Document.GetElementById("from").SetAttribute("value", TextBox2.Text)
End Sub
Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged
WebBrowser1.Document.GetElementById("rcpt").SetAttribute("value", TextBox3.Text)
End Sub
Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged
WebBrowser1.Document.GetElementById("subject").SetAttribute("value", TextBox4.Text)
End Sub
Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles TextBox5.TextChanged
WebBrowser1.Document.GetElementById("text").SetAttribute("value", TextBox5.Text)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
WebBrowser1.Document.GetElementById("btn").InvokeMember("click")
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
End Sub
Private Sub TextBox6_TextChanged(sender As Object, e As EventArgs) Handles TextBox6.TextChanged
WebBrowser1.Document.GetElementById("recaptcha_response_field").SetAttribute("value", TextBox6.Text)
End Sub
End Class
Like I say I've just started so all help and advice would be very much appreciated.
Thank You
Reply
Answers (
7
)
Compare Files in Two Directories using C# by reading XML
Remove unwanted Text before and after a character in .csv