前言:如果有多个游戏窗口一个一个的点击登陆比较麻烦,如果能一键登录就方便了

第一步:设计窗体(一个超级列表框,主要是读取账号和密码的。两个按钮,一个文本框:打开游戏的路径,今天用的是天使模块)

窗体设计

第二步:实现(这里就不细讲了)看图片 图片下面有具体代码

代码1

代码2

代码3

具体代码如下:

.版本 2

.支持库 iext

.支持库 spec

.程序集 窗口程序集_启动窗口

.程序集变量 索引, 整数型

.程序集变量 内容, 文本型

.程序集变量 账号, 文本型, , "0"

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

.程序集变量 TS, 类_天使

.子程序 _按钮_读取_被单击

.局部变量 首次分割, 文本型, , "0"

.局部变量 i, 整数型

.局部变量 二次分割, 文本型, , "0"

超级列表框1.全部删除 ()

首次分割 = 分割文本 (内容, #换行符, )

.计次循环首 (取数组成员数 (首次分割), i)

索引 = 超级列表框1.插入表项 (i - 1, 到文本 (i), , , , )

二次分割 = 分割文本 (首次分割 [i], “/”, )

加入成员 (账号, 二次分割 [1])

加入成员 (密码, 二次分割 [2])

超级列表框1.置标题 (索引, 1, 二次分割 [1])

超级列表框1.置标题 (索引, 2, 二次分割 [2])

超级列表框1.置标题 (索引, 3, “未登录”)

.计次循环尾 ()

调试输出 (账号)

调试输出 (密码)

' 重定义数组 (TS, 假, 取数组成员数 (账号))

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

内容 = 到文本 (读入文件 (取运行目录 () + “信息.txt”))

调试输出 (“读取到的信息:”, 内容)

.子程序 _按钮_登录_被单击

.局部变量 i, 整数型

.局部变量 j, 整数型

.局部变量 进程名数组, 文本型, , "0"

.局部变量 进程ID数组, 整数型, , "0"

.局部变量 进程数量, 整数型

.局部变量 临时登录句柄, 整数型

.局部变量 绑定值, 整数型

.计次循环首 (取数组成员数 (账号), i)

进程_创建 (编辑框_路径.内容)

程序_延时 (3000)

进程数量 = 进程_枚举 (进程名数组, 进程ID数组)

.计次循环首 (进程数量, j)

.如果真 (进程名数组 [j] = “Game.dat”)

临时登录句柄 = 进程_ID取窗口句柄 (进程ID数组 [i])

跳出循环 ()

.如果真结束

处理事件 ()

.计次循环尾 ()

' 绑定值 = TS [i].BindWindow (临时登录句柄, “gdi”, “windows”, “windows”, 101)

调试输出 (“临时登录窗口值:”, 绑定值)

.计次循环尾 ()

第三步:运行效果(读取账号和密码,绑定窗口)

运行效果

谢谢大家留言互粉!!

相关推荐