TC官方合作论坛

标题: 【有源码】神鬼后台抓沙漠狐狗分解BB低强 [打印本页]

作者: 小丶笨笨 时间: 2011-8-21 01:52
标题: 【有源码】神鬼后台抓沙漠狐狗分解BB低强
由于神鬼传奇这个游戏TC工具目前不能直接获取游戏句丙，所以我采用大漠工会获

取句丙，然后用TC抓色器转换成十进制，由于游戏更新分解中强的BB暴率调低~所以后面的没做。脚本做的不好但是新手可以拿来参考和学习，在这要向TC12群的所有老师致谢！！本脚本采用大漠后台找图和TC一些命令，，  代码有点长，不太简便望高手指点！！！

      空间我的程序
      dm=com("dm.dmsoft")
      功能分解()
      X,Y
      循环(真)
      dm.FindPic(0,0,2000,2000,"d://011.bmp","000000",0.9,0,X,Y)
      如果(X>0)
      跳出
      否则
      继续
      如果结束
      循环结束
      辅助.等待(50)
      dm.KeyPress(9)
      辅助.等待(500)
      dm.FindPic(0,0,2000,2000,"d://014.bmp","000000",0.9,0,X,Y)
      如果(X>0)
      dm.MoveTo(X+20,Y+5)
      辅助.等待(50)
      dm.LeftClick()
      如果结束
      dm.FindPic(0,0,2000,2000,"d://014.bmp","000000",0.9,0,X,Y)
      如果(X>0)
      dm.MoveTo(X+20,Y+25)
      辅助.等待(50)
      dm.LeftClick()
      如果结束
      辅助.等待(50)
      dm.KeyPress(9)

      循环(真)
      dm.FindPic(0,0,2000,2000,"d://015.bmp","000000",0.9,0,X,Y)
      如果(X>0)
      dm.MoveTo(X+32,Y+5)
      dm.LeftClick()
      跳出
      否则
      继续
      如果结束
      循环结束

      str
      a
      a=-2
      次数
      次数1
      次数1=编辑框.获得文本("编辑框1")
      次数=次数1
      循环(真)
      a=a+1
      str=a
      如果(a==次数)
      跳出
      如果结束

      dm.FindPic(0,0,2000,2000,"d://016.bmp","000000",0.9,0,X,Y)
      如果(X>0)
      dm.MoveTo(X+40,Y+5)
      dm.LeftClick()
      如果结束
      辅助.等待(200)
      dm.FindPic(0,0,2000,2000,"d://017.bmp","000000",0.9,0,X,Y)
      如果(X>0)
      dm.MoveTo(X+50,Y+7)
      dm.LeftClick()
      如果结束
      辅助.等待(300)
      dm.FindPic(0,0,2000,2000,"d://018.bmp","000000",0.9,0,X,Y)
      如果(X>0)
      dm.MoveTo(X+35,Y+5)
      dm.LeftClick()
      辅助.等待(500)
      如果结束

      循环结束
      dm.DownCpu(50)

      辅助.等待(200)

      返回 0

      功能结束

      功能抓宝宝()
      X
      Y
      循环(真)
      dm.FindPic(0,0,2000,2000,"d://003.bmp","000000",0.9,0,X,Y)
      如果(X>0)
      跳出
      否则
      继续
      如果结束
      循环结束

      循环(真)
      dm.FindPic(0,0,2000,2000,"d://55.bmp","000000",0.9,0,X,Y)
      如果(X>0)
      跳出
      否则
      dm.KeyPress(9)
      辅助.等待(200)
      跳出
      如果结束
      循环结束

      循环(真)
      dm.FindPic(0,0,2000,2000,"d://004.bmp","000000",0.9,0,X,Y)
      如果(X>0)
      dm.MoveTo(X+45,Y+5)
      辅助.等待(50)
      dm.LeftClick()
      跳出
      如果结束
      dm.FindPic(0,0,2000,2000,"d://66.bmp","000000",0.9,0,X,Y)
      如果(X>0)
      辅助.等待(50)
      跳出
      否则
      继续
      如果结束
      循环结束

      循环(真)
      dm.FindPic(0,0,2000,2000,"d://005.bmp","000000",0.9,0,X,Y)
      如果(X>0)
      dm.MoveTo(X+35,Y+5)
      dm.LeftClick()
      跳出
      否则
      继续
      如果结束
      循环结束

      辅助.等待(100)
      dm.KeyPress(9)

      循环(真)
      dm.FindPic(0,0,2000,2000,"d://006.bmp","000000",0.9,0,X,Y)
      如果(X>0)
      跳出
      否则
      继续
      如果结束
      循环结束

      循环(真)
      循环(真)
      dm.FindPic(0,0,2000,2000,"d://006.bmp","000000",0.9,0,X,Y)
      如果(X>0)
      跳出
      否则
      dm.KeyPress(9)
      辅助.等待(1000)
      dm.FindPic(0,0,2000,2000,"d://022.bmp","000000",0.9,0,X,Y)
      如果(X>0)
      dm.MoveTo(X+30,Y+5)
      辅助.等待(200)
      dm.LeftClick()
      辅助.等待(100)
      dm.KeyPress(9)
      辅助.等待(000)
      跳出
      如果结束
      如果结束
      循环结束

      循环(真)
      dm.FindPic(0,0,2000,2000,"d://006.bmp","000000",0.9,0,X,Y)
      如果(X>0)
      跳出
      否则
      dm.KeyPress(9)
      辅助.等待(1000)
      dm.FindPic(0,0,2000,2000,"d://022.bmp","000000",0.9,0,X,Y)
      如果(X>0)
      dm.MoveTo(X+30,Y+5)
      辅助.等待(200)
      dm.LeftClick()
      辅助.等待(100)
      dm.KeyPress(9)
      辅助.等待(1000)
      跳出
      如果结束
      如果结束
      循环结束

      循环(真)
      dm.FindPic(0,0,2000,2000,"d://006.bmp","000000",0.9,0,X,Y)
      如果(X>0)
      跳出
      否则
      dm.KeyPress(9)
      辅助.等待(1000)
      dm.FindPic(0,0,2000,2000,"d://022.bmp","000000",0.9,0,X,Y)
      如果(X>0)
      dm.MoveTo(X+30,Y+5)
      辅助.等待(200)
      dm.LeftClick()
      辅助.等待(100)
      dm.KeyPress(9)
      辅助.等待(1000)
      跳出
      如果结束
      如果结束
      循环结束

      循环(真)
      dm.FindPic(0,0,2000,2000,"d://006.bmp","000000",0.9,0,X,Y)
      如果(X>0)
      跳出
      否则
      继续
      如果结束
      循环结束
      辅助.等待(500)
      dm.FindPic(0,0,2000,2000,"d://007.bmp","000000",0.8,0,X,Y)
      如果(X>0)
      dm.MoveTo(X+31,Y+35)
      辅助.等待(100)
      dm.LeftClick()
      辅助.等待(1500)
      dm.FindPic(0,0,2000,2000,"d://008.bmp","000000",0.9,0,X,Y)
      如果(X>0)
      跳出
      否则
      继续
      如果结束
      如果结束
      循环结束

      辅助.等待(50)
      dm.KeyPress(9)
      辅助.等待(200)
      dm.FindPic(0,0,2000,2000,"d://013.bmp","000000",0.9,0,X,Y)
      如果(X>0)
      dm.MoveTo(X+20,Y+5)
      辅助.等待(50)
      dm.LeftClick()
      如果结束
      辅助.等待(200)
      dm.FindPic(0,0,2000,2000,"d://44.bmp","000000",0.9,0,X,Y)
      如果(X>0)
      dm.MoveTo(X+31,Y+25)
      辅助.等待(50)
      dm.LeftClick()
      如果结束
      辅助.等待(50)
      dm.KeyPress(9)

      循环(真)
      dm.FindPic(0,0,2000,2000,"d://001.bmp","000000",0.9,0,X,Y)
      如果(X>0)
      dm.MoveTo(X+10,Y+5)
      dm.LeftClick()
      跳出
      否则
      继续
      如果结束
      循环结束

      循环(真)
      dm.FindPic(0,0,2000,2000,"d://010.bmp","000000",0.9,0,X,Y)
      如果(X>0)
      dm.MoveTo(X+40,Y+5)
      dm.LeftDoubleClick()
      跳出
      否则
      继续
      如果结束
      循环结束
      辅助.等待(300)
      返回 0
      功能结束

      功能广场()
      X
      Y
      辅助.等待(500)
      循环(真)
      dm.FindPic(0,0,2000,2000,"d://55.bmp","000000",0.9,0,X,Y)
      如果(X>0)
      跳出
      否则
      辅助.等待(100)
      dm.KeyPress(9)
      辅助.等待(100)
      跳出
      如果结束
      循环结束
      循环(真)
      dm.FindPic(0,0,2000,2000,"d://013.bmp","000000",0.9,0,X,Y)
      如果(X>0)
      dm.MoveTo(X+20,Y+5)
      辅助.等待(50)
      dm.LeftClick()
      跳出
      如果结束
      dm.FindPic(0,0,2000,2000,"d://44.bmp","000000",0.9,0,X,Y)
      如果(X>0)
      辅助.等待(50)
      跳出
      否则
      继续
      如果结束
      循环结束

      辅助.等待(500)
      dm.FindPic(0,0,2000,2000,"d://44.bmp","000000",0.9,0,X,Y)
      如果(X>0)
      dm.MoveTo(X+31,Y+25)
      辅助.等待(50)
      dm.LeftClick()
      如果结束

      dm.KeyPress(9)
      辅助.等待(100)
      循环(真)
      dm.FindPic(0,0,2000,2000,"d://001.bmp","000000",0.9,0,X,Y)
      如果(X>0)
      dm.MoveTo(X+10,Y+5)
      dm.LeftClick()
      跳出
      否则
      继续
      如果结束
      循环结束

      循环(真)
      dm.FindPic(0,0,2000,2000,"d://002.bmp","000000",0.9,0,X,Y)
      如果(X>0)
      dm.MoveTo(X+40,Y+5)
      dm.LeftDoubleClick()
      跳出
      否则
      继续
      如果结束
      循环结束
      辅助.等待(300)
      返回 0
      功能结束

      功能抓狗()
         X,Y
      循环(真)
      循环(真)
      dm.FindPic(0,0,2000,2000,"d://011.bmp","000000",0.9,0,X,Y)
      如果(X>0)
      辅助.等待(1000)
      我的程序.广场()
      辅助.等待(2000)
      我的程序.抓宝宝()
      辅助.等待(2000)
      我的程序.分解()
      辅助.等待(300)
      否则
      跳出
      如果结束
      循环结束
      循环(真)
      dm.FindPic(0,0,2000,2000,"d://003.bmp","000000",0.9,0,X,Y)
      如果(X>0)
      辅助.等待(1000)
      我的程序.抓宝宝()
      辅助.等待(2000)
      我的程序.分解()
      辅助.等待(2000)
      我的程序.广场()
      辅助.等待(300)
      否则
      跳出
      如果结束
      循环结束

      循环结束

      返回 0
      功能结束

      功能抓咕噜()
      辅助.消息框("抓咕噜")
      返回 0
      功能结束

      线程编号
      功能后台脚本()
      窗口句柄,是否成功
      窗口名称
      字符值

      dm.SetPath("d:\\")
      连接后字符串
      窗口名称=编辑框.获得文本("编辑框0")
      窗口句柄=窗口名称
      窗口.设置位置(窗口句柄,-10,0)
      是否成功=dm.BindWindow(窗口句柄,"dx2","windows","windows",0)
      如果(是否成功==0)
      辅助.消息框("失败")
      返回假
      如果结束
      X
      Y
      循环(真)
      dm.FindPic(0,0,2000,2000,"d://020.bmp","000000",0.9,0,X,Y)
      如果(X<0)
      跳出
      否则
      dm.FindPic(0,0,2000,2000,"d://019.bmp","000000",0.9,0,X,Y)
      如果(X>0)
      dm.MoveTo(X+4,Y+10)
      辅助.等待(100)
      dm.LeftClick()
      跳出
      如果结束
      如果结束
      循环结束

      辅助.等待(100)
      循环(真)
      dm.FindPic(0,0,2000,2000,"d://000.bmp","000000",0.9,0,X,Y)
      如果(X<0)
      跳出
      否则
      dm.FindPic(0,0,2000,2000,"d://000.bmp","000000",0.9,0,X,Y)
      如果(X>0)
      dm.MoveTo(X+8,Y+8)
      辅助.等待(100)
      dm.LeftClick()
      辅助.等待(100)
      如果结束
      如果结束
      循环结束
      辅助.等待(100)
      如果(单选框.获得状态("单选框0") )
      我的程序.抓狗()
      如果结束
      如果(单选框.获得状态("单选框1") )
      我的程序.抓咕噜()
      如果结束
      dm.UnBindWindow()
      返回真
      功能结束

      功能开始_点击()
      线程编号=线程.开启("我的程序.后台脚本","")
      返回真
      功能结束
      //功能使用完成后需要结束功能
      功能退出_点击()
      线程.关闭(线程编号)
      辅助.退出()
      //退出应用程序
      返回真
      功能结束
      空间结束

