Как бы вы установили флажок «Я не робот» с Visual Basic? - PullRequest
Новая
       8

Как бы вы установили флажок «Я не робот» с Visual Basic?

0 голосов
/ 27 августа 2018

Можно ли использовать Visual Basic, чтобы установить флажок «Я не робот» с помощью Visual Basic.

enter image description here

Вот код, который я пробовал: 

ie.Document.getElementById("recaptcha-checkbox-checkmark").Click

Приведенный выше код был использован после создания объекта ie следующим образом: 

Sub DoBusinessSearch()
    Dim strResults As String
    Dim ofacname As String
    ofacname = Excel.Range("Company").Value
    Application.ScreenUpdating = True

    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.Navigate "https://mycpa.cpa.state.tx.us/coa/Index.html"
    ie.Fullscreen = True
    Application.StatusBar = "Submitting"
    ' Wait while IE loading...
    While ie.Busy
        DoEvents
    Wend
    ' **********************************************************************
    delay 1
    ie.Document.getElementById("entityName").Value = ofacname
    delay 1
    ie.Document.getElementById("recaptcha-checkbox-checkmark").Click
    delay 1
    ie.Document.getElementById("search").Click
    Application.SendKeys "(%{1068})"

    '**********************************************************************
...