那个少复制了 全部代码是这样我的 我想实现后台多开打怪。。但是现在前台都不动 麻烦你看看 那里错误了。。
空间 我的大漠多开
变量 dm=数组[10]
变量 多线程句柄=数组[10],参数组合=数组[1],窗口句柄数组=数组[]//定义数组
功能 开始_点击()
我的大漠多开.开启线程()
功能结束
功能 开启线程()
遍历(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","dx","dx",0)
//如果(是否成功==1)
//标签.设置文本("标签2","绑定成功,继续运行")
线程.开启("我的大漠多开.自动打怪",j)
//否则
//标签.设置文本("标签2","绑定失败,请重新启动脚本")
//如果结束
功能结束
功能 自动打怪()
变量 x,y
循环(真)
dm.FindPic(451,557,551,630,"没鱼饵.bmp","000000",0.9,0,x,y)
如果(x>0)
dm.MoveTo(955,83)
//鼠标.移动(955,83)
dm.RightClick()
//鼠标.右键双击(1)
辅助.等待(1000)
dm.MoveTo(496,516)
//鼠标.移动(496,516)
dm.LeftDoubleClick()
//鼠标.左键双击(1)
辅助.等待(1000)
否则
辅助.等待(1000)
如果结束
//dm.MoveTo(x,y) //鼠标移动
//dm.LeftClick() //按鼠标左键
循环结束
//循环结束
功能结束
功能 解绑(a)
dm[a].UnBindWindow()
功能结束
功能 退出_点击()
遍历(i=0;i<列表框.得到个数("列表框0");i++)
线程.关闭(多线程句柄)
我的大漠多开.解绑(i)
辅助.等待(100)
遍历结束
辅助.退出()
功能结束
功能 是否有重复句柄(句柄)
遍历(i=0;i<列表框.得到个数("列表框0");i++)
如果(列表框.获得文本("列表框0",i)==句柄)
返回 (真)
如果结束
遍历结束
返回 (假)
功能结束
功能 热键0_热键()
句柄=窗口.鼠标所在窗口句柄()
如果(字符串.查找字符串(窗口.类名(句柄),"Fantasy Frontier Online")!=-1)
如果(!我的大漠多开.是否有重复句柄(句柄))
数组空间.增加(窗口句柄数组,句柄,1)
列表框.增加文本("列表框0",句柄)
否则
辅助.消息框("抱歉，这个窗口已经加入了。")
如果结束
否则
辅助.消息框("抱歉，您好像搞错窗口了。")
如果结束
功能结束
功能 初始化()
辅助.注册插件("rc:dm.dll",真)
功能结束
空间结束
|
/2 
发表于 2014-10-5 14:19:10
收藏
支持
反对
楼主
