WebBrowser怎么执行JS？

caiyi000 2006-07-26 05:21:20

我想让WebBrowser执行<script>alert('haha')</script>

...全文

203 1 打赏收藏转发到动态举报

写回复

用AI写文章

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

MMABing 2006-07-26

打赏
举报

假设你的HTML代码如下：

<html>
<script>
function abcd(){
alert("haha");
return false;
}
</script>

<body>
<a id = 'xxx' href=# onclick="abcd()">ggggg</a>
</body>
</html>

VB代码如下：
Private Sub Command1_Click()
WebBrowser1.Navigate "http://community.csdn.net/"
End Sub

Private Sub Command2_Click()
Dim a, b
Dim d As IHTMLDocument2

For Each a In WebBrowser1.Document.All
Debug.Print a.tagName
If (a.tagName = "SCRIPT") Then

End If
If (a.tagName = "A") Then
If a.Id = "xxx" Then
a.FireEvent ("onclick")
End If
End If
Next

点击Command1浏览这个网页，点击Command2运行其中的脚本abcd。