大漠怎么用的，来看看，帮我修改修改喂

lsm3

大漠怎么用的，来看看，帮我修改修改喂

用的是大漠7.2211 模块

Siempre

大漠模板.e (153.02 KB, 下载次数: 32)

2022-7-6 14:35 上传

点击文件名下载附件

lsm3

.版本 2
.支持库 spec
.支持库 iext5
.支持库 iext

.子程序 上号
.局部变量 文件编号, 整数型
.局部变量 文件内容, 文本型
.局部变量 文本数组, 文本型, , "0"
.局部变量 账号密码数组, 文本型, , "0"
.局部变量 文件号, 整数型
.局部变量 文本, 文本型
.局部变量 X, 整数型
.局部变量 Y, 整数型
.局部变量 找图, 整数型
.局部变量 找图2, 整数型
.局部变量 表项索引, 整数型


延迟 (4000)
' 清除数组 (m_username)
' 清除数组 (m_password)
文件编号 ＝ 打开文件 (“D:\帐号信息.txt”, , )  ' fileNum 文件编号
文件内容 ＝ 读入文本 (文件编号, )  ' fileContent  文件内容
文本数组 ＝ 分割文本 (文件内容, #换行符, )  ' #换行符
.计次循环首 (取数组成员数 (文本数组), i)  ' 这里是不是有问题，登录失败也会下一个号 ，10个号他就只循环10次，我想要的是，一直循环 直到号上完，←←←←←←←
    ' 延迟 (1000)
    .如果真 (按钮1.标题 ＝ “关（0）”)
        跳出循环 ()
    .如果真结束

    找图 ＝ 大漠.图色_找色 (到数值 (编辑框33.内容), 到数值 (编辑框44.内容), 到数值 (编辑框55.内容), 到数值 (编辑框66.内容), 编辑框22.内容, 1, 0, X, Y)  ' 1是找到
    ' 找图 ＝ 大漠.图色_找图 (到数值 (编辑框3.内容), 到数值 (编辑框4.内容), 到数值 (编辑框5.内容), 到数值 (编辑框6.内容), “1.bmp”, “000000”, 0.9, 0, X, Y)  ' 0是找到
    ' 找图 ＝ 大漠.文字_找字 (到数值 (编辑框3.内容), 到数值 (编辑框4.内容), 到数值 (编辑框5.内容), 到数值 (编辑框6.内容), “大漠找字”, “18191c-101010|18191c-505050”, 0.9, X, Y)  ' 0是找到
    .如果 (找图 ＝ 1)
        调试输出 (“找到”)
        大漠.鼠标_移动 (X, Y)
        气球提示框1.弹出提示框 (取鼠标水平位置 (), 取鼠标垂直位置 (), “找到了，在这里！”, #信息图标, 真)
        延迟 (4000)
        账号密码数组 ＝ 分割文本 (文本数组 [i], “:”, )  ' -----:
        键盘_模拟输入 (账号密码数组 [1])
        延迟 (1000)
        键盘_单击 (13)
        延迟 (1000)
        键盘_模拟输入 (账号密码数组 [2])
        延迟 (1000)
        键盘_单击 (13)
        延迟 (1000)

    .否则

        气球提示框1.弹出提示框 (取鼠标水平位置 (), 取鼠标垂直位置 (), “没找到”, #信息图标, 真)
        调试输出 (“没有找到”)
    .如果结束

    找图2 ＝ 大漠.图色_找色 (到数值 (编辑框33.内容), 到数值 (编辑框44.内容), 到数值 (编辑框55.内容), 到数值 (编辑框66.内容), 编辑框22.内容, 1, 0, X, Y)  ' 这里是进到游戏 登录成功，如我上1号，1号登录成功，上2号登录失败,重新登录2号怎么做
    .判断开始 (找图2 ＝ 1)
        超级列表框1.置标题 (表项索引, 3, “登录成功”)
        表项索引 ＝ 表项索引 ＋ 1
        ' i ＝ i ＋ 1

    .默认
        超级列表框1.置标题 (表项索引, 3, “登录失败”)
    .判断结束

    .如果真 (按钮1.标题 ＝ “关（0）”)
        跳出循环 ()

    .如果真结束
    处理事件 ()

.计次循环尾 ()

.子程序 _按钮1_被单击

.判断开始 (按钮1.标题 ＝ “关（0）”)
    按钮1.标题 ＝ “开（1）”
    上号 ()
    延迟 (1)
.默认

    按钮1.标题 ＝ “关（0）”
    延迟 (1)

lsm3

在帮我看看这上号的

走一回

改成怎样的也不知道，就发贴了吗？

lsm3

执骨哟

别人提供大漠模板给你学习了也不给最佳，给个评分就结束了吗，你这样谁会继续帮助你呢？