TC官方合作论坛

标题: 求大神帮忙修改后台多开错误 [打印本页]

作者: tao201309 时间: 2015-1-15 13:49
标题: 求大神帮忙修改后台多开错误

打开提示 var 参数=窗口句柄数组&","&i 错误：类型不匹配

空间多开实验
//默认空间
变量多线程句柄=数组[10],参数组合=数组[1],窗口句柄数组=数组[],
变量 dm=数组[10]
//开始按钮_点击操作
功能开始_点击()
多开实验.开启线程()
功能结束
功能开启线程()
遍历(i=0;i<列表框.得到个数("列表框0");i++)
      var 参数=窗口句柄数组&","&i  //合并参数窗口句柄和i的值,i的值是为了传递给DM 这个对象,每开启一次i+1
      多线程句柄=线程.开启("多开实验.绑定窗口",参数)
      辅助.等待(1500)
遍历结束
功能结束
功能绑定窗口(传入参数)
字符串.分割(传入参数,",",参数组合)
窗口句柄=参数组合[0]
j=参数组合[1]
dm[j]=com("dm.dmsoft")
dm[j].SetPath(辅助.获取资源路径("rc:"))
是否成功=dm[j].BindWindow(窗口句柄,"dx","windows","windows",0)
如果(是否成功==1)
      标签.设置文本("标签2","绑定成功,继续运行")
      线程.开启("多开实验.完成任务",j)
否则
      标签.设置文本("标签2","绑定失败,请重新启动脚本")
如果结束

功能结束
功能完成任务()
intX,intY
循环(真)
      dm.FindStr(0,0,2000,2000,"完成任务","f5d8be-303030|eac395-303030|9f754d-303030",1.0,intX,intY)
      辅助.等待(500)
      如果(intX>0)
         dm.MoveTo(intX,intY)
         辅助.等待(500)
         dm.LeftClick()
      否则
      如果结束
      辅助.等待(500)
循环结束
功能结束
功能是否有重复句柄(句柄)
遍历(i=0;i<列表框.得到个数("列表框0");i++)
      如果(列表框.获得文本("列表框0",i)==句柄)
         返回 (真)
      如果结束
遍历结束
返回 (假)
功能结束
功能热键3_热键()
窗口句柄=参数组合[0]
句柄=窗口.鼠标所在窗口句柄()
如果(!多开实验.是否有重复句柄(句柄))
   数组空间.增加(窗口句柄数组,句柄,1)
      列表框.增加文本("列表框0",句柄)
否则
   辅助.消息框("抱歉，这个窗口已经加入了。")
如果结束
功能结束
//退出按钮_点击操作
功能退出_点击()

辅助.退出()
功能结束

空间结束

作者: 2645572175 时间: 2015-6-24 16:42

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)