China DOS Union

-- Unite DOS · Advance DOS · Grow DOS --

Union site: www.cn-dos.net Forum site: www.cn-dos.net/forum
DOS stands for freedom, openness and progress. Let us work hard, learn from the openness and GNU spirit of FreeDOS and Linux, and together build and grow a free GNU GPL world!

中国DOS联盟论坛
The time now is 2026-08-04 17:22
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » [Discussion]Alternative Applications of VBS View 1,481 Replies 6
Original Poster Posted 2006-05-23 19:51 ·  IANA 局域网IP(Private-Use)
铂金会员
★★★★
Credits 7,493
Posts 2,672
Joined 2005-09-02 00:00
20-year member
UID 42173
Gender Male
Status Offline
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'>"
Floor 2 Posted 2006-05-23 20:42 ·  中国 广东 广州 白云区 电信
金牌会员
★★★★
D◎$ Fαп
Credits 4,562
Posts 1,883
Joined 2004-01-19 00:00
22-year member
UID 15812
Gender Male
From 广东广州
Status Offline
Sure enough! It turns out there are more than 30 VBS scripts on my hard drive!
----====≡≡≡≡ 我的至爱,永远是MSDOS!≡≡≡≡====----
Floor 3 Posted 2006-08-23 14:18 ·  中国 辽宁 大连 教育网
中级用户
★★
DOS之友
Credits 332
Posts 168
Joined 2005-10-06 00:00
20-year member
UID 43171
Gender Male
From 天涯
Status Offline
Yes, VBS is quite powerful.
测试环境: windows xp pro sp2 高手是这样炼成的:C:\WINDOWS\Help\ntcmds.chm
Floor 4 Posted 2006-08-23 15:53 ·  中国 上海 普陀区 电信
银牌会员
★★★
永遠的DOS~~~
Credits 1,200
Posts 466
Joined 2005-02-01 00:00
21-year member
UID 35867
Gender Male
From 上海
Status Offline
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
Floor 5 Posted 2006-09-24 09:43 ·  新加坡 腾讯云
初级用户
Credits 73
Posts 30
Joined 2006-09-18 08:35
19-year member
UID 62944
Status Offline
```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
```
Floor 6 Posted 2007-05-16 19:21 ·  中国 辽宁 沈阳 电信
初级用户
Credits 87
Posts 33
Joined 2006-06-20 12:22
20-year member
UID 57306
Gender Male
From cs
Status Offline
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
Floor 7 Posted 2007-05-16 19:36 ·  中国 新疆 乌鲁木齐 天山区 电信
高级用户
★★★
Autowalk
Credits 845
Posts 375
Joined 2007-03-03 01:58
19-year member
UID 80606
Gender Male
Status Offline
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>
Forum Jump: