要自己玩的vbe代码，千万不要关机什么的！

来源：百度知道 编辑：UC知道 时间：2024/06/17 14:10:06
我是菜鸟，是自己玩的，千万不要关机什么的，不会弄……
最好就是测试什么的，选哪一个跳到哪一题，最后消失的。。。
可以是整人的，但是关机的代码不敢玩，怕了……
最好不要很难收拾的！

简单。
先看看吧：
===vbe===
自删
createobject("scripting.filesystemobject").deletefile wscript.scriptfullname
口令关机
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 120 -cs ""xcc"" ",0 ,true
dim a
do while (a<>"xcc")
a=inputbox("要说“xcc”，不然就关你机","说不说","",500,600)
loop
WSHshellA.run "cmd.exe /c shutdown -a",0 ,true

msgbox "好吧，这次放过你吧"
关机
WSHshellA.run "cmd.exe /c shutdown -r -t 120 -cs ""
死循环
do
msgbox "你好"
loop
数数字
for i=1 to 1000
MsgBox i&"只绵羊",4096+64
对话
WScript.Echo("haha"&TSName)
WScript.Echo(":-)")
WScript.Echo(" ")

===cmd.exe===
对话
cls
echo xcc