|
楼主 |
发表于 2011-12-16 11:14:47
|
显示全部楼层
也发下 代码 帮忙看看吧
空间 大漠测试
整型 线程句柄
功能 逻辑型 大漠()
整型 窗口句柄
逻辑型 是否成功
是否成功=大漠.注册("rc:dm.dll")
如果(!是否成功)
辅助.消息框("大漠注册失败")
如果结束
是否成功=大漠.创建()
如果(!是否成功)
辅助.消息框("大漠创建失败")
如果结束
是否成功 = 大漠.设置路径("rc:")
如果(!是否成功)
辅助.消息框("大漠设置路径失败")
如果结束
// 是否成功=大漠.设置字库(0,"DM_ceshi.txt")
//如果(!是否成功)
//辅助.消息框("大漠添加字库失败")
//如果结束
窗口句柄=大漠.鼠标所在窗口句柄()
是否成功 = 大漠.绑定窗口(窗口句柄,"dx","dx","dx",0)
如果(!是否成功)
辅助.消息框("大漠绑定失败")
如果结束
整型 是否成功1
整型 intx
整型 inty
是否成功1=大漠.找图(0,0,2000,2000,"等级2.bmp","000000",0.5,0,intx,inty)
如果(是否成功1>=0)
// 辅助.消息框("找到")
////大漠.移动(intx,inty)
////辅助.等待(500)
////大漠.左键单击()
否则
辅助.消息框("没有找到")
如果结束
整型 是否成功2
整型 intx2
整型 inty2
是否成功2=大漠.找图(0,0,2000,2000,"脚.bmp","000000",0.5,0,intx2,inty2)
如果(是否成功2>=0)
// 辅助.消息框("找到脚")
////大漠.移动(intx,inty)
////辅助.等待(500)
////大漠.左键单击()
否则
辅助.消息框("没有找到")
如果结束
循环(真)
如果(inty>inty2)
// 如果(inty<inty2+30)
// 大漠.按下(40)
辅助.等待(3000)
// 大漠.弹起(40)
// 辅助.等待(50)
辅助.消息框("inty>inty2")
否则
// 大漠.按下(38)
辅助.等待(3000)
// 大漠.弹起(40)
// 辅助.等待(50)
辅助.消息框("inty<inty2")
如果结束
是否成功1=大漠.找图(0,0,2000,2000,"等级2.bmp","000000",0.5,0,intx,inty)
是否成功2=大漠.找图(0,0,2000,2000,"脚.bmp","000000",0.5,0,intx2,inty2)
返回 真
循环结束
//辅助.消息框("结束")
大漠.解绑窗口(0)
大漠.释放(0)
返回 真
功能结束
功能 逻辑型 开始_点击()
线程句柄=线程.开启("大漠测试.大漠")
返回 真
功能结束
功能 逻辑型 退出_点击()
大漠.解绑窗口(线程句柄)
大漠.释放(线程句柄)
线程.关闭(线程句柄)
辅助.退出()
返回 真
功能结束
功能 逻辑型 热键0_热键()
线程句柄=线程.开启("大漠测试.大漠")
返回 真
功能结束
功能 逻辑型 热键1_热键()
线程.关闭(线程句柄)
返回 真
功能结束
空间结束 |
|