中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
作者:
标题: [讨论]vbs的另类应用 上一主题 | 下一主题
electronixtar
铂金会员





积分 7493
发帖 2672
注册 2005-9-2
状态 离线
『楼 主』:  [讨论]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 ]




C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"
2006-5-23 19:51
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
JonePeng
金牌会员

D◎$ Fαп


积分 4562
发帖 1883
注册 2004-1-19
来自 广东广州
状态 离线
『第 2 楼』:  

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



----====≡≡≡≡ 我的至爱,永远是MSDOS!≡≡≡≡====----
  
2006-5-23 20:42
查看资料  发送邮件  发短消息 网志  OICQ (373343541)  编辑帖子  回复  引用回复
IceCrack
中级用户

DOS之友


积分 332
发帖 168
注册 2005-10-6
来自 天涯
状态 离线
『第 3 楼』:  

是的啊 vbs还是挺强大的



测试环境: windows xp pro sp2    高手是这样炼成的:C:\WINDOWS\Help\ntcmds.chm
2006-8-23 14:18
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (369525996)  编辑帖子  回复  引用回复
brglng
银牌会员

永遠的DOS~~~



积分 1200
发帖 466
注册 2005-2-1
来自 上海
状态 离线
『第 4 楼』:  

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



32位才是DOS未来的希望
个人网志:http://sololand.moe
2006-8-23 15:53
查看资料  发短消息 网志   编辑帖子  回复  引用回复
mobo
初级用户





积分 73
发帖 30
注册 2006-9-18
状态 离线
『第 5 楼』:  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

2006-9-24 09:43
查看资料  发短消息 网志   编辑帖子  回复  引用回复
ebfok
初级用户





积分 87
发帖 33
注册 2006-6-20
来自 cs
状态 离线
『第 6 楼』:  



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

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

2007-5-16 19:21
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
zhoushijay
高级用户

Autowalk


积分 845
发帖 375
注册 2007-3-3
状态 离线
『第 7 楼』:  

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



你好,脚本专家!
<a target=blank href=tencent://message/?uin=29654761&Site=www.111.com&Menu=yes><img border="0" SRC=http://wpa.qq.com/pa?p=1:29654761:5 alt="点击这里给我发消息"></a>
2007-5-16 19:36
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: