不要用遍历 图片很多 会慢很多 
每张图片ID 或者name 都可以唯一这样写的 无效 ID 和名字 都试过 
<img name="18942" id="18942" src="*******" ONCLICK="****" >
ONCLICK 已经试验过了 正确的 现在就是这里 点击了无效
WebBrowser1.Document.images(clickimg).Click

解决方案 »

  1.   

    TMD 自己解决了 来人 散分
    这里用IDWebBrowser1.Document.images(clickimg).Click 
    改为
    webbrowser1.document.getElementById("ID号").click
      

  2.   

    '┏〓〓〓〓〓〓〓〓〓 ClickDocById,start 〓〓〓〓〓〓〓〓〓┓
    '[简介]:
    '按ID点击网页元素
    Function ClickDocById(Doc As HTMLDocument, ById As String) As Boolean
       '[mycode_id:1883],edittime:2011-6-26 下午 12:26:50
       On Error GoTo Err
       Doc.getElementById(ById).Click
       ClickDocById = True
       Exit Function
       Err:
    End Function
    '┗〓〓〓〓〓〓〓〓〓  ClickDocById,end  〓〓〓〓〓〓〓〓〓┛