批处理之家 - Powered by Discuz! Board

标题: [问题求助] VBS脚本如何在一个宿主中调用另一个宿主里的类？ [打印本页]

作者: poter 时间: 2012-7-22 14:42 标题: VBS脚本如何在一个宿主中调用另一个宿主里的类？

1.vbs是这样

class class1
	private aa
	property let let1(a)
		aa = a
	end property
	property get get1()
		get1 = aa
	end property
	sub sub1
		msgbox get1
	end sub
end class
复制代码

2.vbs是这样

<script language="VBScript" src="1.vbs">
dim a1
set a1 = new class1
a1.let1 = 10
a1.sub1
复制代码

想问问为何运行2.vbs会报错？？

作者: broly 时间: 2012-7-22 19:36

<script language="VBScript" src="1.vbs">
这样个是网页的调用方法，在WSH解析下是不可以的。
可以这样：

Sub Include(sInstFile) 
    Dim FSO, f, s 
    Set FSO = CreateObject("Scripting.FileSystemObject") 
    Set f = FSO.OpenTextFile(sInstFile) 
    s = f.ReadAll 
    f.Close
    ExecuteGlobal s 
End Sub

Include "d:\1.vbs"
dim a1
set a1 = new class1
a1.let1 = 10
a1.sub1
复制代码

作者: poter 时间: 2012-7-23 19:32

回复 2# broly

原来如此谢谢我知道了！

欢迎光临批处理之家 (http://bbs.bathome.net/)