中国DOS联盟论坛

China DOS Union

-- Unite DOS · Advance DOS · Grow DOS --
Union site: www.cn-dos.net Forum site: www.cn-dos.net/forum
Guest | Log in | Register | Members | Search | China DOS Union
中国DOS联盟论坛
The time now is 2026-08-04 16:26
48,038 topics / 350,123 posts / today 0 new / 48,251 members
DOS批处理 & 脚本技术(批处理室) » [Discussion]Alternative Applications of VBS
Printable Version  1,480 / 6
Floor1 electronixtar Posted 2006-05-23 19:51
铂金会员 Posts 2,672 Credits 7,493
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 ]
Floor2 JonePeng Posted 2006-05-23 20:42
金牌会员 Posts 1,883 Credits 4,562 From 广东广州
Sure enough! It turns out there are more than 30 VBS scripts on my hard drive!
Floor3 IceCrack Posted 2006-08-23 14:18
中级用户 Posts 168 Credits 332 From 天涯
Yes, VBS is quite powerful.
Floor4 brglng Posted 2006-08-23 15:53
银牌会员 Posts 466 Credits 1,200 From 上海
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++.
Floor5 mobo Posted 2006-09-24 09:43
初级用户 Posts 30 Credits 73
```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
```
Floor6 ebfok Posted 2007-05-16 19:21
初级用户 Posts 33 Credits 87 From cs
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
Floor7 zhoushijay Posted 2007-05-16 19:36
高级用户 Posts 375 Credits 845
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?
[ Contact the Union admin team - 中国DOS联盟 - Standard version ]
Sponsored by ifanr Inc | © 2001–2023