;;;各位大侠：我想问一下，有没有VBScript的可调用Active组件或对象的资料! 我就这么多分全给了。;;;

[andy2001p]

;;;各位大侠：我想问一下，有没有VBScript的可调用Active组件或对象的资料! 我就这么多分全给了。;;;

[andy2001p]

up

[cpp2017]

<SCRIPT LANGUAGE=vbscript>
<!--

Dim shell
Set shell = CreateObject("wscript.shell")
shell.run("cmd.exe")


//-->
</SCRIPT>

[hubinasm]

<OBJECT id=grd codeBase=cab/todg6.cab#version=6,0,0,235 height=300 width="100%" style="display:none"
classid=clsid:0D6234D0-DBA2-11D1-B5DF-0060976089D0 name=grd VIEWASTEXT>
</OBJECT>

[online]

<script id=clientEventHandlersVBS language=vbscript>
<!--
Sub button1_onclick
on error resume next
dim ErrCode
dim ctx
dim buf
Dim i,xx,xxlen

set ctx = CreateObject("epsmodu.epsCtx")
if(err <> 0) then
MsgBox "您的身份认证锁安装的不正确，不能进行验证"&vbnewline&"错误信息提示："&err.description
Exit Sub
end if
ErrCode = epass1.OpenDevice (1)
if ErrCode <> 0 then
MsgBox "您没有插好身份认证锁或者它正被别的程序占用！"&vbnewline&"错误信息提示："&ErrCode
exit sub
end if
FORM1.id.value = Hex(ctx.SerialNumber(1)) + Hex(ctx.SerialNumber(0))
epass1.CloseDevice
set ctx=nothing

FORM1.submit
end sub

-->
</script>

[andy2001p]

up

[jhysky]

如果你用VI编写ASP或者VB脚本，先注册控件，然后在页面中添加该控件，VI会在程序编写的过程中把控件的相应属性或方法列出来。

[andy2001p]

谢谢各位，还有没有，再给点，快结贴了

[andy2001p]

up