[原创]右键随时随地清理垃圾(附送定时关机程式)

andysky

先看看效果(安装本程式后会在你的右键中新增一项菜单----清理拉圾)

请每周清理一次,保持电脑速度不逐渐缓慢

QyL0GRsZ.rar (49.7 KB, 下载次数: 91)

2007-3-14 09:24 上传

点击文件名下载附件
[原创]右键随时随地清理垃圾

关机程式在四楼

[此贴子已经被作者于2007-3-15 10:36:56编辑过]

向您问好

下载试用

Kelidai

用了再说好。

andysky

QUOTE:

简单,但思路重要.
使用方式:新建文本文件,将以下代码粘贴进去,再改文件名为“关机.vbs”
再打开试试.

QUOTE:

dim a,ctr
ctr=0 '设置计数器
const pass="password" '设置密码
do
if ctr=3 then
msgbox("你已经输入三次，程序将关闭！")
exit do
else
a=inputbox("请输入密码（你有三次机会）：","密码输入器","我不知道")
if a=pass then
msgbox "密码正确，可以添加任务！"
Set objShell = CreateObject ("Wscript.Shell")
objShell.Run("at 20:00 shutdown.exe -s"),1 ,TRUE '此处可以添加任意关机时间,格式为24小时制.
if  err  =   0   then
End If
exit do
else
ctr=ctr+1 '如果密码出错就增加一次错误认证计数
msgbox "输入错误密码，请重新输入！",4,"andysky提示"
end if
end if
loop

7VmDd1zP.rar (567 Bytes, 下载次数: 47)

2007-3-15 10:39 上传

点击文件名下载附件
[原创]右键随时随地清理垃圾(附送定时关机程式)

andysky

————————————————————————————————

 

DC.Direct

看来不错。。。

asiaexcel

Thank you very much!