|
RT
http://bbs.tyuyan.com/thread-780-1-1.html是下QQ炫舞全P脚本的地方
我看了很多留言 也是很多人不能用 找不到WX.TXT 求管理优化下 或者那位高手帮纠正下
源码:
空间 我的程序
整型 窗口句柄
逻辑型 创建是否成功
整型 线程句柄
逻辑型 字符串是否出现
逻辑型 是否成功3
逻辑型 是否绑定
整型 坐标微调
整型 标识 //控制 识别字符串和点P之间的切换
//微调连P的精确度
功能 逻辑型 按钮1_点击()
如果(641<=坐标微调&&坐标微调<=647)
坐标微调=坐标微调-1
如果(坐标微调==640)
坐标微调=641
如果结束
标签.设置文本("标签0",转换.整型转字符型(坐标微调))
否则
返回 真
如果结束
//窗口.置顶(窗口句柄)
返回 真
功能结束
//微调连P的精确度
功能 逻辑型 按钮2_点击()
如果(641<=坐标微调&&坐标微调<=647)
坐标微调=坐标微调+1
如果(坐标微调==648)
坐标微调=647
如果结束
标签.设置文本("标签0",转换.整型转字符型(坐标微调))
否则
返回 真
如果结束
//窗口.置顶(窗口句柄)
返回 真
功能结束
功能 逻辑型 按键(字符型 按键)
如果(0==字符串.比较(按键,"8"))
大漠.按键(104)
如果结束
如果(0==字符串.比较(按键,"4"))
大漠.按键(100)
如果结束
如果(0==字符串.比较(按键,"6"))
大漠.按键(102)
如果结束
如果(0==字符串.比较(按键,"2"))
大漠.按键(98)
如果结束
返回 真
功能结束
//找P点方法
功能 逻辑型 自动P()
坐标微调=转换.字符型转整型(标签.获得文本("标签0"))
整型 intx
整型 inty
循环(真)
是否成功3=大漠.区域找色(坐标微调,433,647,447,"ff643d-000000",1.0,0,intx,inty)
如果(是否成功3)
大漠.按键(32)
标识=1
跳出
如果结束
循环结束
返回 真
功能结束
//判断字符串是否出现
功能 逻辑型 识别开始()
int intx,inty
循环(真)
字符串是否出现=大漠.区域找色(364,421,463,453,"ffea5c-505050",1.0,0,intx,inty)
如果(字符串是否出现)
跳出
如果结束
循环结束
辅助.等待(500)
返回 真
功能结束
功能 逻辑型 开始跳舞()
//定义局部变量
逻辑型 字库是否成功
字符型 按键
整型 返回位置
字符型 返回格式串
逻辑型 绑定是否成功
//判断大漠是否创建成功
创建是否成功=大漠.创建()
如果(!创建是否成功)
辅助.消息框("创建失败")
返回 真
如果结束
//获取游戏窗口句柄
窗口句柄=窗口.找到窗口("QQ炫舞")
如果(窗口句柄==0)
辅助.消息框("找不到游戏窗口")
返回 真
如果结束
窗口.置顶(窗口句柄)
窗口.设置位置(窗口句柄,0,0)
//normal模式 绑定游戏窗口
绑定是否成功=大漠.绑定窗口(窗口句柄,"normal","normal","normal",0)
辅助.等待(1500)
如果(!绑定是否成功)
辅助.消息框("窗口绑定失败")
返回 真
如果结束
//设置字库
字库是否成功=大漠.设置字库(0,"wx.txt")
如果(!字库是否成功)
辅助.消息框("字库设置失败")
返回 真
如果结束
//循环识别按键字符串
循环(真)
我的程序.识别开始()
如果(标识==1)
如果(字符串是否出现)
返回格式串=大漠.识别词组(363,462,683,495,"008feb-808080",1.0)
//以前前段位置字符串
重复(2)
返回位置=字符串.查找字符串 (返回格式串,"|")
返回格式串=字符串.移除(返回格式串,返回位置+1)
重复结束
//获取单个字符
循环(真)
如果(字符串.查找字符串(返回格式串,"|")!=-1)
返回位置=字符串.查找字符串 (返回格式串,"|")
按键=字符串.截取(返回格式串,0,返回位置)
我的程序.按键(按键)
返回格式串=字符串.移除(返回格式串,返回位置+1)
如果结束
如果(字符串.查找字符串(返回格式串,"|")==-1)
按键=返回格式串
我的程序.按键(按键)
跳出
如果结束
循环结束
如果结束
标识=0
如果结束
我的程序.自动P()
循环结束
返回 真
功能结束
功能 逻辑型 过程方法()
// 创建是否成功=大漠.创建()
线程句柄=线程.开启("我的程序.开始跳舞")
返回 真
功能结束
功能 逻辑型 开始_点击()
我的程序.过程方法()
返回 真
功能结束
功能 逻辑型 退出_点击()
如果(窗口句柄!=0)
大漠.解绑窗口(窗口句柄)
如果结束
如果(线程句柄!=0)
线程.关闭(线程句柄)
如果结束
大漠.释放(0)
返回 真
功能结束
功能 逻辑型 初始化()
逻辑型 是否成功
是否成功=大漠.注册("dm\\dm.dll")
如果(!是否成功)
辅助.消息框("大漠注册失败")
返回 真
如果结束
图片框.设置图片("图片框0","image\\shang.bmp")
图片框.设置图片("图片框1","image\\zuo.bmp")
图片框.设置图片("图片框2","image\\zhong.bmp")
图片框.设置图片("图片框3","image\\hou.bmp")
图片框.设置图片("图片框4","image\\di1.bmp")
图片框.设置图片("图片框5","image\\di2.bmp")
图片框.设置图片("图片框6","image\\di3.bmp")
图片框.设置图片("图片框7","image\\5.bmp")
坐标微调=644
返回 真
功能结束
空间结束
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
|