.版本 2 .程序集 窗口程序集1 .程序集变量 Hwnd, HL窗口 .程序集变量 编辑框_Us, HL编辑框 .程序集变量 编辑框_Pa, HL编辑框 .程序集变量 User, 文本型 .程序集变量 Pass, 文本型 .子程序 __启动窗口_创建完毕 Hwnd.绑定 (取窗口句柄 ()) Hwnd.修改窗口扩展风格 (#窗口扩展_分层) Hwnd.载入文件 (取运行目录 () ＋ “/Skin/login-box.htm”) User ＝ “admin” Pass ＝ “8888” Hwnd.事件_挂接元素事件 (&主窗口_特性事件, #筛选事件_特性事件) .子程序 主窗口_特性事件, 逻辑型 .参数 参数_元素句柄, 整数型, , he .参数 参数_目标元素句柄, 整数型, , target .参数 参数_事件类型, 整数型, , type “特性事件_”开头常量 .参数 参数_额外参数, 整数型, , reason 根据不同事件而定 .局部变量 局部_元素, HL元素 .局部变量 局部_属性, 文本型 .局部变量 参数_ID, 文本型 .如果真 (位与 (参数_事件类型, #事件阶段掩码_已处理) ＝ #事件阶段掩码_已处理) 参数_事件类型 ＝ 位与 (参数_事件类型, 32767) .如果真结束 .判断开始 (参数_事件类型 ＝ #特性事件_编辑值已改变) 局部_元素.置句柄 (参数_元素句柄) 参数_ID ＝ 局部_元素.取属性 (“id”) .如果真 (参数_ID ＝ “user”) 编辑框_Us.置句柄 (参数_元素句柄) .如果真结束 .如果真 (参数_ID ＝ “pass”) 编辑框_Pa.置句柄 (参数_元素句柄) .如果真结束 .默认 .判断结束 .判断开始 (参数_事件类型 ＝ #特性事件_按钮被按下) 局部_元素.置句柄 (参数_目标元素句柄) 局部_属性 ＝ 局部_元素.取文本 () .如果真 (局部_属性 ＝ “login”) .如果真 (编辑框_Us.取文本 () ＝ “”) 信息框 (“账号不能为空！”, #信息图标, ) 返回 (真) .如果真结束 .如果真 (编辑框_Pa.取文本 () ＝ “”) 信息框 (“密码不能为空！”, #信息图标, ) 返回 (真) .如果真结束 .如果 (编辑框_Us.取文本 () ＝ User) .如果 (编辑框_Pa.取文本 () ＝ Pass) 信息框 (“恭喜,登录成功！”, #信息图标, ) .否则 信息框 (“密码错误！”, #信息图标, ) .如果结束 .否则 信息框 (“账户不存在！”, #信息图标, ) .如果结束 .如果真结束 .默认 .判断结束 返回 (真)