Question

跪求高手提供vbe代码，就是那个我是猪的代码改写成严亮是好人的，答案要输入严亮是好人的才不会关机的那种

Answer 1

vb文盲？
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -s -t 60 -c ""说“严亮是好人”，就不关机，快撒，说“严亮是好人”，不说就一分钟关机，不信的话，试下......"" ",0 ,true
dim a
do while(a <> "严亮是好人"游没首)
a = inputbox ("说“严亮是好察姿人”，快撒，不然一分钟关机，信不信由你......","说不说","",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + "神数快说！"
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就行了。
需要加密吗？

追问

需要需要啊，分先给你了，求教育喔