TC官方合作论坛

标题: 求大神帮忙看看这个后台多开什么问题 [打印本页]

作者: tao201309 时间: 2015-1-15 19:17
标题: 求大神帮忙看看这个后台多开什么问题

求大神帮忙看看这个后台多开问什么只运行一次就不运行了    能帮忙修改了发给我吗？谢谢

空间多开实验
变量多线程句柄=数组[10],参数组合=数组[1],窗口句柄数组=数组[]//
dm=com("dm.dmsoft")
//开始按钮_点击操作
功能开始_点击()
dm.EnableRealKeypad(1)
系统.设置路径("rc:")
dm.SetDict(0,"太极.txt")
线程句柄=线程.开启("多开实验.读取","")
功能结束
功能读取()

次数=列表框.得到个数("列表框0")
遍历(初始值=0;初始值<次数;初始值++)
      句柄=列表框.获得文本("列表框0",初始值)
      是否成功=dm.BindWindow(句柄,"dx","windows","windows",0)
      辅助.等待(2500)
      如果(是否成功==1)
         系统.设置路径("rc:")
         dm.SetDict(0,"太极.txt")
         线程句柄=线程.开启("多开实验.完成任务","")
         辅助.等待(800)
         线程句柄=线程.开启("多开实验.接受任务","")
         辅助.等待(600)//延时等待50毫秒
      否则
         辅助.消息框("绑定失败")
      如果结束
遍历结束
功能结束
功能完成任务()
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()

      否则
      如果结束
      辅助.等待(1000)
循环结束
功能结束
功能接受任务()
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()
      否则
      如果结束
      辅助.等待(9000)
循环结束
功能结束
功能是否有重复句柄(句柄)
遍历(i=0;i<列表框.得到个数("列表框0");i++)
      如果(列表框.获得文本("列表框0",i)==句柄)
         返回 (真)
      如果结束
遍历结束
返回 (假)
功能结束
功能热键3_热键()
窗口句柄
窗口句柄=参数组合[0]
句柄=窗口.鼠标所在窗口句柄()
如果(!多开实验.是否有重复句柄(句柄))
      数组空间.增加(窗口句柄数组,句柄,1)
      列表框.增加文本("列表框0",句柄)
否则
      辅助.消息框("抱歉，这个窗口已经加入了。")
如果结束
功能结束
功能退出_点击()

辅助.退出()
功能结束
功能初始化()
是否成功=辅助.注册插件("rc:dm.dll",真)
如果(是否成功)
      调试输出("插件注册成功")
如果结束
功能结束

空间结束

作者: q273814 时间: 2015-1-16 08:37
次奥代码这么长看着烦

作者: q273814 时间: 2015-1-16 08:37
封装一下啊

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