Question

vbe小程序怎么设计，简易的拜托了各位 谢谢

谢谢，大侠了

Answer 1

保存一下代码为后缀名为vbs的 文件 双击，你也可以恶搞他： 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 保存后发还给他，叫他运行，他想叫自己是猪的机会都没有就重启了。