gpt4 book ai didi

vb6 - 如何在 VB6 中使用 exec 脚本检索表单值?

转载 作者:行者123 更新时间:2023-12-04 15:44:57 25 4
gpt4 key购买 nike

说,这是我的代码

Dim Address as string

WebBrowser1.Document.parentWindow.execScript("var a =document.form1.address.text", "JavaScript")

如何将 document.form1.address.text 的值提取到我的 VB6 变量 Address 中?

最佳答案

您可以使用 DOM。

假设我们有一个简单的 HTML 表单:

<html>
<body>
<form name="form1">
Address: <input type="text" id="address">
</form>
</body>
</html>

WebBrowser 控件中加载并确保 DOM 准备就绪后,我们可以通过以下方式获取 address 字段的文本:

Private Sub cmdGetAddressText_Click()
Dim HTMLElement As Object
Dim Address As String

Set HTMLElement = WebBrowser1.Document.GetElementByID("address")
Address = HTMLElement.Value

MsgBox Address
End Sub

编辑:

它甚至比这更简单。您可以直接从 VB6 访问字段值:

Address = WebBrowser1.Document.Form1.Address.Value

编辑#2

如果您愿意,也可以获取 JavaScript 变量的值:

Private Sub cmdJSVar_Click()
Dim Address As String
Call WebBrowser1.Document.parentWindow.execScript("var a=document.form1.address.value; alert(a);")
Address = WebBrowser1.Document.Script.a

MsgBox Address
End Sub

请注意 .Script.a 中的 JS 变量名称区分大小写(即 .Script.A 将不起作用)。弄清楚这一点花了一些时间。

关于vb6 - 如何在 VB6 中使用 exec 脚本检索表单值?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/15798908/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com