1,453
社区成员
发帖
与我相关
我的任务
分享vb.webbrowser控件，自动点击超链接，求解答
<a target="Main" href="my/mkjegs_xj.asp">
<font color="#FFFFFF">
马克思恩格斯选集
</font>
</a>
这是一个网页，用火狐浏览器，查看“马克思恩格斯选集”看到的代码。我想让webbrowser控件，自动找到这个，然后自动点击它。。请问怎么实现。这个链接在一个框架里。代码如下，链接在第三个<frame>里
<frameset id="ToolBar" bordercolor="#3977B2" framespacing="4" cols="0,160,*">
<frame scrolling="no" src="about:blank" noresize="" name="Border" marginwidth="0" marginheight="0"></frame>
<frame scrolling="no" target="Left" src="left.htm" name="Left" marginwidth="0" marginheight="0">
#document
<html>
<head></head>
<body marginwidth="0" marginheight="0" bgcolor="#6699CC" topmargin="5" leftmargin="0">
<table width="163" height="509" border="0" align="center" cellspacing="0" cellpadding="0">
<tbody>
<tr>
<td width="163" valign="top" height="400" bgcolor="#6699CC">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tbody>
<tr valign="top">
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tbody>
<tr></tr>
<tr></tr>
<tr>
<td height="10"></td>
<td height="30">
<b>
<a target="Main" href="my/mkjegs_xj.asp">
<font color="#FFFFFF">
马克思恩格斯选集
</font>
</a>
</b>
</td>
</tr>
<tr></tr>
<tr></tr>
<tr></tr>
<tr></tr>
<tr></tr>
<tr></tr>
<tr></tr>
<tr>
<td height="10"></td>
<td height="30"></td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
</body>
</html>
</frame>
<frame scrolling="yes" target="Main" src="main.asp" name="Main"></frame>
</frameset>
<font color="#FFFFFF">
马克思恩格斯选集
</font>
</a>
这是一个网页，用火狐浏览器，查看“马克思恩格斯选集”看到的代码。我想让webbrowser控件，自动找到这个，然后自动点击它。。请问怎么实现。这个链接在一个框架里。代码如下，链接在第三个<frame>里
<frameset id="ToolBar" bordercolor="#3977B2" framespacing="4" cols="0,160,*">
<frame scrolling="no" src="about:blank" noresize="" name="Border" marginwidth="0" marginheight="0"></frame>
<frame scrolling="no" target="Left" src="left.htm" name="Left" marginwidth="0" marginheight="0">
#document
<html>
<head></head>
<body marginwidth="0" marginheight="0" bgcolor="#6699CC" topmargin="5" leftmargin="0">
<table width="163" height="509" border="0" align="center" cellspacing="0" cellpadding="0">
<tbody>
<tr>
<td width="163" valign="top" height="400" bgcolor="#6699CC">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tbody>
<tr valign="top">
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tbody>
<tr></tr>
<tr></tr>
<tr>
<td height="10"></td>
<td height="30">
<b>
<a target="Main" href="my/mkjegs_xj.asp">
<font color="#FFFFFF">
马克思恩格斯选集
</font>
</a>
</b>
</td>
</tr>
<tr></tr>
<tr></tr>
<tr></tr>
<tr></tr>
<tr></tr>
<tr></tr>
<tr></tr>
<tr>
<td height="10"></td>
<td height="30"></td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
</body>
</html>
</frame>
<frame scrolling="yes" target="Main" src="main.asp" name="Main"></frame>
</frameset>
...全文
请发表友善的回复…
发表回复
s573332010 2014-05-07
- 打赏
- 举报
第一行再加个
dim str1 as string
放在这个事件里WebBrowser1_DocumentComplete
s573332010 2014-05-07
- 打赏
- 举报
要不你用匹配的办法
Dim str As String
Dim ss As Long
Dim vDoc As Object
Dim i As Integer
ss = 0
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "A" Then
str = vDoc.All(i).outerhtml
str1=" <a target="&""""&"Main"&""""&" href="&""""&"my/mkjegs_xj.asp"&""""&">
<font color="&""""&"#FFFFFF"&""""&">
马克思恩格斯选集
</font>
</a>"
ss = InStrRev(str,str1)
End If
If ss<> 0 Then
vDoc.All(i).Click'点击A标签
Exit Sub
End If
Next
谦虚只为再次被恭维 2014-04-27
- 打赏
- 举报
首先自己置顶。我试过了网上搜到的代码，不可以。不知道为什么