请问如何模拟点击网页中某个已知标签的超链接

Question

<A class=W_btn_b href="javascript:;" action-type="searchBtn" action-data="type=1"><SPAN>查找</SPAN> </A>
如题，链接源码如上，纠结了很久还是没解决，还望高手指点。

Answer 1

1、使用Findwindow查找网页窗口的句柄
2、使用FindWindowEx查找“查找”按钮的句柄
3、使用PostMessage发送单击消息

Answer 2

遍历满足条件的窗口
 for Each objIE In dWinFolder '遍历每个浏览器窗口
  If InStr(1, objIE.FullName, "IEXPLORE.EXE", vbTextCompare) <> 0 Then
     Set objDoc = objIE.Document
     For Each objlink In objDoc.links
                 If InStr(objlink.innertext, "查找") > 0 Then
                      objlink.Click
                 End If
     next
  end if
 Next
记得引用 Microsoft Internet control