Question

VB自动点击网页超链接

我需要用VB隐藏打开一个网址，然后点击里面的一个普通的文本链接。但是我无法得到这个链接的具体URL，我只能得到这个链接的标题，比如这个代码：<a href="********" target=_blank>123</a>，URL不是固定的，但是123是固定的，所以只能根据123来得到他的href值。请问大家有什么办法可以实现，能附上代码最好了。

Answer 1

这个我这VB.net 中测试了好用，用到VB可能需要改动

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Dim i As Integer
For i = 0 To WebBrowser1.Document.All.Count
If InStr(WebBrowser1.Document.All.Item(i).OuterText, "你连接的标题") > 0 Then '查找文本中是不是我们要找的那个
WebBrowser1.Document.All.Item(i).InvokeMember("click") '单击
End If
Next
End Sub

Answer 2

用正则试试,关于如何在VB中使用正则,请参考相关手册.给一个VBS例子
Dim ss, re, rv
ss = "<a href="asfsaf.htm" target=_blank>123</a>"
Set re = New RegExp
re.Pattern = ".*\shref="([^""]+)""\s*[^>]*>123<.*"
re.Global = True
re.IgnoreCase = True
re.MultiLine = True
rv = re.Replace(ss,"$1")