VBS脚本如何在一个宿主中调用另一个宿主里的类？

poter

1.vbs是这样

1. class class1
   
2.         private aa
   
3.         property let let1(a)
   
4.                 aa = a
   
5.         end property
   
6.         property get get1()
   
7.                 get1 = aa
   
8.         end property
   
9.         sub sub1
   
10.                 msgbox get1
    
11.         end sub
    
12. end class

复制代码

2.vbs是这样

1. <script language="VBScript" src="1.vbs">
   
2. dim a1
   
3. set a1 = new class1
   
4. a1.let1 = 10
   
5. a1.sub1

复制代码

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

broly

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

1. Sub Include(sInstFile)
   
2.     Dim FSO, f, s
   
3.     Set FSO = CreateObject("Scripting.FileSystemObject")
   
4.     Set f = FSO.OpenTextFile(sInstFile)
   
5.     s = f.ReadAll
   
6.     f.Close
   
7.     ExecuteGlobal s
   
8. End Sub
   
9. 
   
10. Include "d:\1.vbs"
    
11. dim a1
    
12. set a1 = new class1
    
13. a1.let1 = 10
    
14. a1.sub1
    
15. 
    

复制代码

poter

回复 2# broly


    原来如此 谢谢我知道了！