您将如何单击带有Visual Basic的“我不是机器人”复选框？

Question

是否可以使用Visual Basic使用Visual Basic单击“我不是机器人”复选框。

这是我尝试的代码：

Sub G()
    Dim rng As Range, lr, rngCopy As Range
    Set rng = Range("A1").CurrentRegion
    rng.Sort key1:=rng(2), Order1:=xlDescending, Header:=xlYes
    lr = Columns("B:B").Find("Y", SearchDirection:=xlPrevious).Row
    Set rngCopy = Range("A1:B" & lr)
    '//Copy results to new sheet
    With Sheets.Add(After:=Sheets(Sheets.Count))
        .Cells(1).Resize(rngCopy.Rows.Count, rngCopy.Columns.Count).Value = rngCopy.Value
    End With
End Sub

上面的代码是在创建ie对象之后使用的，如下所示：

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