如何让WebBrowser中的所有链接都在新窗口中打开

Question

本帖最后由 cnlomo 于 2009-07-13 17:15:48 编辑

Answer 1

提供个思路：
1、前提需要设置，ie属性>选项卡浏览设置>选始终在新窗口打开弹出窗口
2、确定链接的个数n
3、循环打开
for i=0 to n
   shell 语句打开链接
next

Answer 2

类似的帖子：
http://topic.csdn.net/u/20090711/14/603ac99b-c1af-480e-ab99-44f200eb19c9.html?72236

Answer 3

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
    Dim anchor As Object
    
    For Each anchor In WebBrowser1.document.All.tags("a")
        anchor.Target = "_blank"
    Next
End Sub

Answer 4

我知道了，写在Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)下

Answer 5

有一个问题，就是网页中包含了验证码，还有一个链接，为刷新验证码javascript:nchangeImg('imgVerify2', 'verifycode2');怎么能让他不在新窗口打开呢？

Answer 6

参考 http://support.microsoft.com/kb/184876/en-us
例子中用新开窗体的 WebBrowser 控件显示新网页，你可以试试用当前 WebBrowser 显示新网页。

Answer 7

我想到了一个办法可以解决If InStr(anchor, "javascript") = 0 Then anchor.Target = "_blank"