vbscript 调用其他控件返回值为数组时出现类型不匹配错误

2009-01-12 10:02:29 2.7k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

WinCC组合框控件：实现PLC变量安全赋值与模式选择在工业自动化上位机开发中，人机界面（HMI）与可编程逻辑控制器（PLC）的可靠数据交互是核心基础。其原理在于通过变量绑定与事件驱动，建立从操作界面到控制器的安全数据通道。这项技术的核心价值在于提升操作安全性与系统可靠性，尤其适用于设备模式切换、配方选择等关键控制场景。通过组合框（ComboBox）控件，开发者可以预定义文本与数值的映射关系，从源头上限制输入范围，有效避免非法操作。近期技术社区中，“wincc输入变量增加确认功能”和“wincc输入输出域怎样二次确认”等热词，正反映了业界对此类安全交互机制的迫阅读详情

用vbscript调用一个其他语言写的控件，该控件在vb6中可以正常使用，如下是vb6中的代码

vRet = frmMain.FK524ID1.GetEnrollData(mMachineNumber, _
vEnrollNumber, _
vFingerNumber, _
vPrivilege, _
glngEnrollData, _
glngEnrollPData)
其中mMachineNumber,
vEnrollNumber,
vFingerNumber,
vPrivilege,glngEnrollPData均为参数代进去的，只有glngEnrollData是个数组返回的，在vb6中可以正常使用，
同时在vb6中定义的也确实是数组

现在是这样子的，想把该控件使用在web页面中，我先再用vb6封装了一下，
Public Function GetEnrollData(FK524ID As Variant, mMachineNumber As Long, vEnrollNumber As Long, vFingerNumber As Long, vPrivilege As Long, ByRef glngEnrollData As Variant, glngEnrollPData As Variant) As Long
Dim gTemplngEnrollData As Variant
vRet = FK524ID.GetEnrollData(mMachineNumber, _
vEnrollNumber, _
vFingerNumber, _
vPrivilege, _
gTemplngEnrollData, _
glngEnrollPData)
glngEnrollData = gTemplngEnrollData
End Function
然后在网页中这样调用
<script type="text/vbscript" language="vbscript">
sub GetSerialNumber1()
Dim obj, vret, mMachineNumber
Dim glngEnrollData1
mMachineNumber = 1

Set obj = document.getElementById("FK524ID1")
If Not IsObject(obj) Then Exit Sub

If Not obj.OpenCommPort(3) Then Exit Sub

obj.CommPort = 1

If Not obj.EnableDevice(mMachineNumber, False) Then
MsgBox "Err"
Exit Sub
End If

Set proxy = CreateObject("prj_fk524.fk524") ' CreateObject("工程1.Class1")
vret = proxy.GetEnrollData(obj, 1, 8, 0, 0,glngEnrollData1,0)
If vret<> 0 Then
msgbox "ok"
Else
msgbox "Can Not Get Enroll Data !"
End If
end sub
</script>

然后就出现了类型不匹配的问题，不知道是那个环节有问题，请兄弟们帮我看看吧

...全文