VB的webbrowser控件如何用代码来点击超链接
2个回答
展开全部
我想楼主是想问用WebBrowser自动点这个链接吧。
Dim
Str1
As
String
Str1
=
"发送"
'判断是否为要点击的A标签的特征字符
'历遍所有A标签,查找含有"发送"字符的A标签并点击
Set
aSet
=
WebBrowser1.document.All.tags("A")
For
i
=
0
To
aSet.length
-
1
If
(InStr(1,
aSet(i).innerText,
Str1))
Then
aSet(i).onclick
'
如果aSet(i).onclick不能点击的话,请试试aSet(i).click
End
If
Next
i
Dim
Str1
As
String
Str1
=
"发送"
'判断是否为要点击的A标签的特征字符
'历遍所有A标签,查找含有"发送"字符的A标签并点击
Set
aSet
=
WebBrowser1.document.All.tags("A")
For
i
=
0
To
aSet.length
-
1
If
(InStr(1,
aSet(i).innerText,
Str1))
Then
aSet(i).onclick
'
如果aSet(i).onclick不能点击的话,请试试aSet(i).click
End
If
Next
i
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
VB中可以直接用shell
("explorer
你的超级连接地址")
下面的代码执行了以后就浏览百度,注意explorer与地址中间还有个空格
Shell
("explorer
http://www.baidu.com")
("explorer
你的超级连接地址")
下面的代码执行了以后就浏览百度,注意explorer与地址中间还有个空格
Shell
("explorer
http://www.baidu.com")
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询