作者: 522188865 时间: 2011-8-21 03:57
要頂,代碼確實長

作者: TC管理员 时间: 2011-8-21 09:38
:D，不错。支持原创,支持分享...

作者: snajian 时间: 2011-8-21 11:20
:) 顶···

作者: tcwxd 时间: 2011-8-21 13:00
支持原创顶跟帖

作者: 小丶笨笨 时间: 2011-8-21 13:47
回复 1楼ws348500321的帖子

才写一半。。没办法新手还不知道该简写的时候简写

作者: 小丶笨笨 时间: 2011-8-21 13:48
回复 2楼522188865的帖子

东哥。。。我老底子都抽出来了~~有啥奖励啊 :D

作者: 小丶笨笨 时间: 2011-8-21 13:48
回复 4楼snajian的帖子

呵呵 :cup

作者: 小丶笨笨 时间: 2011-8-21 13:50
晕了~~没看回复错了

作者: 小丶笨笨 时间: 2011-8-21 13:51
回复 3楼小东的帖子

东哥。。。我老底子都抽出来了~~有啥奖励啊

作者: 全世界失眠 时间: 2011-8-21 15:30
不错啊，都能自动刷BB了

作者: 小丶笨笨 时间: 2011-8-21 15:57
回复 11楼全世界失眠的帖子

