我搞定了 html: <script language="JavaScript"> function msg(str){//注:有参数 alert(str); } </script> vb: Private Sub Command1_Click() WebBrowser1.Document.parentwindow.execScript "msg(""ddddd"")", "JavaScript"
End SubPrivate Sub Form_Load() WebBrowser1.Navigate "http://192.168.7.121:3030/control/login1024" End Sub 谢谢你lingll([20,200]) ,有一点提醒一下函数执行即使没参数也要加() 如WebBrowser1.Document.parentwindow.execScript "msg()", "JavaScript
html:
<script language="JavaScript">
function msg(str){//注:有参数
alert(str);
}
</script>
vb:
Private Sub Command1_Click()
WebBrowser1.Document.parentwindow.execScript "msg(""ddddd"")", "JavaScript"
End SubPrivate Sub Form_Load()
WebBrowser1.Navigate "http://192.168.7.121:3030/control/login1024"
End Sub
谢谢你lingll([20,200]) ,有一点提醒一下函数执行即使没参数也要加()
如WebBrowser1.Document.parentwindow.execScript "msg()", "JavaScript