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

poter

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

<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

回复 2# broly


    原来如此 谢谢我知道了！