如何自动登录帐号(有5个号)以可以单号上号与退出,帮修改一下吧谢谢了

gyc19870205 · 发表于 2020-6-29 17:09:43

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备注
_按钮_游戏路径_被单击

通用对话框_游戏路径.打开 ()
编辑框_游戏路径.内容＝通用对话框_游戏路径.文件名

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

大漠注册 ()
读取配置 ()

子程序名	返回值类型	公开	备注
大漠注册

变量名	类型	静态	数组	备注
VER	文本型

运行 (“regsvr32 dm.dll /s”, 假, 1)
dm.创建 ()
VER ＝ dm.Ver ()
调试输出 (“ver=” ＋ VER)
' “ver=3.1233”
' 通过检查版本号判断大漠对象是否创建成功

如果真 (VER ＝ “3.1233”)

调试输出 (“版本正确，注册成功”)

' 运行到这儿表示大漠创建成功

' 设置大漠全局路径----

' 大漠根目录创建PIC文件夹用于存文件与图片

dm.SetPath (取运行目录 () ＋ “\pic\”)

' 设置字库文件

dm.SetDict (0, “1.txt”)

dm.UseDict (0)

子程序名	返回值类型	公开	备注
_按钮_保存配制_被单击

保存配制 ()

子程序名	返回值类型	公开	备注
保存配制

变量名	类型	静态	数组	备注
游戏路径	文本型
服务器	文本型

服务器＝编辑框_服务器.内容
游戏路径＝编辑框_游戏路径.内容
写配置项 (取运行目录 () ＋ “\config.ini”, “窗口信息”, “服务器”, 服务器)
写配置项 (取运行目录 () ＋ “\config.ini”, “窗口信息”, “游戏路径”, 游戏路径)

子程序名	返回值类型	公开	备注
_按钮_读取配制_被单击

读取配置 ()

子程序名	返回值类型	公开	备注
读取配置

变量名	类型	静态	数组	备注
服务器	文本型
游戏路径	文本型

服务器＝读配置项 (取运行目录 () ＋ “\config.ini”, “窗口信息”, “服务器”, 服务器)
游戏路径＝读配置项 (取运行目录 () ＋ “\config.ini”, “窗口信息”, “游戏路径”, 游戏路径)
编辑框_服务器.内容＝服务器
编辑框_游戏路径.内容＝游戏路径

子程序名	返回值类型	公开	备注
_按钮_登录帐号_被单击

变量名	类型	静态	数组	备注
fileNum	整数型
fileContent	文本型
contentArray	文本型		0
username_pwd	文本型		0
username	文本型
pwd	文本型
i	整数型			循环索引
文件号	整数型
文本	文本型

