N
nibul
Unregistered / Unconfirmed
GUEST, unregistred user!
组件在客户端注册,WEB页面进行调用。
比如:取客户端的硬盘号或其它信息
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Sub submit1_onclick
'读锁ID
On Error resume next
dim a,b
set aObject = CreateObject("Syunew3A.s_simnew3"
DevicePath = aObject.FindPort(0)
if aobject.lasterror<>0 then
msgbox "请插入加密锁后再进行操作。"
exit sub
end if
a=aObject.GetID_1(DevicePath)
b=aObject.GetID_2(DevicePath)
form1.text1.value=a
form1.text2.value=b
End Sub
上面这段代码可以调用客户端的COM组件,我把上面的代码换成我写的COM组件就不行了,是不是我写的组件参数不对?
比如:取客户端的硬盘号或其它信息
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Sub submit1_onclick
'读锁ID
On Error resume next
dim a,b
set aObject = CreateObject("Syunew3A.s_simnew3"
DevicePath = aObject.FindPort(0)
if aobject.lasterror<>0 then
msgbox "请插入加密锁后再进行操作。"
exit sub
end if
a=aObject.GetID_1(DevicePath)
b=aObject.GetID_2(DevicePath)
form1.text1.value=a
form1.text2.value=b
End Sub
上面这段代码可以调用客户端的COM组件,我把上面的代码换成我写的COM组件就不行了,是不是我写的组件参数不对?