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