类似网吧用的挂机锁

.如果 (编辑框1.内容 ≠ “”)
.如果 (编辑框1.内容 ＝ 编辑框2.内容)
密码 ＝ 编辑框2.内容
挂机提示 ＝ 编辑框3.内容
载入 (窗口1, , 假)
销毁 ()
.否则
信息框 (“密码和确认密码输入不一致！”, 48, “提示”)
.如果结束
钩子句柄 ＝ 安装钩子 (13, &钩子函数, GetModuleHandleA (0), 0)
.否则
信息框 (“密码不可以为空！”, 48, “提示”)