发个天龙八部的报废品，用的上的自己改改，区域找色失败。没辙了。

Rae · 发表于 2012-2-26 22:20:17

马上加入TC

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

x

想写个简简单单的后台小脚本，可以选择用不用技能，可以选择吃不吃药，不抢怪，能验证提示，
捣鼓了2天，改了N次，本以为能收工挂机了，哎，这又出毛病了，没心情完善了。
大漠找色，它连找都不找就给你下个找到了的定义，
TC后台找色吧，单个去测试都没问题，加到本里就 “获取BK位图数据失败”
坛子里发个贴求助吧，没人搭理，郁闷了。
作为小白，亚历山大啊。
代码超明了，不用注释一眼都能看懂，

#import "dm.dmsoft" dm
空间测试
整型线程句柄
功能逻辑型判断人物Hp() //血量70%
整型 x,y,是否找到,句柄
逻辑型找到
后台.区域找色(句柄,148,23,173,48,#0009EA,0,x,y)
//是否找到=dm.FindColor(148,23,173,48,"d90a00-000000",0.8,0,x,y)
返回真
功能结束
功能逻辑型判断人物Mp() //蓝40%
整型 x,y,是否找到,句柄
逻辑型找到
后台.区域找色(句柄,92,30,117,55,#EA3537,0,x,y)
//是否找到=dm.FindColor(92,30,117,55,"0355dc-000000",0.8,0,x,y)
返回真
功能结束
功能逻辑型判断宠物Hp() //宝宝60%
整型 x,y,是否找到,句柄
逻辑型找到
后台.区域找色(句柄,164,76,172,91,#0009EA,0,x,y)
//是否找到=dm.FindColor(164,76,172,91,"d90a00-000000",0.8,0,x,y)
返回真
功能结束
功能逻辑型判断白怪物() //别人的怪物
整型 x,y,是否找到,句柄
逻辑型找到
后台.区域找色(句柄,274,12,290,41,#7D8384,0,x,y)
//是否找到=dm.FindColor(274,12,290,41,"999999-000000",0.8,0,x,y)
返回真
功能结束
功能逻辑型判断红怪物() //没开苞的怪物，正在打的怪物
整型 x,y,是否找到,句柄
逻辑型找到
后台.区域找色(句柄,274,12,290,41,#05710D,0,x,y)
后台.区域找色(句柄,274,12,290,41,#050C74,0,x,y)
//是否找到=dm.FindColor(274,12,290,41,"019400-155c08",0.8,0,x,y)
//是否找到=dm.FindColor(274,12,290,41,"730d06-910403",0.8,0,x,y)
返回真
功能结束
功能逻辑型判断防挂机() //狗日的验证
整型是否成功,x,y
是否成功=dm.FindStr(0,0,800,600,"防挂机检测","ffe700-49370f",0.8,x,y)
返回真
功能结束
功能整型开始打怪()
整型句柄,是否成功
辅助.注册插件("rc:\\dm.dll",真)
句柄=dm.GetMousePointWindow()
是否成功=dm.BindWindow(句柄,"dx","dx2","dx",0)
逻辑型是否回血,是否回蓝,是否喂养,是否技能1,是否技能2,是否技能3,是否防挂机
是否回血=复选框.获得状态("复选框3")
是否回蓝=复选框.获得状态("复选框4")
是否喂养=复选框.获得状态("复选框5")
是否技能1=复选框.获得状态("复选框0")
是否技能2=复选框.获得状态("复选框1")
是否技能3=复选框.获得状态("复选框2")
是否防挂机=复选框.获得状态("复选框6")
循环(真)
如果(是否回血)
如果(测试.判断人物Hp())
辅助.等待(200)
否则
dm.KeyPress(121)
如果结束
如果结束
如果(是否回蓝)
如果(测试.判断人物Mp())
辅助.等待(200)
否则
dm.KeyPress(120)
如果结束
如果结束
如果(是否喂养)
如果(测试.判断宠物Hp())
辅助.等待(200)
否则
dm.KeyPress(119)
如果结束
如果结束
如果(测试.判断白怪物())
dm.KeyPress(122)
如果结束
如果(测试.判断红怪物())
dm.KeyPress(112)
辅助.等待(200)
否则
dm.KeyPress(122)
如果结束
如果(是否技能1)
dm.KeyPress(113)
辅助.等待(25000)
如果结束
如果(是否技能2)
dm.KeyPress(114)
辅助.等待(25000)
如果结束
如果(是否技能3)
dm.KeyPress(115)
辅助.等待(25000)
如果结束
如果(是否防挂机)
如果(测试.判断防挂机())
辅助.播放("E:\\Documents\\梦之岛.mp3")
辅助.等待(15000)
辅助.停止播放(辅助.播放("E:\\Documents\\梦之岛.mp3"))
如果结束
如果结束
循环结束
dm.ForceUnBindWindow(0)
返回 0
功能结束
功能逻辑型热键0_热键()
线程句柄=线程.开启("测试.开始打怪")
返回真
功能结束
功能逻辑型热键1_热键()
dm.ForceUnBindWindow(0)
线程.关闭(线程句柄)
返回真
功能结束
空间结束

wfdwsy · 发表于 2012-8-26 08:26:42

云里雾里看不懂

47584629 · 发表于 2012-8-18 15:45:49

多多分享

qixingzhaoxun · 发表于 2012-7-7 15:21:52

支持一下谢谢了

anjelxia · 发表于 2012-5-27 17:53:54

谢谢楼主分享打多少爱迪生啊

4661654 · 发表于 2012-3-10 15:15:59

:-| 看的头晕，好好学习下

jkjksxl · 发表于 2012-2-28 00:08:49

:-D支持

cylhb · 发表于 2012-2-27 18:28:35

呵呵，其实我接触这个也不到1星期。。
多线程也是刚开始弄。只懂点皮毛。。

Rae · 发表于 2012-2-27 17:57:13

回复 9楼cylhb的帖子

API看的云里雾里的，一点头绪都没，
慢慢琢磨吧，
顺便问下，好学么？

cylhb · 发表于 2012-2-27 17:28:41

多线程呗。。。
把不同功能都做不同子线程，这样就能及时更好的判断，。

帐号		自动登录	找回密码
密码			立即注册

[源码分享] 发个天龙八部的报废品，用的上的自己改改，区域找色失败。没辙了。

马上加入TC

站长推荐 /2