超简单登录器

V伏地魔

程序截图
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      

                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        

另外求好评求精币

据说给别人好评和精币是不要自己的哦！
Login.rar (160.8 KB, 下载次数: 11)

2018-8-17 16:09 上传

点击文件名下载附件
解压使用
下载积分: 精币 -2 枚

有什么建议请在最下面评论

  

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

置托盘图标 (取运行目录 () ＋ “\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	整数型			激活窗口的句柄

.版本 2<br /> <br /> .DLL命令 SetForegroundWindow, 整数型, "user32", "SetForegroundWindow", , , , 将窗口设为系统的前台窗口。这个函数可用于改变用户目前正在操作的应用程序  非零表示成功，零表示失败。会设置GetLastError<br />     .参数 hwnd, 整数型, , 激活窗口的句柄

zjm199

虽然不是很懂，但是还是留个言

穆大大

...看着不错

sampo

什么情况？我来看看

qq2230552100

虽然不是很懂，但是还是留个言

848022520

看不懂，什么登录器？

1279868433

啥登录器            

liyunzhi

488402

感谢发布原创作品，精易因你更精彩！

chenhan420

感谢发布原创作品