![]() |
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 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 |