易语言源码

.版本 2

.支持库s he ll

.程序集窗口程序集1

.程序集变量钩子句柄, 整数型

.程序集变量密码, 文本型

.子程序_按钮1_被单击

.如果(编辑框1.内容≠ “”)

密码＝编辑框1.内容

编辑框2.可视＝真

编辑框1.可视＝假

按钮2.可视＝真

按钮1.可视＝假

标签3.标题＝“屏幕已锁”

载入(窗口1, , 假)

.否则

标签3.标题＝“请输入密码”

.如果结束

钩子句柄＝安装钩子(13, &钩子函数, Ge tMo dule Ha nd le A (0), 0)

.子程序钩子函数, 整数型

.参数ico d e, 整数型

.参数w pa ra m, 整数型

.参数lp a ra m, 整数型

.局部变量按键信息, 按键信息

C op yMe mo ry (按键信息, lp a ra m, 28)

.如果真(ico d e＝0)

.如果真(按键信息.虚拟码＝#Alt键或按键信息.虚拟码＝#Ta b键或按键信息.虚拟码＝#F4键)

返回(1)

.如果真结束

.如果真(按键信息.虚拟码＝#Es c键或按键信息.虚拟码＝#C trl键或按键信息.虚拟码＝91 或按键信息.虚拟码＝92)

返回(1)

.如果真结束

返回(0)

.如果真结束

返回(下一个钩子(钩子句柄, ico d e, w pa ra m, lp a ra m))

.子程序_按钮2_被单击

.如果(编辑框2.内容＝密码)

编辑框1.可视＝真

卸载钩子(钩子句柄)

窗口1.销毁()

销毁()

.否则

标签3.标题＝“密码错了哦~~在试试吧！”

.如果结束

.子程序__启动窗口_创建完毕

.局部变量a, 整数型

a＝打开文件(取特定目录(#W ind ows系统目录) ＋“tas kmg r.e xe”, , )

.子程序_标签2_反馈事件, 整数型

.参数参数一, 整数型

———————————————————————————————————————复制线以上的。复制到源码制作那里就行了，然后其他的什么的要自己弄，要有按钮，输入槽两个，然后还有就是输入槽签名的名字，不然是不会识别这个源码的。