嗯就是撒， 1000点通币貌似太多了点 没必要给的。 反正大家都是娱乐！
哦 不好意思哦， 上面的代码 我以为 /*用这个可以注释他的*/ 原来不行！
我等一下把编辑好在传上来吧 ，我把时间改大点，， 这样免得还没输入口令就关机了！
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 120000 -c ""错误信息提示： 系统错误，计算机即将关
闭"" ",0 ,true
dim a
do while(a <> "这里自己输入解除的密码或者命令")
a = inputbox ("你可以输入命令直接关机 ""EXIT"" ","系统错误","关闭计算机",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) + "自动关机以解除"
这是帮你编辑的代码
好了 附件是编辑好了的 不过命令需要你自己设置do while(a <> "这里自己输入解除的密码或者命令") 还有这里WSHshellA.run "cmd.exe /c shutdown -r -t 120000 -c
把120000 改成120 就是2分钟后关闭
格式是 .vbe
以上是截图！！！
提示的信息都是假的哦，， 别相信了 ，不过关机是真的！！要是不相信的就可以试试看！
奇怪....我的不行..........?
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 120 -c ""错误信息提示： 系统错误，计算机即将关
闭"" ",0 ,true
dim a
do while(a <> "88888")
a = inputbox ("你可以输入命令直接关机 ""EXIT"" ","系统错误","关闭计算机",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) + "自动关机以解除"
C:\Documents and Settings\lenovo\「开始」菜单\程序\启动\e.vbe
本帖最后由 心静如水 于 2010-6-5 15:25 编辑
C:\Documents and Settings\Administrator\「开始」菜单\程序\启动\e.vbe
这个路经才起作用,奇怪...
用什么编辑器呢?
谢谢R版主,.........也谢谢上面的网友的帮助!
按你的要求，用Delphi写了一个，与你的要求一样，含源代码。
按你的要求，用Delphi写了一个，与你的要求一样，含源代码。
Rulzy 发表于 2010-6-5 15:02 http://www.dt-club.net/forum/images/common/back.gif
R版主就是强
在此顺便问一下R版！
用Delphi是不是比起用C++要容易点呢？