一个小小挂机锁 （看了乱码大神写的了 没有办法比啊！）
本帖最后由 leiluotaxiang 于 2013-10-22 22:27 编辑我是一个刚刚开始学习vbs的新手平常工作也比较忙！而且也不和软件打交道。
其实一直在等论坛公开注册！ 但是总是等不到 现在已经迫不急待了 所以就花钱买了一个（相当于我买一个魔方的钱啊！只能少买一个魔方了，今天新来就把自己新写的一个挂机锁给大家分享一下吧！）还望大家给点意见！ 我要思路 我要进步
代码如下：
On Error Resume next
dim a,b,Wsh
a=inputbox("请输入挂机密码:"&chr(13)&chr(13)&"当前时间为："&Chr(13)&Date()&Chr(13)&Time(),"挂机锁--鸿飞齐天 QQ： 鸿飞工作室")
If IsEmpty(a) Then ' 当输入为空值时（如点击取消或者关闭）
createobject("wscript.shell").popup " 你已经取消挂机"&chr(13)&" 谢谢使用suner挂机锁"&chr(13)&"当前时间为："& Now,,"挂机锁--鸿飞齐天"
WScript.Quit '退出vbs
Else
Set Wsh = WScript.CreateObject("WScript.Shell")
Wsh.run "taskkill /f /im explorer.exe" ' 关闭桌面
Set Mgr = WScript.CreateObject("WScript.Shell")
Mgr.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",1,"REG_DWORD" '通过修改注册表来禁止任务管理器
b=inputbox("请输入正确挂机密码进行解锁…………:"&chr(13)&chr(13)&"当前时间为："&Chr(13)&Date()&Chr(13)&Time()," 挂机锁--鸿飞齐天 鸿飞工作室")
End if
Do
if b=a then
Set Wsh = WScript.CreateObject("WScript.Shell")
Wsh.run "explorer.exe" ' 运行桌面
Set Mgr = WScript.CreateObject("Wscript.Shell")
Mgr.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0,"REG_DWORD" '允许使用任务管理器
MsgBox "谢谢使用suner挂机锁 有不足之处请联系QQ877929281或者发邮件到877929281@qq.com","挂机锁--鸿飞齐天 QQ： 鸿飞工作室"
Exit do
else
b=inputbox("挂机中…… "&chr(13)&chr(13)&"解锁需要重新输入正确验证码:"&chr(13)&chr(13)&"当前时间为："&Chr(13)&Date()&Chr(13)&Time()," 挂机锁---鸿飞齐天 QQ： 鸿飞工作室")
End if
Loop
最后弱弱的问一句 新人报到去哪啊！
{:1_921:} 不错啊 ZTR 发表于 2013-10-22 21:33 static/image/common/back.gif
不错啊
谢谢你的鼓励 想知道你的新人报到去哪报的？
新人发软件就是报道 dalerkd 发表于 2013-10-22 22:16 static/image/common/back.gif
新人发软件就是报道
哦 谢谢你的回答！
夜的静night 发表于 2013-10-22 22:20 static/image/common/back.gif
很不错哈看了下
有什么意见或者建议都可以给我说一下 我好改进！
提醒下楼主，不可以留QQ哦。 海盗小K 发表于 2013-10-22 22:23 static/image/common/back.gif
提醒下楼主，不可以留QQ哦。
这也算啊？！ 那我还是赶快处理一下吧！
不错！我也今天刚进来！