Code:
WebBrowser1.GetElementsByID("txtaccountid").innertext = Textbox1.Textbox
WebBrowser1.GetElementsByID("txtpassword").innertext = Textbox2.Textbox
WebBrowser1.GetElementsByID("txtpasswordconfimation").innertext = Textbox2.Textbox
WebBrowser1.GetElementsByID("txtemail").innertext = Textbox3.Textbox
WebBrowser1.GetElementsByID("txtemailconfimation").innertext = Textbox3.Textbox
WebBrowser1.GetElementsById("txtfirstname").innertext = textbox4.textbox
Webbrowser1.Getelelementbyid("txtlastname").innertext = textbox5.text
use my Yahoo Captcha Example to grab CA captcha or if it allows use the other 2 examples I provided, and now you have a CA account creator
Hejsan1 CA Captcha Code
Code:
If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
If PictureBox1.ImageLocation = Nothing Then
Dim theElementCollection As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("img")
For Each curElement As HtmlElement In theElementCollection
Dim imgURL As String = curElement.GetAttribute("src").ToString
If imgURL.Contains("https://passport.nexoneu.com/img/") then
PictureBox1.ImageLocation = imgURL
End If
Next
End If
End If
Code:
If PictureBox1.ImageLocation = Nothing Then
Dim theElementCollection As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("img")
For Each curElement As HtmlElement In theElementCollection
Dim imgURL As String = curElement.GetAttribute("src").ToString
If imgURL.Contains("https://ab.login.yahoo.com/img/") Then 'And WebBrowser1.Document.GetElementById("cimg").Id Then
PictureBox1.ImageLocation = imgURL
End If
Next