|
|
马上加入TC
您需要 登录 才可以下载或查看，没有帐号？立即注册
x
#import "dm.dmsoft" dm
空间 TL辅助
整型 a,b,c,d,e,f,g,h,i,j,k,l,m,n,窗口句柄,线程1,信号1,线程2,信号2,线程3,信号3,线程4,信号4,X,Y
功能 整型 打怪()
窗口句柄=窗口.类名返回窗口("TianLongBaBu WndClass")
如果(窗口句柄==0)
辅助.消息框("没有找到游戏窗口")
辅助.退出()
否则
窗口.激活(窗口句柄)
辅助.等待(10)
dm.BindWindow(窗口句柄,"dx","dx","dx",0)
辅助.等待(10)
如果结束
dm.FindPic(0,0,2000,2000,"c:\\征.bmp","000000",0.9,0,X,Y)
辅助.等待(100)
如果(信号3==0)
线程3=线程.开启("TL辅助.验证","")
信号3=1
如果结束
如果(信号4==0)
线程4=线程.开启("TL辅助.吃肉","")
信号4=1
如果结束
辅助.等待(20)
循环(真)
循环(a>0)
dm.KeyPress(114)
辅助.等待(1000)
循环结束
循环(c>0)
dm.MoveTo(X+10,d)
辅助.等待(500)
dm.LeftClick()
辅助.等待(500)
dm.KeyPress(113)
辅助.等待(1000)
循环结束
循环(m>0)
dm.MoveTo(X+10,n)
辅助.等待(500)
dm.LeftClick()
辅助.等待(500)
dm.KeyPress(113)
辅助.等待(1000)
循环结束
dm.KeyPress(122)
辅助.等待(30)
dm.FindPic(X+255,Y-74,X+440,Y-48,"c:\\绿.bmp||c:\\红.bmp","000000",0.9,0,e,f)
辅助.等待(20)
如果(e>0)
dm.KeyPress(112)
辅助.等待(30)
如果结束
循环结束
返回 0
功能结束
功能 整型 验证()
循环 (真)
辅助.等待(500)
字符型 当前时间=系统.时间(0)
标签.设置文本("标签4",当前时间)
辅助.等待(500)
dm.FindPic(0,0,2000,2000,"c:\\答题.bmp","000000",0.9,0,h,i)
如果(h>0)
辅助.播放("rc:\\sing.mp3")
辅助.等待(2000)
辅助.蜂鸣(1000,2000)
辅助.等待(2000)
如果(信号1==0)
跳出
如果结束
如果结束
循环结束
返回 0
功能结束
功能 整型 加血()
循环(真)
辅助.等待(500)
dm.FindPic(X,Y,X+120,Y+215,"c:\\111.bmp","000000",0.9,0,c,d)
辅助.等待(500)
dm.FindPic(X,Y-70,X+175,Y-20,"c:\\222.bmp","000000",0.9,0,m,n)
循环结束
返回 0
功能结束
功能 整型 吃肉()
循环(真)
辅助.等待(500)
dm.FindPic(X+119,Y-20,X+196,Y+40,"c:\\333.bmp","000000",0.9,0,a,b)
循环结束
返回 0
功能结束
功能 逻辑型 热键0_热键()
辅助.注册插件("rc:\\dm.dll",真)
如果(信号1==0)
线程1=线程.开启("TL辅助.打怪","")
信号1=1
如果结束
逻辑型 状态
状态=复选框.获得状态("复选框0")
如果(状态)
如果(信号2==0)
线程2=线程.开启("TL辅助.加血","")
信号2=1
如果结束
如果结束
返回 真
功能结束
功能 逻辑型 热键1_热键()
线程.关闭(线程1)
信号1=0
线程.关闭(线程2)
信号2=0
线程.关闭(线程3)
信号3=0
线程.关闭(线程4)
信号4=0
dm.UnBindWindow()
返回 真
功能结束
功能 逻辑型 初始化()
字符型 当前时间=系统.时间(0)
标签.设置文本("标签4",当前时间)
字符型 版本内容=系统.版本()
标签.设置文本("标签3",版本内容)
辅助.消息框("本程序只供测试交流 QQ：110859767")
逻辑型 是否存在=文件.是否存在("c:\\111.bmp")
如果(!是否存在)
文件.拷贝("rc:\\111.bmp","c:\\111.bmp")
如果结束
逻辑型 是否存在4=文件.是否存在("c:\\答题.bmp")
如果(!是否存在4)
文件.拷贝("rc:\\答题.bmp","c:\\答题.bmp")
如果结束
逻辑型 是否存在3=文件.是否存在("c:\\222.bmp")
如果(!是否存在3)
文件.拷贝("rc:\\111.bmp","c:\\222.bmp")
如果结束
逻辑型 是否存在8=文件.是否存在("c:\\333.bmp")
如果(!是否存在8)
文件.拷贝("rc:\\111.bmp","c:\\333.bmp")
如果结束
逻辑型 是否存在1=文件.是否存在("c:\\ 征.bmp")
如果(!是否存在1)
文件.拷贝("rc:\\征.bmp","c:\\征.bmp")
如果结束
逻辑型 是否存在5=文件.是否存在("c:\\ 红.bmp")
如果(!是否存在5)
文件.拷贝("rc:\\红.bmp","c:\\红.bmp")
如果结束
逻辑型 是否存在6=文件.是否存在("c:\\ 绿.bmp")
如果(!是否存在6)
文件.拷贝("rc:\\绿.bmp","c:\\绿.bmp")
如果结束
返回 真
功能结束
功能 逻辑型 热键3_热键()
窗口.隐藏(窗口句柄)
返回 真
功能结束
功能 逻辑型 热键2_热键()
窗口.显示(窗口句柄)
返回 真
功能结束
空间结束
|
|
/2 
发表于 2012-10-1 21:42:06
发表于 2012-10-1 21:47:03
楼主