大话西游2智能自动五环 源码 有需要拿去图片自己做
//注册大漠插件
DimEnv 窗口句柄
If Lib.公共库.注册大漠插件("") = - 1 Then
TracePrint "注册大漠插件失败"
EndScript
Else
TracePrint "插件注册成功"
End If
//创建大漠对象
Set dm = CreateObject("dm.dmsoft")
//设置大漠全局路径
dm_ret = dm.SetPath("f:\lyc\")
dm_ret = dm.SetDict(0, "字符.txt")
If 获取窗口句柄() Then
TracePrint "[获取窗口句柄]窗口句柄"&窗口句柄
Call 主窗口绑定()
Else
TracePrint "获取窗口句柄失败,请把鼠标移到游戏窗口中"
End If
//------------------获取游戏窗口句柄------------------//
function 获取窗口句柄()
窗口句柄 = dm.GetMousePointWindow()
获取窗口句柄=窗口句柄
End Function
//------------------ 主窗口绑定----------------------//
Sub 主窗口绑定()
If dm.BindWindow(窗口句柄, "normal", "normal", "normal", 0) = 1 Then
线任线程ID = BeginThread(任务线程)
Else
TracePrint "主窗口绑定失败"
EndScript
End If
//--------------------脚本卡住--------------------------//
Do
Delay 200
Loop
End Sub
//-------------------脚本解绑退出------------------------//
Sub OnScriptExit()
dm_ret=dm.UnBindWindow()
End Sub
//------------------线程解绑退出------------------------//
Sub OnThreadExit()
dm_ret=dm.UnBindWindow()
End Sub
//---------------------任务线程----------------------//
Sub 任务线程()
Set dm = CreateObject("dm.dmsoft")
dm_ret = dm.BindWindow(窗口句柄, "normal", "normal", "normal", 0)
dm_ret = dm.SetPath("f:\lyc\")
dm_ret = dm.SetDict(0, "字符.txt")
TracePrint "创建任务线程成功"
//获取任务列表任务分类
Select Case 任务分类
Case "自动五环"
TracePrint "自动五环"
Call 自动五环()
Case "自动抓鬼"
Call 自动抓鬼
End Select
End Sub
//------------------------获取任务分类------------------//
Function 任务分类()
任务分类 = split(form1.combobox1.List,"|")(form1.combobox1.listindex)
End Function
//------------------------自动五环--------------------//
Sub 自动五环()
//检查五环任务状态 未接取还是未完成
Call 检查五环任务()
End Sub
function 检查五环任务()
Do
Call 调任务栏()
Delay 500
If 任务栏() Then
dm_ret = dm.FindPic(246,165,477,4991,"五.bmp|五1.bmp","000000",0.9,0,intX,intY)
If intX>=0 and intY>=0 Then
TracePrint "找到五环任务"
Call 五环任务()
Delay 200
End If
//以上是打开任务栏找五环任务,如果找到就去做五环任务 没有找到就去找日常任务
dm_ret = dm.FindStr(234,172,479,507,"日常","ffffff-000000",1.0,intX,intY)
If intX > 0 and intY > 0 Then
TracePrint "找到日常任务"
Delay 200
dm.moveto intX, intY
Delay 50
dm.LeftClick
Delay 50
dm.moveto 0,0
dm_ret = dm.FindPic(246, 165, 477, 4991, "五.bmp|五1.bmp", "000000", 0.9, 0, intX, intY)
If intX < 0 and intY < 0 Then
TracePrint "没有找到五环任务 五环任务结束"
EndScript
End If
//找到日常任务点击一下日常任务 在继续找有没有五环任务,如果还没有说明任务做完了 直接显示完成
Else
TracePrint "找到五环任务"
Call 五环任务()
Exit do
End If
//如果点击一下日常任务后列表里有五环任务 说明正在做任务. 就让他直接做五环任务
End if
LOOP
End function
function 任务栏()
dm_ret = dm.FindPic(195,336,833,636,"任务栏.bmp","000000",0.9,0,intX,intY)
If intX >= 0 and intY >= 0 Then
任务栏 = true
Else
任务栏 = false
End If
Delay 200
End Function
Sub 调任务栏()
dm.KeyDown 18
Delay 50
dm.KeyPress 81
Delay 50
dm.KeyUp 18
dm.KeyUp 81
Delay 500
End Sub
Sub 五环任务()
Select Case 任务类型
Case "食婴"
Call 食婴()
Case "替身"
Call 替身()
Case "PK"
Call PK()
Case "给予"
call 给予()
End Select
End Sub
Function 任务类型
dm_ret = dm.FindPic(486,174,794,441,"2.bmp","000000",0.9,0,intX,intY)
If intX >=0 and intY >=0 Then
任务类型 = "给予"
TracePrint "当前的任务" & 任务类型
Exit Function
End If
dm_ret = dm.FindStr(484,165,778,405,"替|身","00ff00-000000",1.0,intX,intY)
If intX >= 0 and intY >= 0 Then
任务类型 = "替身"
TracePrint "当前的任务" & 任务类型
Exit Function
End If
dm_ret = dm.FindStr(484,165,778,405,"食|婴","00ff00-000000",1.0,intX,intY)
If intX >= 0 and intY >= 0 Then
任务类型 = "食婴"
TracePrint "当前的任务"&任务类型
Exit Function
End If
dm_ret = dm.FindStr(484,165,778,405,"P|K|狂|惯|骗|盗|号|贼","00ff00-000000",1.0,intX,intY)
If intX >= 0 and intY >= 0 Then
任务类型 = "PK"
TracePrint "当前的任务"&任务类型
Exit Function
End If
End Function
Sub 食婴
Call 找绿色字()
Call 寻路()
Delay 1000
do
dm.KeyDown 18
Delay 50
dm.KeyPress 53
Delay 50
dm.KeyUp 18
dm.KeyUp 53
Delay 500
Delay 500
dm_ret = dm.FindStr(380,-1,1025,459,"手下的手下","ffff00-9f9f0f|4d571b-000000|3f3f00-000000|a6a70b-000000|888c0e-000000|45491e-000000|b7b700-000000|c3c300-000000|dbdb00-000000|8d8c0e-000000",1.0,intX,intY)
If intX > 0 and intY > 0 Then
TracePrint "找到手下"
dm.MoveTo intX , intY
dm.rightclick
Delay 5000
end if
dm_ret = dm.FindPic(365,88,684,472,"手下脑子.bmp|手下刀.bmp|手下鞋.bmp","000000",0.9,0,intX,intY)
If intX >= 0 and intY >= 0 Then
dm.moveto intX, inty
dm.leftclick
End If
Delay 1000
dm_ret = dm.FindPic(963,598,1025,633,"自动.bmp","000000",0.9,0,intX,intY)
If intX >= 0 and intY >= 0 Then
TracePrint "进入战斗"
Call 战斗()
Call 等待战斗结束()
Exit Do
End If
Loop
Call 找边框()
Call 检查五环任务()
End Sub
Sub 给予()
Call 找绿色字()
Call 寻路()
dm.moveto 372, 344
dm.leftclick
Delay 500
dm.moveto 372, 344
dm.leftclick
Delay 2000
dm_ret = dm.FindPic(203,218,309,370,"边框.bmp","000000",0.9,0,intX,intY)
If intX >= 0 and intY >= 0 Then
dm.moveto intX + 100, intY + 20
dm.leftclick
Delay 500
dm.moveto intX + 100, intY + 20
dm.leftclick
Delay 500
dm.moveto intX + 100, intY + 20
dm.leftclick
Delay 500
end if
Call 检查五环任务()
End Sub
Sub 替身()
call 找绿色字()
Call 寻路()
Call 找边框()
Call 检查五环任务()
End Sub
Sub PK()
call 找绿色字()
Call 寻路()
Call 找边框()
Call 战斗()
Call 等待战斗结束()
Call 找边框()
Call 补血补蓝()
Call 检查五环任务()
End Sub
Sub 调地图()
dm.KeyDown 18
Delay 50
dm.KeyPress 49
Delay 50
dm.KeyUp 18
dm.KeyUp 49
Delay 500
End Sub
Sub 找绿色字()
Do
Delay 100
返回值 = Lib.公共库.找色单击(474,174,790,407,"00ff00-000000",0,窗口句柄,0)
//dm_ret = dm.FindColor(474,174,790,407, , 1.0, 0, intX, intY)
TracePrint intX&intY
dm.moveto intY, intY
TracePrint "单击"
dm.leftclick
Delay 100
坐标 = dm.Ocr(14,0,151,30, "ffffff-000000", 1.0)
//TracePrint 坐标
Delay 100
坐标1 = dm.Ocr(14,0,151,30, "ffffff-000000", 1.0)
//TracePrint 坐标1
Delay 100
坐标2 = dm.Ocr(14,0,151,30, "ffffff-000000", 1.0)
//TracePrint 坐标2
Delay 100
If 坐标2 <> 坐标 and 坐标1 <> 坐标 Then
Exit Do
end if
Loop
End Sub
Sub 补血补蓝()
dm.moveto 980, 20
dm.leftclick
Delay 500
dm.moveto 980, 40
dm.leftclick
End Sub
Sub 战斗
Do
dm_ret = dm.FindStr(435,310,591,412,"二|一","ff0000-000000",1.0,intX,intY)
If intX >= 0 and intY >= 0 Then
Exit Sub
End if
dm_ret = dm.FindColor(106,163,666,603,"0af907-229c18-225d18",1.0,2,intX,intY)
TracePrint "怪的位置" & intX & intY
dm.KeyPress 115
Delay 200
dm.moveto IntX - 15, intY - 30
dm.leftclick
dm.leftclick
dm.moveto IntX - 15, intY - 40
dm.leftclick
Delay 500
dm_ret = dm.FindPic(963,598,1025,633,"自动.bmp","000000",0.9,0,intX,intY)
If intx > 0 and intY > 0 Then
dm.moveto intx, inty
Delay 500
dm.leftclick
Delay 200
TracePrint "开启自动"
End If
Delay 100
Loop
End Sub
Sub 寻路
Do
TracePrint "正在寻路中"
Delay 500
坐标 = dm.Ocr(14,0,151,30, "ffffff-000000", 1.0)
//TracePrint 坐标
Delay 400
dm_ret = dm.FindPic(195,336,833,636,"任务栏.bmp","000000",0.9,0,intX,intY)
If intX >= 0 and intY >= 0 Then
call 调任务栏()
End If
坐标1 = dm.Ocr(14,0,151,30, "ffffff-000000", 1.0)
//TracePrint 坐标1
Delay 400
dm_ret = dm.FindStr(64,73,995,618,"商|全","ffffff-000000",1.0,intX,intY)
If intX >= 0 and intY >= 0 Then
Delay 100
Call 调地图()
End if
坐标2 = dm.Ocr(14,0,151,30, "ffffff-000000", 1.0)
//TracePrint 坐标2
Delay 400
If 坐标2 = 坐标 and 坐标1 = 坐标 Then
TracePrint "寻路结束"
Exit Do
Delay 100
End If
Loop
End Sub
Sub 找边框()
Do
TracePrint "边框查找中"
Delay 200
dm_ret = dm.FindPic(203,218,309,370,"边框.bmp","000000",0.9,0,intX,intY)
If intX >= 0 and intY >= 0 Then
dm.moveto intX + 100, intY + 20
dm.leftclick
Delay 500
dm.moveto intX + 100, intY + 20
dm.leftclick
Delay 500
dm.moveto intX + 100, intY + 20
dm.leftclick
Delay 500
dm_ret = dm.FindPic(203,218,309,370,"边框.bmp","000000",0.9,0,intX,intY)
If intX <0 and intY < 0 Then
TracePrint "对话完毕"
Exit Do
End If
Else
TracePrint "等待边框出现中"
End if
Loop
End Sub
Sub 隐藏人物()
dm.KeyDown 18
Delay 50
dm.KeyPress 53
Delay 50
dm.KeyUp 18
dm.KeyUp 53
Delay 500
End Sub
Sub 等待战斗结束()
do
If dm.FindPic(9, 88, 249, 240, "战斗结束.bmp", "000000", 0.9, 0, intX, intY) >=0 Then
TracePrint "战斗结束"
TracePrint intx&inty
Exit DoEnd If
Delay 200
Loop
End Sub
大话西游2智能自动五环 源码 有需要拿去图片自己做相关推荐
- 抖音企业号抖音智能营销系统源码待开发技术。。。。。
抖音企业号抖音智能营销系统源码待开发技术:Symbol值通过Symbol函数生成.这就是说,对象的属性名现在可以有两种类型,一种是原来就有的字符串,另一种就是新增的Symbol类型.凡是属性名属于Sy ...
- 基于Java毕业设计智能停车场管理系统源码+系统+mysql+lw文档+
基于Java毕业设计智能停车场管理系统源码+系统+mysql+lw文档+ 基于Java毕业设计智能停车场管理系统源码+系统+mysql+lw文档+部署软件 本源码技术栈: 项目架构:B/S架构 开发语 ...
- 智慧停车场微信小程序源码 | 智能停车系统源码 | 全开源
智慧停车场微信小程序源码 | 智能停车系统源码 | 全开源 本停车场系统兼容市面上主流的多家相机,理论上兼容所有硬件,可灵活扩展,相机识别后数据自动上传到云端并记录,校验相机唯一id和硬件序列号,防止 ...
- 帝国CMS7.5智能网址导航站源码
帝国CMS7.5开发的智能网址导航站源码,自适用手机端.全自动收录功能,只要添加指定的网址友情链接,就可以自动收录直接显示,如无添加友情链接提交收录后需审核后才可显示,而且支持自定义排序功能和颜色 下 ...
- 最新二开抢单系统淘宝自动抢单源码安装教程
最新二开抢单系统淘宝自动抢单源码安装教程 [2次开发版]2020最新五代分佣抢单系统唯品会京东淘宝自动抢单区块源码 新增理财宝收益分佣功能 五代分佣 新增用户提现手续费 2020年02月04日升级 新 ...
- 减少重复工作,通过 Annotation Processor 自动完成源码的生成
背景: 类似 lombok.Data 解决了 bean 类的自动完成 setter/getter 方法,在 scrapy4j 框架实现过程中,发现 item 每次都需要人工编写,且编写内容除了属性和类 ...
- SpringBoot自动装配源码解析
Spring Boot 自动装配原理 使用Spring Boot最方便的一点体验在于我们可以几零配置的搭建一个Spring Web项目,那么他是怎么做到不通过配置来对Bean完成注入的呢.这就要归功于 ...
- 发卡源码php免签约,2021亲测响应式PHP个人自动发卡源码-AZ发卡网源码 对接免签约易支付...
2021亲测响应式PHP个人自动发卡源码-AZ发卡网源码 对接免签约易支付 个人自动发开网源码在聚码屋以及分享过许多套,今天这套在诸多发卡系统中,个人感觉是不"如意"的,至少我不是 ...
- Springboot自动装配源码分析
Springboot自动装配源码分析 1.从@SpringbootApplication点进去 2.可以看到核心的三个注解 @SpringbootConfiguration @EnableAutoCo ...
最新文章
- Kmeans算法的过程是什么?Kmeans算法的缺陷主要有哪些?
- 对象及变量的并发访问一
- 基本套接字总结(@function)
- 搞java不细心_Java 2 (基础总结)
- android的logcat详细用法
- 重载与覆盖(java)
- amoeba实现mysql主从读写分离_利用Amoeba实现MySQL主从复制和读写分离
- vb 6.0 获取重定向的url_免费CloudFlare CDN真香,个人站点加速+Https证书+重定向
- Python 爬取 3000 部电影,最具人气烂片排行榜出炉!
- jupyter notebook 内核挂掉
- IPO | 经纬恒润登科创板,好赛道下隐患依然很突出
- python爬虫基础及实例---代码经过实测
- 键盘上特殊符号的中英文名称
- 人生海海,山山而川,不过尔尔。
- 梦幻西游python验证成语_python正则表达式抓取成语网站
- 甲骨文UBUNTU安装宝塔面板无法访问
- C65升级与补丁 V25->V43DIY全程
- 在WebGL场景中管理多个卡牌对象的实验
- Debian学习笔记
- flash/flex基础发展区别等
热门文章
- pat-public bikes manager
- origin 2017修改坐标轴上的值
- 开源WebGIS架构
- 2022年全球市场水果去皮机和榨汁机总体规模、主要生产商、主要地区、产品和应用细分研究报告
- demo代码目录整理
- CTF--[网鼎杯 2020 青龙组]AreUSerialz
- 处理CSV文件中的日期出现 does not match format ‘%Y-%m-%d‘ 错误
- 3年自动化测试经验,25K都面不上?这么坑?
- 一.对HAL库片外flash操作解读
- FFmpegSDL教程:用不到1000行代码写一个播放器