[技术讨论] 求一些vbs的冷门用法

jyswjjgdwtdtj

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

class example
private num
private sub class_initialize
num=1
end sub
public default function add()
add=num
num=num+1'才知道 vbs函数内返回返回值不会直接退出函数 而是继续执行到结尾 然后把与函数名相同的变量作为返回值返回
end function
end class

set a=new example
msgbox a()
msgbox a
'这么做可以拥有“函数”自己的变量 而且可以对函数进行传递 不用用那个神奇的getref了
set b=a'b和a是同一个函数
b=a'b是a的返回值
function example fn(byval obj)
'对于对象 不论byval byref 一律传址
或许可以作为“回调函数”？虽然作为一个不存在同步的语言回调函数啥用也没有……
msgbox obj()
end function
examplefn (a)
复制代码

以上没经过测试

老刘1号

adodb.recordset

jyswjjgdwtdtj

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

javascript:
$(".box").css("background","red").text(123123123).slideUp()
复制代码

原封不动改成vbs

vbscript:
$(".box").css("background","red").text(123123123).slideup()
复制代码

报错

vbscript:
$(".box").css "background","red" .text 123123123 .slideup
复制代码

报错

vbscript:
a=$(".box").css("background","red").text(123123123).slideup()
复制代码

不报错

老刘1号

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

jyswjjgdwtdtj

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