中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-04 15:24
48,038 主题排行 / 350,123 发帖 / 今日 0 篇 / 48,251 会员排行
DOS批处理 & 脚本技术(批处理室) » [讨论]vbs的另类应用
可打印版本  1,477 / 6
第1楼 electronixtar 发表于 2006-05-23 19:51
铂金会员 发帖 2,672 积分 7,493
[讨论]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 ]
第2楼 JonePeng 发表于 2006-05-23 20:42
金牌会员 发帖 1,883 积分 4,562 来自 广东广州
果然如此!原来我的硬盘上有30多个vbs脚本!
第3楼 IceCrack 发表于 2006-08-23 14:18
中级用户 发帖 168 积分 332 来自 天涯
是的啊 vbs还是挺强大的
第4楼 brglng 发表于 2006-08-23 15:53
银牌会员 发帖 466 积分 1,200 来自 上海
与其说是VBS强大不如说是WSH强大。同样的功能其实也可以做成JavaScript(*.js),相同之处就是调用WSH,而JS的语法更像C++
第5楼 mobo 发表于 2006-09-24 09:43
初级用户 发帖 30 积分 73
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
第6楼 ebfok 发表于 2007-05-16 19:21
初级用户 发帖 33 积分 87 来自 cs
Originally posted by brglng at 2006-8-23 15:53:
与其说是VBS强大不如说是WSH强大。同样的功能其实也可以做成JavaScript(*.js),相同之处就是调用WSH,而JS的语法更像C++

与其说wsh强大不如说COM组件强大,只要是系统中有的对象,都可以用vbs来操作
第7楼 zhoushijay 发表于 2007-05-16 19:36
高级用户 发帖 375 积分 845
那么各位大哥,能否教一下小弟如何在网页中做一个计数器来计算点击率,主要是如何把这个数字保存下来,以免服务器重起后数字清0
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023