超简单登录器 - 精易论坛

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

置托盘图标 (取运行目录 () ＋ “\123.ico”, “Login”)
LoginKey ＝到文本 (解密数据 (到字节集 (读配置项 (取运行目录 () ＋ “\config.ini”, “Main”, “LoginKey”, “”)), “QQ591616292”, ))

判断 (LoginKey ≠ “”)

_启动窗口.高度＝ 64

_启动窗口.标题＝ “Register”

置托盘图标 (取运行目录 () ＋ “\123.ico”, “Register”)

编辑框1.可视＝假

标签1.可视＝真

子程序名	返回值类型	公开	备注
启动子程序	整数型

载入 (_启动窗口, , 真)
返回 (0)

子程序名	返回值类型	公开	备注
_编辑框2_放开某键	逻辑型
参数名	类型	参考	可空	数组	备注
键代码	整数型
功能键状态	整数型

如果真 (键代码＝ #回车键 )

LoginKey ＝编辑框2.内容

写配置项 (取运行目录 () ＋ “\config.ini”, “Main”, “LoginKey”, 到文本 (加密数据 (到字节集 (LoginKey), “QQ591616292”, )))

置文件属性 (取运行目录 () ＋ “\config.ini”, 2)

载入 (MainPanel, , 真)

_启动窗口.销毁 ()

判断 (键代码＝ #Esc键 )

_启动窗口.销毁 ()

子程序名	返回值类型	公开	备注
_编辑框1_放开某键	逻辑型
参数名	类型	参考	可空	数组	备注
键代码	整数型
功能键状态	整数型

判断 (键代码＝ #回车键 )

判断 (编辑框1.内容＝ LoginKey)

载入 (MainPanel, , 真)

_启动窗口.销毁 ()

判断 (键代码＝ #Esc键 )
_启动窗口.销毁 ()

子程序名	返回值类型	公开	备注
__启动窗口_托盘事件
参数名	类型	参考	可空	数组	备注
操作类型	整数型

如果真 (操作类型＝ #双击 )

_启动窗口.总在最前＝真

_启动窗口.总在最前＝假

SetForegroundWindow (_启动窗口.取窗口句柄 ())

判断 (编辑框1.可视)

编辑框1.获取焦点 ()

编辑框2.获取焦点 ()

如果真 (操作类型＝ #单击右键 )

弹出托盘菜单 (Menu)

子程序名	返回值类型	公开	备注
_时钟1_周期事件

如果 (编辑框1.内容 ≠ “Please input the password.”)

时钟1.时钟周期＝ 0

编辑框1.内容＝子文本替换 (编辑框1.内容, “Please input the password.”, “”, , 1, 真)

编辑框1.起始选择位置＝取文本长度 (编辑框1.内容)

编辑框1.输入方式＝ 2

子程序名	返回值类型	公开	备注
_时钟2_周期事件

如果 (编辑框2.内容 ≠ “Please register a password.”)

时钟2.时钟周期＝ 0

编辑框2.内容＝子文本替换 (编辑框2.内容, “Please register a password.”, “”, , 1, 真)

编辑框2.起始选择位置＝取文本长度 (编辑框2.内容)

编辑框2.输入方式＝ 2

子程序名	返回值类型	公开	备注
_编辑框1_失去焦点

编辑框1.输入方式＝ 0
编辑框1.内容＝ “Please input the password.”
时钟1.时钟周期＝ 100

子程序名	返回值类型	公开	备注
_编辑框2_失去焦点

编辑框2.输入方式＝ 0
编辑框2.内容＝ “Please register a password.”
时钟2.时钟周期＝ 100

子程序名	返回值类型	公开	备注
_Close_被选择

_启动窗口.销毁 ()

i支持库列表	支持库注释
dp1	数据操作支持库一

.版本 2<br />
.支持库 dp1<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
置托盘图标 (取运行目录 () ＋ “\123.ico”, “Login”)<br />
LoginKey ＝ 到文本 (解密数据 (到字节集 (读配置项 (取运行目录 () ＋ “\config.ini”, “Main”, “LoginKey”, “”)), “QQ591616292”, ))<br />
.判断开始 (LoginKey ≠ “”)<br />
<br />
.默认<br />
    _启动窗口.高度 ＝ 64<br />
    _启动窗口.标题 ＝ “Register”<br />
    置托盘图标 (取运行目录 () ＋ “\123.ico”, “Register”)<br />
    编辑框1.可视 ＝ 假<br />
    标签1.可视 ＝ 真<br />
.判断结束<br />
<br />
<br />
.子程序 启动子程序, 整数型<br />
<br />
载入 (_启动窗口, , 真)<br />
返回 (0)<br />
<br />
.子程序 _编辑框2_放开某键, 逻辑型<br />
.参数 键代码, 整数型<br />
.参数 功能键状态, 整数型<br />
<br />
.如果真 (键代码 ＝ #回车键)<br />
    LoginKey ＝ 编辑框2.内容<br />
    写配置项 (取运行目录 () ＋ “\config.ini”, “Main”, “LoginKey”, 到文本 (加密数据 (到字节集 (LoginKey), “QQ591616292”, )))<br />
    置文件属性 (取运行目录 () ＋ “\config.ini”, 2)<br />
    载入 (MainPanel, , 真)<br />
    _启动窗口.销毁 ()<br />
.如果真结束<br />
.判断开始 (键代码 ＝ #Esc键)<br />
    _启动窗口.销毁 ()<br />
.默认<br />
<br />
.判断结束<br />
<br />
<br />
.子程序 _编辑框1_放开某键, 逻辑型<br />
.参数 键代码, 整数型<br />
.参数 功能键状态, 整数型<br />
<br />
.判断开始 (键代码 ＝ #回车键)<br />
    .判断开始 (编辑框1.内容 ＝ LoginKey)<br />
        载入 (MainPanel, , 真)<br />
        _启动窗口.销毁 ()<br />
    .默认<br />
<br />
    .判断结束<br />
<br />
.默认<br />
<br />
.判断结束<br />
.判断开始 (键代码 ＝ #Esc键)<br />
    _启动窗口.销毁 ()<br />
.默认<br />
<br />
.判断结束<br />
<br />
<br />
<br />
.子程序 __启动窗口_托盘事件<br />
.参数 操作类型, 整数型<br />
<br />
.如果真 (操作类型 ＝ #双击)<br />
    _启动窗口.总在最前 ＝ 真<br />
    _启动窗口.总在最前 ＝ 假<br />
    SetForegroundWindow (_启动窗口.取窗口句柄 ())<br />
    .判断开始 (编辑框1.可视)<br />
        编辑框1.获取焦点 ()<br />
    .默认<br />
        编辑框2.获取焦点 ()<br />
    .判断结束<br />
<br />
.如果真结束<br />
.如果真 (操作类型 ＝ #单击右键)<br />
    弹出托盘菜单 (Menu)<br />
.如果真结束<br />
<br />
<br />
.子程序 _时钟1_周期事件<br />
<br />
.如果 (编辑框1.内容 ≠ “Please input the password.”)<br />
    时钟1.时钟周期 ＝ 0<br />
    编辑框1.内容 ＝ 子文本替换 (编辑框1.内容, “Please input the password.”, “”, , 1, 真)<br />
    编辑框1.起始选择位置 ＝ 取文本长度 (编辑框1.内容)<br />
    编辑框1.输入方式 ＝ 2<br />
.否则<br />
<br />
.如果结束<br />
<br />
<br />
.子程序 _时钟2_周期事件<br />
<br />
.如果 (编辑框2.内容 ≠ “Please register a password.”)<br />
    时钟2.时钟周期 ＝ 0<br />
    编辑框2.内容 ＝ 子文本替换 (编辑框2.内容, “Please register a password.”, “”, , 1, 真)<br />
    编辑框2.起始选择位置 ＝ 取文本长度 (编辑框2.内容)<br />
    编辑框2.输入方式 ＝ 2<br />
.否则<br />
<br />
.如果结束<br />
<br />
<br />
.子程序 _编辑框1_失去焦点<br />
<br />
编辑框1.输入方式 ＝ 0<br />
编辑框1.内容 ＝ “Please input the password.”<br />
时钟1.时钟周期 ＝ 100<br />
<br />
.子程序 _编辑框2_失去焦点<br />
<br />
编辑框2.输入方式 ＝ 0<br />
编辑框2.内容 ＝ “Please register a password.”<br />
时钟2.时钟周期 ＝ 100<br />
<br />
<br />
.子程序 _Close_被选择<br />
<br />
_启动窗口.销毁 ()

DLL命令名	返回值类型	公开	备注
SetForegroundWindow	整数型		, , 将窗口设为系统的前台窗口。这个函数可用于改变用户目前正在操作的应用程序非零表示成功，零表示失败。会设置GetLastError
DLL库文件名:
user32
在DLL库中对应命令名:
SetForegroundWindow
参数名	类型	传址	数组	备注
hwnd	整数型			激活窗口的句柄