求救啊提示数组成员引用下标超出定义范围

tianyule

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

.局部变量 i, 整数型
.局部变量 分割, 文本型, , "0"
.局部变量 键代码, 整数型
.局部变量 您的最高价格, 整数型
.局部变量 判断当前扫描价格第一次, 文本型, 静态, "0"
.局部变量 判断当前扫描价格第二次, 文本型, 静态, "0"
.局部变量 判断当前扫描价格1, 整数型, 静态
.局部变量 o, 整数型
.局部变量 扫描价格结果, 文本型, , "0"
.局部变量 a, 整数型

停止搜索1 ＝ 假
.如果真 (文件是否存在 (取运行目录 () ＋ “\配置.ini”) ＝ 假)
    信息框 (“请导入短语配置！”, 0, )
    返回 ()
.如果真结束
分割 ＝ 分割文本 (取配置项所有名称 (取运行目录 () ＋ “\配置.ini”, “键代码”), “i”, )
.计次循环首 (取数组成员数 (分割), i)
    键代码 ＝ 到整数 (读配置项 (取运行目录 () ＋ “\配置.ini”, “键代码”, 分割 , ))
    您的最高价格 ＝ 到整数 (读配置项 (取运行目录 () ＋ “\配置.ini”, “价格”, 分割 , ))
    鼠标移动 (取句柄2 (“DNF.exe”, “地下城与勇士”, “地下城与勇士”), 558, 130)
    延时 (20)
    鼠标键 ()
    延时 (50)
    鼠标移动 (取句柄2 (“DNF.exe”, “地下城与勇士”, “地下城与勇士”), 558, 130)
    延时 (20)
    鼠标键 ()
    延时 (20)
    鼠标移动 (取句柄2 (“DNF.exe”, “地下城与勇士”, “地下城与勇士”), 117, 133)
    延时 (20)
    鼠标键 ()
    延时 (20)
    键盘模拟 (取句柄2 (“DNF.exe”, “地下城与勇士”, “地下城与勇士”), 键代码, 2)
    延时 (20)
    键盘模拟 (取句柄2 (“DNF.exe”, “地下城与勇士”, “地下城与勇士”), #空格键)
    延时 (20)
    鼠标移动 (取句柄2 (“DNF.exe”, “地下城与勇士”, “地下城与勇士”), 473, 133)
    延时 (20)
    鼠标键 ()
    延迟 (1000)
    识别一组 ()
    .计次循环首 (6, o)
        超级列表框1.置标题 (o － 1, 1, 到文本 (物品数量 [o]))
        超级列表框1.置标题 (o － 1, 1, 到文本 (物品数量 [o]))
        超级列表框1.置标题 (o － 1, 1, 到文本 (物品数量 [o]))
        超级列表框1.置标题 (o － 1, 1, 到文本 (物品数量 [o]))
        超级列表框1.置标题 (o － 1, 1, 到文本 (物品数量 [o]))
        超级列表框1.置标题 (o － 1, 1, 到文本 (物品数量 [o]))
        超级列表框1.置标题 (o － 1, 2, 到文本 (单个价格 [o]))
        超级列表框1.置标题 (o － 1, 2, 到文本 (单个价格 [o]))
        超级列表框1.置标题 (o － 1, 2, 到文本 (单个价格 [o]))
        超级列表框1.置标题 (o － 1, 2, 到文本 (单个价格 [o]))
        超级列表框1.置标题 (o － 1, 2, 到文本 (单个价格 [o]))
        超级列表框1.置标题 (o － 1, 2, 到文本 (单个价格 [o]))
        超级列表框1.置标题 (o － 1, 3, 到文本 (物品总价 [o]))
        超级列表框1.置标题 (o － 1, 3, 到文本 (物品总价 [o]))
        超级列表框1.置标题 (o － 1, 3, 到文本 (物品总价 [o]))
        超级列表框1.置标题 (o － 1, 3, 到文本 (物品总价 [o]))
        超级列表框1.置标题 (o － 1, 3, 到文本 (物品总价 [o]))
        超级列表框1.置标题 (o － 1, 3, 到文本 (物品总价 [o]))

        .如果真 (到整数 (单个价格 [o]) ≠ 0)
            .如果真 (到整数 (单个价格 [o]) ≤ 您的最高价格)
                .如果真 (o ＝ 1)
                    鼠标移动 (取句柄2 (“DNF.exe”, “地下城与勇士”, “地下城与勇士”), 534, 184)
                    延时 (20)
                    鼠标键 ()
                    延时 (20)
                    鼠标移动 (取句柄2 (“DNF.exe”, “地下城与勇士”, “地下城与勇士”), 587, 215)
                    延时 (20)
                    鼠标键 ()
                    延时 (20)
                    鼠标移动 (取句柄2 (“DNF.exe”, “地下城与勇士”, “地下城与勇士”), 531, 231)
                    延时 (20)
                    鼠标键 ()
                    延时 (20)
                    鼠标移动 (取句柄2 (“DNF.exe”, “地下城与勇士”, “地下城与勇士”), 531, 230)
                    延时 (20)
                    鼠标键 ()
                    编辑框已收购记录.加入文本 (“您已秒到第” ＋ 到文本 (o) ＋ “格的物品” ＋ “ - ” ＋ “单个价格为：” ＋ 到文本 (单个价格 [o]) ＋ “ - ” ＋ “共有：” ＋ 到文本 (物品数量 [o]) ＋ “件物品总价格：” ＋ 到文本 (物品总价 [o]) ＋ #换行符)
                    跳出循环 ()
                .如果真结束
                .如果真 (o ＝ 2)
                    鼠标移动 (取句柄2 (“DNF.exe”, “地下城与勇士”, “地下城与勇士”), 534, 221)
                    延时 (20)
                    鼠标键 ()
                    延时 (20)
                    鼠标移动 (取句柄2 (“DNF.exe”, “地下城与勇士”, “地下城与勇士”), 587, 251)
                    延时 (20)
                    鼠标键 ()
                    延时 (20)
                    鼠标移动 (取句柄2 (“DNF.exe”, “地下城与勇士”, “地下城与勇士”), 531, 259)
                    延时 (20)
                    鼠标键 ()
                    延时 (20)
                    鼠标移动 (取句柄2 (“DNF.exe”, “地下城与勇士”, “地下城与勇士”), 531, 259)
                    延时 (20)
                    鼠标键 ()
                    编辑框已收购记录.加入文本 (“您已秒到第” ＋ 到文本 (o) ＋ “格的物品” ＋ “ - ” ＋ “单个价格为：” ＋ 到文本 (单个价格 [o]) ＋ “ - ” ＋ “共有：” ＋ 到文本 (物品数量 [o]) ＋ “件物品总价格：” ＋ 到文本 (物品总价 [o]) ＋ #换行符)
                    跳出循环 ()
                .如果真结束
                .如果真 (o ＝ 3)
                    鼠标移动 (取句柄2 (“DNF.exe”, “地下城与勇士”, “地下城与勇士”), 534, 257)
                    延时 (20)
                    鼠标键 ()
                    延时 (20)
                    鼠标移动 (取句柄2 (“DNF.exe”, “地下城与勇士”, “地下城与勇士”), 587, 289)
                    延时 (20)
                    鼠标键 ()
                    延时 (20)
                    鼠标移动 (取句柄2 (“DNF.exe”, “地下城与勇士”, “地下城与勇士”), 531, 305)
                    延时 (20)
                    鼠标键 ()
                    延时 (20)
                    鼠标移动 (取句柄2 (“DNF.exe”, “地下城与勇士”, “地下城与勇士”), 531, 305)
                    延时 (20)
                    鼠标键 ()
                    编辑框已收购记录.加入文本 (“您已秒到第” ＋ 到文本 (o) ＋ “格的物品” ＋ “ - ” ＋ “单个价格为：” ＋ 到文本 (单个价格 [o]) ＋ “ - ” ＋ “共有：” ＋ 到文本 (物品数量 [o]) ＋ “件物品总价格：” ＋ 到文本 (物品总价 [o]) ＋ #换行符)
                    跳出循环 ()
                .如果真结束
                .如果真 (o ＝ 4)
                    鼠标移动 (取句柄2 (“DNF.exe”, “地下城与勇士”, “地下城与勇士”), 534, 294)
                    延时 (20)
                    鼠标键 ()
                    延时 (20)
                    鼠标移动 (取句柄2 (“DNF.exe”, “地下城与勇士”, “地下城与勇士”), 587, 325)
                    延时 (20)
                    鼠标键 ()
                    延时 (20)
                    鼠标移动 (取句柄2 (“DNF.exe”, “地下城与勇士”, “地下城与勇士”), 531, 320)
                    延时 (20)
                    鼠标键 ()
                    延时 (20)
                    鼠标移动 (取句柄2 (“DNF.exe”, “地下城与勇士”, “地下城与勇士”), 531, 320)
                    延时 (20)
                    鼠标键 ()
                    编辑框已收购记录.加入文本 (“您已秒到第” ＋ 到文本 (o) ＋ “格的物品” ＋ “ - ” ＋ “单个价格为：” ＋ 到文本 (单个价格 [o]) ＋ “ - ” ＋ “共有：” ＋ 到文本 (物品数量 [o]) ＋ “件物品总价格：” ＋ 到文本 (物品总价 [o]) ＋ #换行符)
                    跳出循环 ()
                .如果真结束
                .如果真 (o ＝ 5)
                    鼠标移动 (取句柄2 (“DNF.exe”, “地下城与勇士”, “地下城与勇士”), 534, 333)
                    延时 (20)
                    鼠标键 ()
                    延时 (20)
                    鼠标移动 (取句柄2 (“DNF.exe”, “地下城与勇士”, “地下城与勇士”), 587, 363)
                    延时 (20)
                    鼠标键 ()
                    延时 (20)
                    鼠标移动 (取句柄2 (“DNF.exe”, “地下城与勇士”, “地下城与勇士”), 531, 374)
                    延时 (20)
                    鼠标键 ()
                    延时 (20)
                    鼠标移动 (取句柄2 (“DNF.exe”, “地下城与勇士”, “地下城与勇士”), 531, 374)
                    延时 (20)
                    鼠标键 ()
                    编辑框已收购记录.加入文本 (“您已秒到第” ＋ 到文本 (o) ＋ “格的物品” ＋ “ - ” ＋ “单个价格为：” ＋ 到文本 (单个价格 [o]) ＋ “ - ” ＋ “共有：” ＋ 到文本 (物品数量 [o]) ＋ “件物品总价格：” ＋ 到文本 (物品总价 [o]) ＋ #换行符)
                    跳出循环 ()
                .如果真结束

            .如果真结束

        .如果真结束
        处理事件 ()
        编辑框价格记录.加入文本 (“当前扫描” ＋ 到文本 (o) ＋ “价格：” ＋ 到文本 (单个价格 [o]) ＋ “ - ” ＋ “您的单个最高价格：” ＋ 到文本 (您的最高价格) ＋ #换行符)
    .计次循环尾 ()

    .如果 (判断当前扫描价格1 ＝ 0)
        连续赋值 (单个价格, 判断当前扫描价格第一次)
        判断当前扫描价格1 ＝ 1
    .否则
        连续赋值 (单个价格, 判断当前扫描价格第二次)
        判断当前扫描价格1 ＝ 0
        二数组去除重复数组 (判断当前扫描价格第一次, 判断当前扫描价格第二次, 扫描价格结果)
        .如果真 (取数组成员数 (扫描价格结果) ≤ 5)
            .计次循环首 (取数组成员数 (判断当前扫描价格第一次), a)
                删除成员 (判断当前扫描价格第一次, a, 取数组成员数 (判断当前扫描价格第一次))
                删除成员 (判断当前扫描价格第二次, a, 取数组成员数 (判断当前扫描价格第二次))
            .计次循环尾 ()
            鼠标移动 (取句柄2 (“DNF.exe”, “地下城与勇士”, “地下城与勇士”), 321, 262)
            延时 (20)
            鼠标键 ()
            鼠标键 (2)
        .如果真结束

    .如果结束

    .如果真 (停止搜索1 ＝ 真)
        跳出循环 ()
    .如果真结束
    处理事件 ()
.计次循环尾 ()
.如果真 (选择框1.选中 ＝ 真)
源码看看哪里错了 源码.zip (188.82 KB, 下载次数: 10)

2012-5-19 17:41 上传

点击文件名下载附件

QQ5288

tianyule 发表于 2012-5-19 17:45
键代码 ＝ 到整数 (读配置项 (取运行目录 () ＋ “\配置.ini”, “键代码”, 分割 , ))
    您的最高价格  ...

好多。。。。头都晕了。。。

灰灰君

其实吧，我觉得你把源码打包发上来多好= =

补充内容 (2013-7-23 23:10):
说错了，是模块……

Evber

好长，你是在哪卡住呢？

tianyule

我都加了啊

易千寒

在调用数组前加个命令  检测是否存在这个数组成员
如果真（取数组成员数（数组）>=需要调用的成员数）
调用

以这样的形式 就不会出错了

tianyule

键代码 ＝ 到整数 (读配置项 (取运行目录 () ＋ “\配置.ini”, “键代码”, 分割 [i], ))
    您的最高价格 ＝ 到整数 (读配置项 (取运行目录 () ＋ “\配置.ini”, “价格”, 分割 [i], ))
这里是对的，其他的地方不对。