标题: [讨论]vbs的另类应用 [打印本页]
作者: electronixtar 时间: 2006-5-23 19:51 标题: [讨论]vbs的另类应用
大家都装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 ]
作者: JonePeng 时间: 2006-5-23 20:42
果然如此！原来我的硬盘上有30多个vbs脚本！
作者: IceCrack 时间: 2006-8-23 14:18
是的啊 vbs还是挺强大的
作者: brglng 时间: 2006-8-23 15:53
与其说是VBS强大不如说是WSH强大。同样的功能其实也可以做成JavaScript（*.js），相同之处就是调用WSH，而JS的语法更像C++
作者: mobo 时间: 2006-9-24 09:43 标题: VBS从硬盘到文件都能管,真有用,如下便是一个ASP可用的代码--
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
作者: ebfok 时间: 2007-5-16 19:21
| Quote: | |
|
与其说wsh强大不如说COM组件强大，只要是系统中有的对象，都可以用vbs来操作
作者: zhoushijay 时间: 2007-5-16 19:36
那么各位大哥,能否教一下小弟如何在网页中做一个计数器来计算点击率,主要是如何把这个数字保存下来,以免服务器重起后数字清0