TC官方合作论坛

 找回密码
 立即注册
查看: 680|回复: 4
打印 上一主题 下一主题

[已解决] 请帮忙看下以下代码错误的原因?

[复制链接]
跳转到指定楼层
楼主
发表于 2014-9-11 23:46:39 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上加入TC

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
空间 演示
变量 线程=数组[],ts=数组[],窗口数组=数组[]

功能 初始化()
    help.sleep(300)
    是否成功=辅助.注册插件("rc:TSPlug.dll",真)
    如果(是否成功)
        编辑框.设置文本("调试用","插件注册成功\r\n"&编辑框.获得文本("调试用"))   
    否则
        辅助.消息框("插件注册失败")
    如果结束
功能结束

功能 热键0_热键()//绑定一个窗口
    句柄=窗口.鼠标所在窗口句柄()
    如果(句柄!=0)
        数组空间.增加(窗口数组,句柄,1)
        下标=数组空间.查找(窗口数组,句柄)
        ts=数组空间.重定义(ts,真,下标+1)
        线程=数组空间.重定义(线程,真,下标+1)
        ts[下标]=com("ts.tssoft")
        ts[下标].SetPath(辅助.获取资源路径("rc:"))
        ts[下标].SetDict(0,"sos.txt")  
        ts[下标].SetWindowState(句柄,12)//恢复激活窗口
        help.sleep(500)
        ts[下标].MoveWindow(句柄,-10,-10)
        线程[下标]=线程.扩展开启("演示.开始工作",下标,"演示.天使解绑",下标)
        编辑框.设置文本("调试用","开启窗口句柄为:"&下标&"的线程,句柄为:"&线程[下标]&"\r\n"&编辑框.获得文本("调试用"))  
    如果结束
功能结束

功能 开始工作(下标)
    演示.天使绑定(下标)
    演示.做试炼()
功能结束

功能 天使绑定(下标)
    help.sleep(2500)
    如果(ts[下标].BindWindow(窗口数组[下标],"dx","dx","dx",1)==1)
        ts[下标].DownCpu(50)
        ts[下标].LockInput(0)//解除鼠标键盘绑定试试
        编辑框.设置文本("调试用",线程[下标]&"的窗口绑定成功\r\n"&编辑框.获得文本("调试用"))  
    否则
        help.messagebox("窗口绑定失败,错误码:"&ts[下标].GetLastError())
        help.exit()
    如果结束
    辅助.等待(1000)
功能结束

功能 天使解绑(下标)
    ts[下标].UnBindWindow()
功能结束

功能 做试炼()//通过
    编辑框.设置文本("调试用","开始试炼任务\r\n"&编辑框.获得文本("调试用"))   
    变量 挑战X,挑战Y
    循环(真)
        help.sleep(1000)
        dt_ret = ts[下标].FindPic(741,152,837,623,"挑战.bmp","000000",0.9,1,挑战X,挑战Y)//左侧找问道之路
        if(挑战X >= 0)
            help.sleep(1000)
            dx_ret = ts[下标].FindStrFast(669,550,777,623,"元宝","ffff00-000000",1.0,intX,intY)
            if(intX >= 0)
                ts[下标].MoveTo(intX+67,intY-54)//点击奖励
                help.sleep(50)
                ts[下标].LeftClick()
                演示.开关试炼面板()
                编辑框.设置文本("调试用","挑战完成领取奖励\r\n"&编辑框.获得文本("调试用"))   
                跳出
            else
                ts[下标].MoveTo(挑战X,挑战Y)
                help.sleep(50)
                ts[下标].LeftClick()
                编辑框.设置文本("调试用","挑战一次\r\n"&编辑框.获得文本("调试用"))   
                help.sleep(2500)
                dt_ret = ts[下标].FindPic(494,369,587,586,"我要变强.bmp","000000",0.9,0,intX,intY)//左侧找问道之路
                if(intX >= 0)
                    ts[下标].MoveTo(intX+242,intY-147)
                    help.sleep(50)
                    ts[下标].LeftClick()
                    编辑框.设置文本("调试用","挑战失败\r\n"&编辑框.获得文本("调试用"))   
                endif
            endif
        else
            编辑框.设置文本("调试用","打开试炼面板\r\n"&编辑框.获得文本("调试用"))   
            演示.开关试炼面板()
        endif
    循环结束
功能结束

功能 热键1_热键()//单停一个窗口
    句柄=窗口.鼠标所在窗口句柄()
    如果(句柄!=0)
        线程.关闭(线程[数组空间.查找(窗口数组,句柄)])
    如果结束
功能结束

功能 退出_点击()
    长度
    数组空间.大小(窗口数组,长度)
    调试输出("长度"&长度)
    遍历(i=0;i<长度;i++)
        线程.关闭(线程[i])
        辅助.等待(500)
    遍历结束
    辅助.退出()
功能结束
空间结束
//空间结束语句


>错误:D:\演示\演示\演示.t 行号:59 错误信息:'下标'是不合法的变量名或者是没定义的变量名
  59      dt_ret = ts[下标].FindPic(741,152,837,623,"挑战.bmp","000000",0.9,1,挑战X,挑战Y)//左侧路

请问怎么解决?我目前小白一个,向达人们求教了。



回复

使用道具 举报

板凳
发表于 2014-9-12 07:12:44 | 只看该作者
你那个 做试练功能 没有传下标进去啊.线程你都传了
回复 支持 反对

使用道具 举报

沙发
 楼主| 发表于 2014-9-12 06:51:40 | 只看该作者
自己顶下,请帮帮忙。
回复 支持 反对

使用道具 举报

地板
 楼主| 发表于 2014-9-12 08:23:24 来自手机 | 只看该作者
csbadmin 发表于 2014-9-12 07:12
你那个 做试练功能 没有传下标进去啊.线程你都传了

非常感谢你的帮助,有的时候就是需要你们高手的一个指点,问题才能迎刃而解,谢谢了,好人呐!
回复 支持 反对

使用道具 举报

5#
发表于 2014-9-12 12:47:44 | 只看该作者
ekeen 发表于 2014-9-12 08:23
非常感谢你的帮助,有的时候就是需要你们高手的一个指点,问题才能迎刃而解,谢谢了,好人呐! ...

过奖过奖
回复 支持 反对

使用道具 举报

*滑动验证:
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

站长推荐上一条 /2 下一条

关闭

小黑屋|TC官方合作论坛 (苏ICP备18043773号

GMT+8, 2025-9-25 07:35 , Processed in 0.167217 second(s), 25 queries .

Powered by 海安天坑软件科技有限公司

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表