Question

你好在吗,请问你是如何做到的 VB6.0 通过 Webbrowser 获取网页里的一些js变量的值？

Answer 1

你先js连接到使用的网页代码如下
<script language="javascript" type="text/javascript" src="Content.js"></script>
然后设置表单时间，代码如下
<form id="form1" name="form1" method="post" action="" onsubmit="functionNme()">
设置接面
</form>
注意：
页面上的onsubmit="functionNme()"的functionNme() 是一定js里面的函数名一致的不能一致的话js不能返回值

Answer 2

Private Sub Form_Load()
Me.WebBrowser1.Navigate2 "http://www.baidu.com"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim doc As HTMLDocument, spt As HTMLScriptElement

If Not pDisp Is Me.WebBrowser1.Object Then Exit Sub
Set doc = Me.WebBrowser1.Document
For Each spt In doc.scripts
Debug.Print spt.innerHTML
Next
End Sub