如何点击网页图片链接并触发onclick事件完成自动化操作

你现有代码的核心问题有两个：

1. 点击groupPayment后页面为局部动态刷新，原有的readyState判断仅支持整页加载识别，无法感知动态渲染的支付选项元素，执行图片遍历时元素还未加载完成，自然匹配不到目标
2. 图片路径采用全量精确匹配，浏览器会自动把相对路径/HPPDP/hpp/images/ca_visa.png转为带域名的绝对路径，导致匹配失败

可用修改方案 #

方案1：点击单选按钮（推荐，稳定性更高） #

单选按钮的属性不会频繁变更，比匹配图片路径可靠，修改后的完整代码如下：

Sub AirCan()
    Dim HTMLInput As MSHTML.IHTMLElement
    Dim HTMLDoc As MSHTML.HTMLDocument
    Dim MyBrowser As InternetExplorer
    Dim MyURL As String
    Dim element As Object
    Dim waitTime As Integer
    
    On Error GoTo Err_Clear
    MyURL = "https://XXXXXXXXXX.com/en/XXXXXXXXXXXXX"
    Set MyBrowser = New InternetExplorer
    MyBrowser.Silent = True
    MyBrowser.navigate MyURL
    MyBrowser.Visible = True
    
    ' 等待整页加载完成
    Do While MyBrowser.readyState <> READYSTATE_COMPLETE Or MyBrowser.Busy
        DoEvents
    Loop
    
    Set HTMLDoc = MyBrowser.document
    HTMLDoc.all.paymentAmount.Value = "111"
    HTMLDoc.all.groupPayment.Click
    
    ' 新增动态内容等待，最多等10秒
    waitTime = 0
    Do While HTMLDoc.getElementsByTagName("input").Length = 0 And waitTime < 10
        Application.Wait (Now + TimeValue("0:00:01"))
        waitTime = waitTime + 1
        DoEvents
    Loop
    
    ' 定位单选按钮，此处替换为你实际单选按钮的name和对应value即可
    For Each element In HTMLDoc.getElementsByTagName("input")
        If element.Type = "radio" And element.Value = "visa" Then ' 这里的value替换为你要选的单选对应值
            element.Click
            Exit For
        End If
    Next
    
Err_Clear:
    If Err <> 0 Then
        Err.Clear
        Resume Next
    End If
    ' 后续自动化逻辑写在此处
End Sub

方案2：点击图片（适配原有逻辑） #

如果你需要沿用点击图片的逻辑，修改路径匹配规则即可，把原有遍历图片的代码替换为以下内容：

For Each element In HTMLDoc.getElementsByTagName("img")
    ' 改用模糊匹配，避免相对转绝对路径导致匹配失败
    If InStr(1, element.src, "ca_visa.png", vbTextCompare) > 0 Then
        ' 部分网站点击事件绑定在图片父元素上，点击父元素兼容性更好
        element.ParentElement.Click
        Exit For
    End If
Next

操作说明：

• 方案1中单选按钮的value可以通过浏览器F12开发者工具，选中对应单选按钮查看元素属性获取
• 如果点击后没有反应，可以给点击操作后加1秒等待，确保事件触发完成再执行后续逻辑

内容的提问来源于stack exchange，提问作者Ajit Mahal