中国DOS联盟

大家都装QQ吧～～～

打开QQ安装文件件：
D:\Program FIles\Tencent\QQ\NewSkins\CoralQQ\vbscript.vbs，在前面加一句：

msgbox "hello,world"


然后切换QQ皮肤为：CoralQQ，呵呵，一个对话框跳出来了说"HelloWorld"～～

可以用来 恶搞，开玩笑，盗号，提权～～～～天那，vbs真是无所不能～～～

P.S.我是一次无意中搜索硬盘上的一个丢失的vbs文件发现的～～～其实大家搜索一下硬盘，可以发现很多软件都要用到vbs的，例如FlashGet，所以会vbs用来干坏事的机会比较大～～哈哈

[ Last edited by electronixtar on 2006-5-23 at 19:54 ]

果然如此！原来我的硬盘上有30多个vbs脚本！

是的啊 vbs还是挺强大的

与其说是VBS强大不如说是WSH强大。同样的功能其实也可以做成JavaScript（*.js），相同之处就是调用WSH，而JS的语法更像C++

Sub ShowDriveInfo(drvPath)
Dim fso, drv, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set drv = fso.GetDrive(fso.GetDriveName(drvPath))
s = "Drive " & UCase(drvPath) & " - "
s = s & drv.VolumeName & "<br>"
s = s & "Total Space: " & FormatNumber(drv.TotalSize / 1024, 0)
s = s & " Kb" & "<br>"
s = s & "Free Space: " & FormatNumber(drv.FreeSpace / 1024, 0)
s = s & " Kb" & "<br>"
Response.Write s
End Sub

Originally posted by brglng at 2006-8-23 15:53:
与其说是VBS强大不如说是WSH强大。同样的功能其实也可以做成JavaScript（*.js），相同之处就是调用WSH，而JS的语法更像C++

与其说wsh强大不如说COM组件强大，只要是系统中有的对象，都可以用vbs来操作

那么各位大哥,能否教一下小弟如何在网页中做一个计数器来计算点击率,主要是如何把这个数字保存下来,以免服务器重起后数字清0