R版主作品: 防止小孩乱用电脑.(欢迎小菜们下载)

fangxikai

嗯就是撒，    1000点通币貌似太多了点   没必要给的。   反正大家都是娱乐！

fangxikai

哦   不好意思哦，   上面的代码 我以为   /*用这个可以注释他的*/    原来不行！

我等一下把编辑好在传上来吧   ，  我把时间改大点，，   这样免得还没输入口令就关机了！

fangxikai

1. on error resume next
   
2. dim WSHshellA
   
3. set WSHshellA = wscript.createobject("wscript.shell")
   
4. WSHshellA.run "cmd.exe /c shutdown -r -t 120000 -c ""错误信息提示：                                                       系统错误，计算机即将关
   
5. 
   
6. 闭"" ",0 ,true
   
7. dim a
   
8. do while(a <> "这里自己输入解除的密码或者命令")
   
9. a = inputbox ("你可以输入命令直接关机 ""EXIT"" ","系统错误","关闭计算机",8000,7000)
   
10. msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
    
11. loop
    
12. msgbox chr(13) + chr(13) + chr(13) + "密码正确"
    
13. dim WSHshell
    
14. set WSHshell = wscript.createobject("wscript.shell")
    
15. WSHshell.run "cmd.exe /c shutdown -a",0 ,true
    
16. msgbox chr(13) + chr(13) + chr(13) + "自动关机以解除"
    

复制代码

这是帮你编辑的代码     





好了   附件是编辑好了的    不过命令需要你自己设置

1. do while(a <> "这里自己输入解除的密码或者命令")

复制代码

还有这里

1. WSHshellA.run "cmd.exe /c shutdown -r -t 120000 -c
   
2. 把120000    改成  120   就是2分钟后关闭
   

复制代码

1. 格式是   .vbe

复制代码

fangxikai

以上是截图！！！

fangxikai

提示的信息都是假的哦，，   别相信了    ，不过  关机是真的！！  要是不相信的就可以试试看！

心静如水

奇怪....我的不行..........?


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

心静如水

C:\Documents and Settings\Administrator\「开始」菜单\程序\启动\e.vbe
这个路经才起作用,奇怪...

用什么编辑器呢?

谢谢R版主,.........也谢谢上面的网友的帮助!

Rulzy

按你的要求，用Delphi写了一个，与你的要求一样，含源代码。

ttbs123

按你的要求，用Delphi写了一个，与你的要求一样，含源代码。
Rulzy 发表于 2010-6-5 15:02

R版主就是强

LittleKu

在此顺便问一下R版！
用Delphi是不是比起用C++要容易点呢？