VB 使用 WebBrowser 控件时 可以通过
Set aset = WebBrowser1.Document.All.Tags("A")
For I = 0 To aset.length - 1
If (InStr(1, aset(I).innerText, "关键词")) Then
aset(I).Click
End If
Next I
遍历所有链接来单击该链接问题是:如果遍历完了还是找不到这个链接 我需要点击另外一个点击 比如我需要点击的词语是:下一页那该如何写这个代码
Set aset = WebBrowser1.Document.All.Tags("A")
For I = 0 To aset.length - 1
If (InStr(1, aset(I).innerText, "关键词")) Then
aset(I).Click
End If
Next I
遍历所有链接来单击该链接问题是:如果遍历完了还是找不到这个链接 我需要点击另外一个点击 比如我需要点击的词语是:下一页那该如何写这个代码
If (InStr(1, aset(i).innerText, "关键词")) Then
aset(i).Click
Exit For
End If
Next i
If i = aset.length Then
下一页.Click
End If