|
electronixtar
铂金会员
积分 7493
发帖 2672
注册 2005-9-2
状态 离线
|
『楼 主』:
[讨论]vbs的另类应用
使用 LLM 解释/回答一下
大家都装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 ]
Everyone is installing QQ~~ ~~~
Open the QQ installation file:
D:\Program FIles\Tencent\QQ\NewSkins\CoralQQ\vbscript.vbs, add a line in the front:
msgbox "hello,world"
Then switch the QQ skin to: CoralQQ, he he, a dialog box pops up saying "HelloWorld"~~
It can be used for pranks, jokes, stealing accounts, privilege escalation~~~Oh my god, vbs is all-powerful~~~
P.S. I accidentally found a lost vbs file on the hard disk by searching~~ Actually, everyone can search the hard disk and find that many software use vbs, such as FlashGet, so there are relatively more opportunities to use vbs to do bad things~ Haha
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
金牌会员
Ｄ◎＄ Ｆαп
积分 4562
发帖 1883
注册 2004-1-19
来自 广东广州
状态 离线
|
『第 2 楼』:
使用 LLM 解释/回答一下
果然如此！原来我的硬盘上有30多个vbs脚本！
Sure enough! It turns out there are more than 30 VBS scripts on my hard drive!
|
－－－－＝＝＝＝≡≡≡≡ 我的至爱，永远是MSDOS！≡≡≡≡＝＝＝＝－－－－
 |
|
|
2006-5-23 20:42 |
|
|
IceCrack
中级用户
DOS之友
积分 332
发帖 168
注册 2005-10-6
来自 天涯
状态 离线
|
『第 3 楼』:
使用 LLM 解释/回答一下
是的啊 vbs还是挺强大的
Yes, VBS is quite powerful.
|
测试环境: windows xp pro sp2 高手是这样炼成的:C:\WINDOWS\Help\ntcmds.chm |
|
|
2006-8-23 14:18 |
|
|
brglng
银牌会员
永遠的DOS~~~
积分 1200
发帖 466
注册 2005-2-1
来自 上海
状态 离线
|
『第 4 楼』:
使用 LLM 解释/回答一下
与其说是VBS强大不如说是WSH强大。同样的功能其实也可以做成JavaScript（*.js），相同之处就是调用WSH，而JS的语法更像C++
It is more that WSH is powerful rather than VBS being powerful. The same function can actually be made into JavaScript (*.js). The common point is that both call WSH, and the syntax of JS is more like C++.
|
32位才是DOS未来的希望
个人网志：http://sololand.moe |
|
|
2006-8-23 15:53 |
|
|
mobo
初级用户
积分 73
发帖 30
注册 2006-9-18
状态 离线
|
『第 5 楼』:
VBS从硬盘到文件都能管,真有用,如下便是一个ASP可用的代码--
使用 LLM 解释/回答一下
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
```vb
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 楼』:
使用 LLM 解释/回答一下
Originally posted by brglng at 2006-8-23 15:53:
与其说是VBS强大不如说是WSH强大。同样的功能其实也可以做成JavaScript（*.js），相同之处就是调用WSH，而JS的语法更像C++
与其说wsh强大不如说COM组件强大，只要是系统中有的对象，都可以用vbs来操作
Originally posted by brglng at 2006-8-23 15:53:
It's not so much that VBS is powerful, but that WSH is powerful. The same functionality can actually be made into JavaScript (*.js). The similarity is that both call WSH, and JS syntax is more like C++
It's not so much that WSH is powerful, but that COM components are powerful. As long as there are objects in the system, they can all be operated using VBS
|
|
|
2007-5-16 19:21 |
|
|
zhoushijay
高级用户
Autowalk
积分 845
发帖 375
注册 2007-3-3
状态 离线
|
『第 7 楼』:
使用 LLM 解释/回答一下
那么各位大哥,能否教一下小弟如何在网页中做一个计数器来计算点击率,主要是如何把这个数字保存下来,以免服务器重起后数字清0
Then,各位 big brothers, can you teach little brother how to make a counter in a web page to calculate the click-through rate, mainly how to save that number so that it doesn't clear to zero after the server restarts?
|
你好，脚本专家！
<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 |
|
