一个小小挂机锁 （看了乱码大神写的了 没有办法比啊！）

leiluotaxiang

我是一个刚刚开始学习vbs的新手  平常工作也比较忙！而且也不和软件打交道。
其实一直在等论坛公开注册！ 但是总是等不到 现在已经迫不急待了 所以就花钱买了一个（相当于我买一个魔方的钱啊！只能少买一个魔方了，今天新来就把自己新写的一个挂机锁给大家分享一下吧！  ）还望大家给点意见！ 我要思路 我要进步 挂机锁（时间提示版）.rar (862 Bytes, 下载次数: 57)

2013-10-22 21:07 上传

点击文件名下载附件

代码如下：
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

最后弱弱的问一句 新人报到去哪啊！

ZTR

不错啊

leiluotaxiang

ZTR 发表于 2013-10-22 21:33
不错啊

谢谢你的鼓励 想知道你的新人报到去哪报的？

dalerkd

新人发软件就是报道

leiluotaxiang

dalerkd 发表于 2013-10-22 22:16
新人发软件就是报道

哦 谢谢你的回答！

leiluotaxiang

夜的静night 发表于 2013-10-22 22:20
很不错哈  看了下

有什么意见或者建议都可以给我说一下 我好改进！

海盗小K

提醒下楼主，不可以留QQ哦。

leiluotaxiang

海盗小K 发表于 2013-10-22 22:23
提醒下楼主，不可以留QQ哦。

这也算啊？！ 那我还是赶快处理一下吧！

阳爱凡

不错！我也今天刚进来！