求一些vbs的冷门用法

jyswjjgdwtdtj

单纯只是好奇而已 丰富一下“阅历”
提供个小小的例子（可能不冷门）吧

1. class example
   
2. private num
   
3. private sub class_initialize
   
4. num=1
   
5. end sub
   
6. public default function add()
   
7. add=num
   
8. num=num+1'才知道 vbs函数内返回返回值不会直接退出函数 而是继续执行到结尾 然后把与函数名相同的变量作为返回值返回
   
9. end function
   
10. end class
    
11. 
    
12. set a=new example
    
13. msgbox a()
    
14. msgbox a
    
15. '这么做可以拥有“函数”自己的变量 而且可以对函数进行传递 不用用那个神奇的getref了
    
16. set b=a'b和a是同一个函数
    
17. b=a'b是a的返回值
    
18. function example fn(byval obj)
    
19. '对于对象 不论byval byref 一律传址
    
20. 或许可以作为“回调函数”？虽然作为一个不存在同步的语言回调函数啥用也没有……
    
21. msgbox obj()
    
22. end function
    
23. examplefn (a)
    

复制代码

以上没经过测试

jyswjjgdwtdtj

一些奇怪的特性也可以啦 比如msgbox会优先去一个对象能转换为字符串的值 而wscript.echo 不会

老刘1号

不妨来玩这个：http://www.bathome.net/thread-63315-1-1.html

jyswjjgdwtdtj

说个vbs很傻的一个地方
比如拿jquery举个例子

1. 
   
2. javascript:
   
3. $(".box").css("background","red").text(123123123).slideUp()
   

复制代码

原封不动改成vbs

1. 
   
2. vbscript:
   
3. $(".box").css("background","red").text(123123123).slideup()
   

复制代码

报错

1. 
   
2. vbscript:
   
3. $(".box").css "background","red" .text 123123123 .slideup
   

复制代码

报错

1. 
   
2. vbscript:
   
3. a=$(".box").css("background","red").text(123123123).slideup()
   

复制代码

不报错

老刘1号

adodb.recordset