不知道这个做的对不对。。。。
一个挂机锁的代码。。。。。
.版本 2
.支持库 xplib
.程序集 窗口程序集1
.子程序 _编辑框1_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (键代码 = #回车键)
_图形按钮1_被单击 ()
.如果真结束
.子程序 _编辑框2_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (键代码 = #回车键)
_图形按钮1_被单击 ()
.如果真结束
.子程序 __启动窗口_创建完毕
按钮初始化 (画板1)
XP风格 (1)
图片框2.可视 = 假
取注册 ()
美化按钮 (图形按钮1, “锁 定”, 9)
美化按钮 (图形按钮2, “退 出”, 9)
美化按钮 (图形按钮3, “选 项”, 9)
美化按钮 (图形按钮4, “全 选”, 9)
美化按钮 (图形按钮5, “反 选”, 9)
美化按钮 (图形按钮6, “确 认”, 9)
画板1.销毁 () ' 由于已不再需要
.子程序 _图形按钮1_被单击
.如果真 (选择框1.选中 = 真)
桌面半透明 = 真
.如果真结束
.如果真 (选择框2.选中 = 真)
锁定计算机 = 真
.如果真结束
.如果真 (选择框3.选中 = 真)
任务管理器 = 真
.如果真结束
.如果真 (选择框4.选中 = 真)
更改密码 = 真
.如果真结束
.如果真 (选择框5.选中 = 真)
计算机注销 = 真
.如果真结束
.如果真 (选择框6.选中 = 真)
计算机关闭 = 真
.如果真结束
.如果 (编辑框1.内容 ≠ “”)
.如果 (编辑框1.内容 = 编辑框2.内容)
密码 = 编辑框2.内容
挂机提示 = 编辑框3.内容
载入 (窗口1, , 假)
销毁 ()
.否则
信息框 (“密码和确认密码输入不一致!”, 48, “提示”)
.如果结束
钩子句柄 = 安装钩子 (13, &钩子函数, GetModuleHandleA (0), 0)
.否则
信息框 (“密码不可以为空!”, 48, “提示”)
.如果结束
.子程序 _图形按钮2_被单击
销毁 ()
.子程序 _图形按钮4_被单击
选择框1.选中 = 真
选择框2.选中 = 真
选择框3.选中 = 真
选择框4.选中 = 真
选择框5.选中 = 真
选择框6.选中 = 真
.子程序 _图形按钮5_被单击
选择框1.选中 = 假
选择框2.选中 = 假
选择框3.选中 = 假
选择框4.选中 = 假
选择框5.选中 = 假
选择框6.选中 = 假
选择框1.选中 = 假
.子程序 _图形按钮6_被单击
图片框2.可视 = 假
图形按钮1.禁止 = 假
图形按钮2.禁止 = 假
图形按钮3.禁止 = 假
XP风格 (1)
.子程序 _图形按钮3_被单击
图片框2.可视 = 真
图形按钮1.禁止 = 真
图形按钮2.禁止 = 真
图形按钮3.禁止 = 真
XP风格 (0)
http://u.115.com/file/aqbhyfal#
挂机锁.e
|