【有源码】神鬼后台抓沙漠狐狗分解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

要頂,代碼確實長

TC管理员

:D，不错。 支持原创,支持分享...

snajian

:)   顶···

tcwxd

支持原创  顶    跟帖

小丶笨笨

回复 1楼ws348500321的帖子

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

小丶笨笨

回复 2楼522188865的帖子

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

小丶笨笨

回复 4楼snajian的帖子

呵呵  :cup

小丶笨笨

晕了~~没看回复错了

小丶笨笨

回复 3楼小东的帖子

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