呵呵这个是自动抓BB然后分解 BB低强

作者: TC管理员 时间: 2011-8-21 17:17

回复 3楼小东的帖子

东哥。。。我老底子都抽出来了~~有啥奖励啊
ws348500321 发表于 2011-8-21 13:51:34

:D .. 给你加分了

作者: 小丶笨笨 时间: 2011-8-21 19:02
回复 13楼小东的帖子

我要你那些徽章 :o

作者: 章昊 时间: 2011-8-24 13:57
给力，不错，值得拥有

作者: 小丶笨笨 时间: 2011-8-24 14:26
回复 15楼章昊的帖子

:| 谢谢

作者: xieping 时间: 2011-8-25 11:55
支撑

作者: lilo 时间: 2011-8-26 16:04
支持!
楼主真好,希望以后继续分享~

作者: 326032275 时间: 2011-10-4 19:20
好东西啊。。谢谢

作者: cab2622833 时间: 2011-10-24 17:12
支持一下

作者: 小丶笨笨 时间: 2011-10-24 17:32
回复 20楼cab2622833的帖子

都沉下水了今天你给发觉了

作者: niaofei007 时间: 2011-11-24 23:07
这个必须有，必须顶asd

作者: 来迟的书信 时间: 2011-11-28 22:18
顶下！

作者: v11ks 时间: 2011-12-11 13:29
有些地反复貌似比较适合用定时器

作者: 859518595 时间: 2013-1-29 01:18
大于0小于0是什么意思？谢谢

作者: 厚积薄发 时间: 2013-8-16 18:15
看看学习

作者: yangfusheng 时间: 2013-11-23 22:01
有贴必回，最喜欢楼主这样的有为青年了~

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