[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
poter

Rank: 2

帖子
151 
积分
180 
技术
5  
捐助
0  
注册时间
2012-4-30 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2012-7-22 14:42 | 只看该作者

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

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

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
2楼
发表于 2012-7-22 19:36 | 只看该作者
<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
复制代码
1

评分人数

---学无止境---

TOP

poter

Rank: 2

帖子
151 
积分
180 
技术
5  
捐助
0  
注册时间
2012-4-30 
3楼
发表于 2012-7-23 19:32 | 只看该作者
回复 2# broly


    原来如此 谢谢我知道了！

TOP

返回列表