马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
由于神鬼传奇这个游戏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()
返回 真
功能结束
功能 开始_点击()
线程编号=线程.开启("我的程序.后台脚本","")
返回 真
功能结束
//功能使用完成后需要结束功能
功能 退出_点击()
线程.关闭(线程编号)
辅助.退出()
//退出应用程序
返回 真
功能结束
空间结束
|