Exclusive Sub WebBrowser2_DocumentComplete(ByVal pDisp As Item, URL As Variant)On Mistake Application NextIf InStr(1, WebBrowser2

Exclusive Sub WebBrowser2_DocumentComplete(ByVal pDisp As Item, URL As Variant)On Mistake Application NextIf InStr(1, WebBrowser2

Document.body.innertext, “Boxer”) Next WebBrowser2.Document.GetElementById(“FirstName”).innertext = Text1.TextElseIf InStr(1, WebBrowser2.Document.body.innertext, “form the figures you see for the picture below.”) After that WebBrowser2.Document.GetElementById(“FirstName”).innertext = Text1.Text WebBrowser2.Document.GetElementById(“LastName”).innertext = Text2.Text WebBrowser2.Document.GetElementById(“Email”).innertext = Text3.Text WebBrowser2.Document.GetElementById(“Passwd”).innertext = Text4.Text WebBrowser2.Document.GetElementById(“PasswdAgain”).innertext = Text4.Text WebBrowser2.Document.GetElementById(“questions”).Value = Combo1.Text WebBrowser2.Document.GetElementById(“IdentityAnswer”).innertext = Text5.Text WebBrowser2.Document.GetElementById(“SecondaryEmail”).innertext = Text6.Text WebBrowser2.Document.GetElementById(“birthday celebration”).innertext = Text7.Text Status.Caption = “Type In Captcha and then click build.”

“Exclusive Sub WebBrowser2_DocumentComplete(ByVal pDisp As Item, URL As Variant)On Mistake Application NextIf InStr(1, WebBrowser2” の続きを読む