fileNum ＝打开文件 (“D:\易学习\毕业\pic\帐号信息.txt”, , )  ' fileNum 文件编号
fileContent ＝读入文本 (fileNum, )  ' fileContent  文件内容
contentArray ＝分割文本 (fileContent, #换行符, )
username_pwd ＝分割文本 (contentArray [1], “-----”, )  ' username_pwd用户名\u pwd

计次循环首 (取数组成员数 (contentArray), i)

username_pwd ＝分割文本 (contentArray [i], “-----”, )

调试输出 (“账号：” ＋ username_pwd [1])

调试输出 (“密码：” ＋ username_pwd [2])

计次循环尾 ()
username ＝ username_pwd [1]
pwd ＝ username_pwd [2]
' 调试输出 (username, pwd)
编辑框_帐号.内容＝ username
编辑框_密码.内容＝ pwd

子程序名	返回值类型	公开	备注
_按钮_登录游戏_被单击

变量名	类型	静态	数组	备注
一级句柄	整数型
返回值	整数型
x	整数型
y	整数型

运行 (编辑框_游戏路径.内容, 假, ) ' 打开游戏
程序_延时 (1, 1)
一级句柄＝ dm.FindWindow (“#32770”, “”) ' FindWindow 查找一级句柄先是窗口类目再是窗口标题
调试输出 (“一级句柄=” ＋到文本 (一级句柄))

判断 (一级句柄＞ 0)

调试输出 (“窗口打开了”)

' dm.MoveWindow (一级句柄, 0, 0)

调试输出 (“窗口没有打开”)
程序_延时 (1, 1)
返回值＝ dm.BindWindow (一级句柄, “normal”, “normal”, “normal”, 0)
调试输出 (“返回值=” ＋到文本 (返回值))

如果真 (返回值＝ 1)

调试输出 (“游戏窗口邦定成功”)

返回值＝ dm.FindPic (659, 203, 965, 326, “D:\易学习\毕业\pic\用户名.bmp”, “909090”, 0.9, 0, x, y)

如果真 (返回值 ≠ -1)

调试输出 (“当前是登录界面”)

dm.MoveTo (787, 245)
dm.LeftClick ()
键盘_模拟输入 (“akucqc8@163.com”)  ' 如何才能让编辑框_帐号自动输入到这儿?
程序_延时 (1, 1)
dm.MoveTo (771, 295)
dm.LeftClick ()
键盘_模拟输入 (“akucqc8@163.com”)  ' 输入密码
程序_延时 (1, 1)
dm.MoveTo (782, 423)  ' 进入游戏
dm.LeftClick ()
程序_延时 (3, 1)
dm.MoveTo (1010, 151)  ' 退出游戏

i支持库列表	支持库注释
dm	(未知支持库)
spec	特殊功能支持库

.版本 2<br />
.支持库 dm<br />
.支持库 spec<br />
<br />
.程序集 窗口程序集_启动窗口<br />
<br />
.子程序 _按钮_游戏路径_被单击<br />
<br />
通用对话框_游戏路径.打开 ()<br />
编辑框_游戏路径.内容 ＝ 通用对话框_游戏路径.文件名<br />
<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
大漠注册 ()<br />
读取配置 ()<br />
<br />
<br />
.子程序 大漠注册<br />
.局部变量 VER, 文本型<br />
<br />
运行 (“regsvr32 dm.dll /s”, 假, 1)<br />
dm.创建 ()<br />
VER ＝ dm.Ver ()<br />
调试输出 (“ver=” ＋ VER)<br />
' “ver=3.1233”<br />
' 通过检查版本号判断大漠对象是否创建成功<br />
.如果真 (VER ＝ “3.1233”)<br />
    调试输出 (“版本正确，注册成功”)<br />
    ' 运行到这儿表示大漠创建成功<br />
<br />
    ' 设置大漠全局路径----<br />
    ' 大漠根目录创建PIC文件夹用于存文件与图片<br />
    dm.SetPath (取运行目录 () ＋ “\pic\”)<br />
    ' 设置字库文件<br />
    dm.SetDict (0, “1.txt”)<br />
    dm.UseDict (0)<br />
.如果真结束<br />
<br />
<br />
.子程序 _按钮_保存配制_被单击<br />
<br />
保存配制 ()<br />
<br />
<br />
.子程序 保存配制<br />
.局部变量 游戏路径, 文本型<br />
.局部变量 服务器, 文本型<br />
<br />
服务器 ＝ 编辑框_服务器.内容<br />
游戏路径 ＝ 编辑框_游戏路径.内容<br />
写配置项 (取运行目录 () ＋ “\config.ini”, “窗口信息”, “服务器”, 服务器)<br />
写配置项 (取运行目录 () ＋ “\config.ini”, “窗口信息”, “游戏路径”, 游戏路径)<br />
<br />
.子程序 _按钮_读取配制_被单击<br />
<br />
读取配置 ()<br />
<br />
<br />
.子程序 读取配置<br />
.局部变量 服务器, 文本型<br />
.局部变量 游戏路径, 文本型<br />
<br />
服务器 ＝ 读配置项 (取运行目录 () ＋ “\config.ini”, “窗口信息”, “服务器”, 服务器)<br />
游戏路径 ＝ 读配置项 (取运行目录 () ＋ “\config.ini”, “窗口信息”, “游戏路径”, 游戏路径)<br />
编辑框_服务器.内容 ＝ 服务器<br />
编辑框_游戏路径.内容 ＝ 游戏路径<br />
<br />
<br />
.子程序 _按钮_登录帐号_被单击<br />
.局部变量 fileNum, 整数型<br />
.局部变量 fileContent, 文本型<br />
.局部变量 contentArray, 文本型, , "0"<br />
.局部变量 username_pwd, 文本型, , "0"<br />
.局部变量 username, 文本型<br />
.局部变量 pwd, 文本型<br />
.局部变量 i, 整数型, , , 循环索引<br />
.局部变量 文件号, 整数型<br />
.局部变量 文本, 文本型<br />
<br />
fileNum ＝ 打开文件 (“D:\易学习\毕业\pic\帐号信息.txt”, , )  ' fileNum 文件编号<br />
fileContent ＝ 读入文本 (fileNum, )  ' fileContent  文件内容<br />
contentArray ＝ 分割文本 (fileContent, #换行符, )<br />
username_pwd ＝ 分割文本 (contentArray [1], “-----”, )  ' username_pwd用户名\u pwd<br />
<br />
.计次循环首 (取数组成员数 (contentArray), i)<br />
    username_pwd ＝ 分割文本 (contentArray <i>, “-----”, )<br />
    调试输出 (“账号：” ＋ username_pwd [1])<br />
    调试输出 (“密码：” ＋ username_pwd [2])<br />
.计次循环尾 ()<br />
<br />
username ＝ username_pwd [1]<br />
pwd ＝ username_pwd [2]<br />
' 调试输出 (username, pwd)<br />
编辑框_帐号.内容 ＝ username<br />
编辑框_密码.内容 ＝ pwd<br />
<br />
<br />
.子程序 _按钮_登录游戏_被单击<br />
.局部变量 一级句柄, 整数型<br />
.局部变量 返回值, 整数型<br />
.局部变量 x, 整数型<br />
.局部变量 y, 整数型<br />
<br />
运行 (编辑框_游戏路径.内容, 假, )  ' 打开游戏<br />
程序_延时 (1, 1)<br />
一级句柄 ＝ dm.FindWindow (“#32770”, “”)  ' FindWindow 查找一级句柄  先是窗口类目   再是窗口标题<br />
调试输出 (“一级句柄=” ＋ 到文本 (一级句柄))<br />
.判断开始 (一级句柄 ＞ 0)<br />
    调试输出 (“窗口打开了”)<br />
.默认<br />
    ' dm.MoveWindow (一级句柄, 0, 0)<br />
    调试输出 (“窗口没有打开”)<br />
.判断结束<br />
程序_延时 (1, 1)<br />
返回值 ＝ dm.BindWindow (一级句柄, “normal”, “normal”, “normal”, 0)<br />
调试输出 (“返回值=” ＋ 到文本 (返回值))<br />
.如果真 (返回值 ＝ 1)<br />
    调试输出 (“游戏窗口邦定成功”)<br />
.如果真结束<br />
<br />
返回值 ＝ dm.FindPic (659, 203, 965, 326, “D:\易学习\毕业\pic\用户名.bmp”, “909090”, 0.9, 0, x, y)<br />
.如果真 (返回值 ≠ -1)<br />
    调试输出 (“当前是登录界面”)<br />
.如果真结束<br />
<br />
dm.MoveTo (787, 245)<br />
dm.LeftClick ()<br />
<br />
键盘_模拟输入 (“<a href="mailto:akucqc8@163.com" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow">akucqc8@163.com</a>”)  ' 如何才能让编辑框_帐号自动输入到这儿?<br />
程序_延时 (1, 1)<br />
dm.MoveTo (771, 295)<br />
dm.LeftClick ()<br />
键盘_模拟输入 (“<a href="mailto:akucqc8@163.com" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow">akucqc8@163.com</a>”)  ' 输入密码<br />
<br />
程序_延时 (1, 1)<br />
dm.MoveTo (782, 423)  ' 进入游戏<br />
dm.LeftClick ()<br />
程序_延时 (3, 1)<br />
dm.MoveTo (1010, 151)  ' 退出游戏

补充内容 (2020-6-29 17:31):
A帐号上号后下号换成B帐号上号下号换成C的帐号要如何做?

以后的以后 · 发表于 2020-6-29 17:09:44

窗口程序集名	保留	保留	备注
窗口程序集_窗口1
变量名	类型	数组	备注
m_username	文本型	0
m_password	文本型	0

子程序名	返回值类型	公开	备注
_按钮_游戏路径_被单击

通用对话框_游戏路径.打开 ()
编辑框_游戏路径.内容＝通用对话框_游戏路径.文件名

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

大漠注册 ()
读取配置 ()

子程序名	返回值类型	公开	备注
大漠注册

变量名	类型	静态	数组	备注
VER	文本型

运行 (“regsvr32 dm.dll /s”, 假, 1)
dm.创建 ()
VER ＝ dm.Ver ()
调试输出 (“ver=” ＋ VER)
' “ver=3.1233”
' 通过检查版本号判断大漠对象是否创建成功

如果真 (VER ＝ “3.1233”)

调试输出 (“版本正确，注册成功”)

' 运行到这儿表示大漠创建成功

' 设置大漠全局路径----

' 大漠根目录创建PIC文件夹用于存文件与图片

dm.SetPath (取运行目录 () ＋ “\pic\”)

' 设置字库文件

dm.SetDict (0, “1.txt”)

dm.UseDict (0)

子程序名	返回值类型	公开	备注
_按钮_保存配制_被单击

保存配制 ()

子程序名	返回值类型	公开	备注
保存配制

变量名	类型	静态	数组	备注
游戏路径	文本型
服务器	文本型

服务器＝编辑框_服务器.内容
游戏路径＝编辑框_游戏路径.内容
写配置项 (取运行目录 () ＋ “\config.ini”, “窗口信息”, “服务器”, 服务器)
写配置项 (取运行目录 () ＋ “\config.ini”, “窗口信息”, “游戏路径”, 游戏路径)

子程序名	返回值类型	公开	备注
_按钮_读取配制_被单击

读取配置 ()

子程序名	返回值类型	公开	备注
读取配置

变量名	类型	静态	数组	备注
服务器	文本型
游戏路径	文本型

服务器＝读配置项 (取运行目录 () ＋ “\config.ini”, “窗口信息”, “服务器”, 服务器)
游戏路径＝读配置项 (取运行目录 () ＋ “\config.ini”, “窗口信息”, “游戏路径”, 游戏路径)
编辑框_服务器.内容＝服务器
编辑框_游戏路径.内容＝游戏路径

子程序名	返回值类型	公开	备注
_按钮_登录帐号_被单击

变量名	类型	静态	数组	备注
fileNum	整数型
fileContent	文本型
contentArray	文本型		0
username_pwd	文本型		0
i	整数型			循环索引
文件号	整数型
文本	文本型

清除数组 (m_username)
清除数组 (m_password)
fileNum ＝打开文件 (“D:\易学习\毕业\pic\帐号信息.txt”, , ) ' fileNum 文件编号
fileContent ＝读入文本 (fileNum, ) ' fileContent 文件内容
contentArray ＝分割文本 (fileContent, #换行符, )

计次循环首 (取数组成员数 (contentArray), i)

username_pwd ＝分割文本 (contentArray [i], “-----”, )

加入成员 (m_username, username_pwd [1])

加入成员 (m_password, username_pwd [2])

计次循环尾 ()
编辑框_帐号.内容＝ m_username [1]
编辑框_密码.内容＝ m_password [1]

子程序名	返回值类型	公开	备注
_按钮_登录游戏_被单击

变量名	类型	静态	数组	备注
一级句柄	整数型
返回值	整数型
x	整数型
y	整数型
i	整数型

计次循环首 (取数组成员数 (m_username), i)

运行 (编辑框_游戏路径.内容, 假, ) ' 打开游戏

程序_延时 (1, 1)

一级句柄＝ dm.FindWindow (“#32770”, “”) ' FindWindow 查找一级句柄先是窗口类目再是窗口标题

调试输出 (“一级句柄=” ＋到文本 (一级句柄))

判断 (一级句柄＞ 0)

调试输出 (“窗口打开了”)

' dm.MoveWindow (一级句柄, 0, 0)

调试输出 (“窗口没有打开”)

程序_延时 (1, 1)

返回值＝ dm.BindWindow (一级句柄, “normal”, “normal”, “normal”, 0)

调试输出 (“返回值=” ＋到文本 (返回值))

如果真 (返回值＝ 1)

调试输出 (“游戏窗口邦定成功”)

返回值＝ dm.FindPic (659, 203, 965, 326, “D:\易学习\毕业\pic\用户名.bmp”, “909090”, 0.9, 0, x, y)

如果真 (返回值 ≠ -1)

调试输出 (“当前是登录界面”)

dm.MoveTo (787, 245)

dm.LeftClick ()

键盘_模拟输入 (m_username [i]) ' 如何才能让编辑框_帐号自动输入到这儿?

程序_延时 (1, 1)

dm.MoveTo (771, 295)

dm.LeftClick ()

键盘_模拟输入 (m_password [i]) ' 输入密码

程序_延时 (1, 1)

dm.MoveTo (782, 423) ' 进入游戏

dm.LeftClick ()

程序_延时 (3, 1)

dm.MoveTo (1010, 151) ' 退出游戏

计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br />
.支持库 spec<br />
<br />
.程序集 窗口程序集_窗口1<br />
.程序集变量 m_username, 文本型, , "0"<br />
.程序集变量 m_password, 文本型, , "0"<br />
<br />
.子程序 _按钮_游戏路径_被单击<br />
<br />
通用对话框_游戏路径.打开 ()<br />
编辑框_游戏路径.内容 ＝ 通用对话框_游戏路径.文件名<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
大漠注册 ()<br />
读取配置 ()<br />
<br />
.子程序 大漠注册<br />
.局部变量 VER, 文本型<br />
<br />
运行 (“regsvr32 dm.dll /s”, 假, 1)<br />
dm.创建 ()<br />
VER ＝ dm.Ver ()<br />
调试输出 (“ver=” ＋ VER)<br />
' “ver=3.1233”<br />
' 通过检查版本号判断大漠对象是否创建成功<br />
.如果真 (VER ＝ “3.1233”)<br />
    调试输出 (“版本正确，注册成功”)<br />
    ' 运行到这儿表示大漠创建成功<br />
    ' 设置大漠全局路径----<br />
    ' 大漠根目录创建PIC文件夹用于存文件与图片<br />
    dm.SetPath (取运行目录 () ＋ “\pic\”)<br />
    ' 设置字库文件<br />
    dm.SetDict (0, “1.txt”)<br />
    dm.UseDict (0)<br />
.如果真结束<br />
<br />
<br />
.子程序 _按钮_保存配制_被单击<br />
<br />
保存配制 ()<br />
<br />
.子程序 保存配制<br />
.局部变量 游戏路径, 文本型<br />
.局部变量 服务器, 文本型<br />
<br />
服务器 ＝ 编辑框_服务器.内容<br />
游戏路径 ＝ 编辑框_游戏路径.内容<br />
写配置项 (取运行目录 () ＋ “\config.ini”, “窗口信息”, “服务器”, 服务器)<br />
写配置项 (取运行目录 () ＋ “\config.ini”, “窗口信息”, “游戏路径”, 游戏路径)<br />
<br />
.子程序 _按钮_读取配制_被单击<br />
<br />
读取配置 ()<br />
<br />
.子程序 读取配置<br />
.局部变量 服务器, 文本型<br />
.局部变量 游戏路径, 文本型<br />
<br />
服务器 ＝ 读配置项 (取运行目录 () ＋ “\config.ini”, “窗口信息”, “服务器”, 服务器)<br />
游戏路径 ＝ 读配置项 (取运行目录 () ＋ “\config.ini”, “窗口信息”, “游戏路径”, 游戏路径)<br />
编辑框_服务器.内容 ＝ 服务器<br />
编辑框_游戏路径.内容 ＝ 游戏路径<br />
<br />
.子程序 _按钮_登录帐号_被单击<br />
.局部变量 fileNum, 整数型<br />
.局部变量 fileContent, 文本型<br />
.局部变量 contentArray, 文本型, , "0"<br />
.局部变量 username_pwd, 文本型, , "0"<br />
.局部变量 i, 整数型, , , 循环索引<br />
.局部变量 文件号, 整数型<br />
.局部变量 文本, 文本型<br />
<br />
清除数组 (m_username)<br />
清除数组 (m_password)<br />
fileNum ＝ 打开文件 (“D:\易学习\毕业\pic\帐号信息.txt”, , )  ' fileNum 文件编号<br />
fileContent ＝ 读入文本 (fileNum, )  ' fileContent  文件内容<br />
contentArray ＝ 分割文本 (fileContent, #换行符, )<br />
.计次循环首 (取数组成员数 (contentArray), i)<br />
    username_pwd ＝ 分割文本 (contentArray <i>, “-----”, )<br />
    加入成员 (m_username, username_pwd [1])<br />
    加入成员 (m_password, username_pwd [2])<br />
.计次循环尾 ()<br />
编辑框_帐号.内容 ＝ m_username [1]<br />
编辑框_密码.内容 ＝ m_password [1]<br />
<br />
.子程序 _按钮_登录游戏_被单击<br />
.局部变量 一级句柄, 整数型<br />
.局部变量 返回值, 整数型<br />
.局部变量 x, 整数型<br />
.局部变量 y, 整数型<br />
.局部变量 i, 整数型<br />
<br />
.计次循环首 (取数组成员数 (m_username), i)<br />
    运行 (编辑框_游戏路径.内容, 假, )  ' 打开游戏<br />
    程序_延时 (1, 1)<br />
    一级句柄 ＝ dm.FindWindow (“#32770”, “”)  ' FindWindow 查找一级句柄  先是窗口类目   再是窗口标题<br />
    调试输出 (“一级句柄=” ＋ 到文本 (一级句柄))<br />
    .判断开始 (一级句柄 ＞ 0)<br />
        调试输出 (“窗口打开了”)<br />
    .默认<br />
        ' dm.MoveWindow (一级句柄, 0, 0)<br />
        调试输出 (“窗口没有打开”)<br />
    .判断结束<br />
    程序_延时 (1, 1)<br />
    返回值 ＝ dm.BindWindow (一级句柄, “normal”, “normal”, “normal”, 0)<br />
    调试输出 (“返回值=” ＋ 到文本 (返回值))<br />
    .如果真 (返回值 ＝ 1)<br />
        调试输出 (“游戏窗口邦定成功”)<br />
    .如果真结束<br />
    返回值 ＝ dm.FindPic (659, 203, 965, 326, “D:\易学习\毕业\pic\用户名.bmp”, “909090”, 0.9, 0, x, y)<br />
    .如果真 (返回值 ≠ -1)<br />
        调试输出 (“当前是登录界面”)<br />
    .如果真结束<br />
    dm.MoveTo (787, 245)<br />
    dm.LeftClick ()<br />
    键盘_模拟输入 (m_username <i>)  ' 如何才能让编辑框_帐号自动输入到这儿?<br />
    程序_延时 (1, 1)<br />
    dm.MoveTo (771, 295)<br />
    dm.LeftClick ()<br />
    键盘_模拟输入 (m_password <i>)  ' 输入密码<br />
    程序_延时 (1, 1)<br />
    dm.MoveTo (782, 423)  ' 进入游戏<br />
    dm.LeftClick ()<br />
    程序_延时 (3, 1)<br />
    dm.MoveTo (1010, 151)  ' 退出游戏<br />
.计次循环尾 ()