搜索
楼主: 心静如水

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

[复制链接]
发表于 2010-6-5 13:15:29 | 显示全部楼层 来自 中国–四川–成都
嗯就是撒,    1000点通币貌似太多了点   没必要给的。   反正大家都是娱乐!
回复

使用道具 举报

发表于 2010-6-5 13:21:02 | 显示全部楼层 来自 中国–四川–成都
哦   不好意思哦,   上面的代码 我以为   /*用这个可以注释他的*/    原来不行!

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

使用道具 举报

发表于 2010-6-5 13:34:45 | 显示全部楼层 来自 中国–四川–成都
  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. 闭"" ",0 ,true
  6. dim a
  7. do while(a <> "这里自己输入解除的密码或者命令")
  8. a = inputbox ("你可以输入命令直接关机 ""EXIT"" ","系统错误","关闭计算机",8000,7000)
  9. msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
  10. loop
  11. msgbox chr(13) + chr(13) + chr(13) + "密码正确"
  12. dim WSHshell
  13. set WSHshell = wscript.createobject("wscript.shell")
  14. WSHshell.run "cmd.exe /c shutdown -a",0 ,true
  15. 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
复制代码

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注个册吧

×
回复

使用道具 举报

发表于 2010-6-5 13:47:14 | 显示全部楼层 来自 中国–四川–成都



以上是截图!!!

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注个册吧

×
回复

使用道具 举报

发表于 2010-6-5 13:48:21 | 显示全部楼层 来自 中国–四川–成都
提示的信息都是假的哦,,   别相信了    ,不过  关机是真的!!  要是不相信的就可以试试看!
回复

使用道具 举报

 楼主| 发表于 2010-6-5 13:59:33 | 显示全部楼层 来自 中国–广西–百色
奇怪....我的不行..........?


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 14:47:17 | 显示全部楼层 来自 中国–广西–百色–田东县
本帖最后由 心静如水 于 2010-6-5 15:25 编辑

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

用什么编辑器呢?

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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注个册吧

×
回复

使用道具 举报

发表于 2010-6-5 15:02:18 | 显示全部楼层 来自 中国–福建–漳州
按你的要求,用Delphi写了一个,与你的要求一样,含源代码。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注个册吧

×
回复

使用道具 举报

发表于 2010-6-5 15:23:05 | 显示全部楼层 来自 中国–广东–深圳
按你的要求,用Delphi写了一个,与你的要求一样,含源代码。
Rulzy 发表于 2010-6-5 15:02

R版主就是强
回复

使用道具 举报

发表于 2010-6-5 15:26:27 | 显示全部楼层 来自 中国–广东–广州–番禺区
在此顺便问一下R版!
用Delphi是不是比起用C++要容易点呢?
回复

使用道具 举报

游客
回复
您需要登录后才可以回帖 登录 | 注个册吧

快速回复 返回顶部 返回列表