贴一个之前写的阴阳师源码，供各位学习

编译环境：某键
直接上源代码，代码编译有点乱，请大佬勿喷

If form1.ComboBox1.List = "两人队伍" Then 人数 = 2
ElseIf form1.ComboBox1.List = "三人队伍" Then人数 = 3
End If
If form1.ComboBox2.List = "公开" Then 权限 = 1
ElseIf form1.ComboBox1.List = "不公开" Then权限 = 2
Else 权限=1
End If
//
MessageBox "将鼠标移至窗口最左上方"
Delay 2000
GetCursorPos m, l
MessageBox "将鼠标移至窗口最右下"
Delay 2000
GetCursorPos o, k
MessageBox "记录完成，确认开始进行御魂10队长模式"
//探索
zj = 16
Rem a2
If Form1.CheckBox2.Value = true Then
Do For ts=1 to 18Rem a6//1是主界面勾玉，2是探索界面瓦片，3是选择章节，4是探索按钮,5在副本内，6打架中的火，7式神区域进行配置，8获得奖励FindPic m,l,o,k,"C:\Users\DrunkDreamer\Documents\按键\1\zj"&zj&".bmp",0.9,x,yIf x > 0 and y > 0 Then Call 点击zj = 4Delay 1000Goto a6end ifFindPic m,l,o,k,"C:\Users\DrunkDreamer\Documents\按键\1\tansuo"&ts&".bmp",0.9,x,yIf x > 0 and y > 0 Then //准备进入探索界面的判断If ts = 1 Then For tt=1 to 8 FindPic m, l, o, k, "C:\Users\DrunkDreamer\Documents\按键\1\探索" & tt & ".bmp", 0.9, x, yDelay 100nextIf x > 0 and y > 0 Then Call 点击shengli=1Else //如果不是在最中间，就点击町中FindColor 0,0,1024,768,"959598",x,yIf x > 0 and y > 0 Then MoveTo x, y-20Delay 100LeftClick 1Delay 1000End IfEnd If End IfIf ts = 6 Then Goto a4End IfIf ts = 7 Then Goto a4End If//章节选择If ts = 2 and shengli = 1 Then Delay 2000a = xb = y + 35pd=1For 5MoveTo a, bDelay 100LeftDown 1For 15MoveR 0, 10Delay 50next            LeftUp 1Delay 500NextDoRem a3FindPic m, l, o, k, "C:\Users\DrunkDreamer\Documents\按键\1\zj" & zj & ".bmp", 0.9, x, yIf x > 0 and y > 0 Then Call 点击Delay 3000Exit doElse MoveTo a, b + 140Delay 100LeftDown 1For 15MoveR 0,- 10Delay 50nextLeftUp 1Delay 1500pd = pd + 1If pd > 8 Then FindPic m, l, o, k, "C:\Users\DrunkDreamer\Documents\按键\1\tansuo3.bmp", 0.9, x, yif x > 0 and y > 0 Then Call 点击Goto a2End ifEnd IfEnd Ifloop End IfIf ts = 4 Then ls = 1Call 点击End If//副本里面开始选择怪If ts = 5 Then doFor 20Delay 100FindPic m,l, o, k, "C:\Users\DrunkDreamer\Documents\按键\1\boss.bmp", 0.3, x, yif x > 0 and y > 0 Then Call 点击End ifFindColorEx  m,l, o, k,"80A3B8",2,0.8,intX,intYIf intX > 0 And intY > 0 Then FindColorEx intX, intY-10, intX+20, intY+10, "273389", 2, 0.9, X, YIf X > 0 and Y > 0 Then FindPic X-78,Y-100, X+78, Y-23, "C:\Users\DrunkDreamer\Documents\按键\1\da.bmp", 0.6, x, yif x > 0 and y > 0 Then Call 点击End ifEnd IfEnd IfNextFindPic  m,l, o, k, "C:\Users\DrunkDreamer\Documents\按键\1\tansuo5.bmp", 0.6, x, yif x > 0 and y > 0 Then MoveTo x - 90, yLeftDown 1For 15MoveR - 20 , 0Delay 100Next LeftUp 1Delay 100ls = ls + 1If ls > 8 Then FindPic m, l, o, k, "C:\Users\DrunkDreamer\Documents\按键\1\tansuo3.bmp", 0.9, x, yif x > 0 and y > 0 Then Call 点击FindPic m, l, o, k, "C:\Users\DrunkDreamer\Documents\按键\1\qr.bmp", 0.9, x, yIf x > 0 and y > 0 Then Call 点击Delay 3000Goto a3End IfEnd IfEnd ifEnd IfRem a4FindPic m, l, o, k, "C:\Users\DrunkDreamer\Documents\按键\1\man.bmp", 0.8, x, yif x > 0 and y > 0 Then Call 点击End IfFindPic m, l, o, k, "C:\Users\DrunkDreamer\Documents\按键\1\zb.bmp", 0.9, x, yif x > 0 and y > 0 Then //判断满级与更换N卡FindColorEx 88,674,620,945,"03EAFB",0,0.9,intX,intYIf intX> 0 And intY> 0 ThenMoveTo intX, intYDelay 100LeftClick 1Delay 2500FindPic m, l, o, k, "C:\Users\DrunkDreamer\Documents\按键\1\qb.bmp", 0.9, x, yIf x > 0 and y > 0 Then Call 点击Delay 1000FindPic m, l, o, k, "C:\Users\DrunkDreamer\Documents\按键\1\nka.bmp", 0.9, x, yIf x > 0 and y > 0 Then Call 点击FindPic m, l, o, k, "C:\Users\DrunkDreamer\Documents\按键\1\n1.bmp", 0.9, x, yIf x > 0 and y > 0 Then m1 = x + 45m2 = y - 18l1 = x + 60l2 = y - 5tm = 0Rem a5If tm > 3 Then FindPic m,l, o, k, "C:\Users\DrunkDreamer\Documents\按键\1\zb.bmp", 0.9, x, yIf x > 0 and y > 0 Then Call 点击Delay 1000End IfEnd if// 判断n卡已经满级没FindColorEx m1, m2,l1, l2,"0FBBF3",0,0.6,intX,intYIf intX> 0 And intY> 0 Thenm1 = m1 + 48l1 = l1 + 48Goto a5Else MoveTo l1 + 13, l2 + 17Delay 100LeftDown 1MoveTo x + 59, y - 68Delay 100LeftUp 1Delay 100tm=tm+1x = x + 193m1 = m1 + 48l1 = l1 + 48Goto a5End IfEnd IfEnd IfEnd IfEnd IfCall 点击End IfFindPic m, l, o, k, "C:\Users\DrunkDreamer\Documents\按键\1\zd.bmp", 0.9, x, yif x > 0 and y > 0 Then Call 点击End IfFindPic m, l, o, k, "C:\Users\DrunkDreamer\Documents\按键\1\boss1.bmp", 0.8, x, yif x > 0 and y > 0 Then Call 点击End IfFindPic m, l, o, k, "C:\Users\DrunkDreamer\Documents\按键\1\12.bmp", 0.8, x, yif x > 0 and y > 0 Then Call 点击End IfFindPic m, l, o, k, "C:\Users\DrunkDreamer\Documents\按键\1\dt.bmp", 0.8, x, yif x > 0 and y > 0 Then Call 点击Delay 500FindPic m, l, o, k, "C:\Users\DrunkDreamer\Documents\按键\1\qx.bmp", 0.8, x, yif x > 0 and y > 0 Then y=y+56Call 点击End IfEnd IfFindPic m, l, o, k, "C:\Users\DrunkDreamer\Documents\按键\1\sl.bmp", 0.9, x, yif x > 0 and y > 0 Then Delay 1000Call 点击Delay 4000Exit doEnd IfloopEnd IfEnd ifNext
Loop
End if
//御魂
If Form1.CheckBox1.Value = true Then Do For tu=1 to 18//1是卷轴，2是组队，3是御魂，4是全部,5 十层，6十层被点击,7创建队伍，8 创建，9开始战斗，10 准备，11手动，12胜利，13打开奖励//14默认邀请队友，15准备,16悬赏接受,17 御魂第种图,18自动，19等待的时候自动接收邀请齿轮，20不再提示，21之后确认FindPic m,l,o,k,"C:\Users\DrunkDreamer\Documents\按键\1\"&tu&".bmp",0.9,x,yIf x > 0 and y > 0 Then If tu = 4 Then If x > 0 and y > 0 and tu = 4 Then //拖动过程//          ts = "拖动选择御魂章节"//            call 信息Delay 50MoveTo x, y + 148LeftDown 1For 15delay 20   MoveR 0, - 10 NextLeftUp 1Delay 500Goto a1End IfEnd If//选择开放权限If tu = 8 and x > 0 and y > 0 Then Select Case 权限Case 1//所有人FindPic m,l,o,k,"C:\Users\DrunkDreamer\Documents\按键\1\60.bmp",0.9,x,yIf x > 0 and y > 0 Then Delay 100MoveTo x-30, y+10Delay 100LeftClick 1Delay 100FindPic m,l,o,k,"C:\Users\DrunkDreamer\Documents\按键\1\8.bmp",0.9,x,yIf x > 0 and y > 0 Then Call 点击End ifEnd ifCase 2//不公开FindPic m,l,o,k,"C:\Users\DrunkDreamer\Documents\按键\1\59.bmp",0.9,x,yIf x > 0 and y > 0 Then Delay 100MoveTo x-30, y+10Delay 100LeftClick 1Delay 100FindPic m,l,o,k,"C:\Users\DrunkDreamer\Documents\按键\1\8.bmp",0.9,x,yIf x > 0 and y > 0 Then Call 点击End ifEnd ifEnd SelectEnd IfIf tu=7 thenFindPic m,l,o,k,"C:\Users\DrunkDreamer\Documents\按键\1\6.bmp",0.9,x,yIf x > 0 and y > 0 Then FindPic m,l,o,k,"C:\Users\DrunkDreamer\Documents\按键\1\7.bmp",0.9,x,yIf x > 0 and y > 0 Then Call 点击End ifEnd IfGoto a1End IfIf  tu = 9 Then//拖动过程If 人数 = 2 Then FindPic m,l,o,k,"C:\Users\DrunkDreamer\Documents\按键\1\65.bmp",0.9,x,yIf x > 0 and y > 0 Then //          ts = "判断是否是2人组队   "//            call 信息GetColor=GetPixelColor(x+20,y+65)If GetColor = "BCC6CE" Then FindPic m,l,o,k,"C:\Users\DrunkDreamer\Documents\按键\1\9.bmp",0.9,x,yIf x > 0 and y > 0 Then Call 点击End IfEnd IfEnd ifElseIf 人数 = 3 Then//三人队FindPic m,l,o,k,"C:\Users\DrunkDreamer\Documents\按键\1\66.bmp",0.9,x,yIf x > 0 and y > 0 Then //      ts = "判断是否是3人组队   "//            call 信息GetColor = GetPixelColor(x, y + 65)If GetColor = "BCC6CE" Then FindPic m,l,o,k,"C:\Users\DrunkDreamer\Documents\按键\1\9.bmp",0.9,x,yIf x > 0 and y > 0 Then Call 点击End IfEnd IfGoto a1End IfEnd IfEnd If//默认邀请If tu = 14 Then Call 点击GetColor = GetPixelColor(x+59, y + 32)If GetColor = "BCC6CE" Then MoveTo x + 59, y + 32Delay 100LeftClick 1Delay 1000End IfGoto a1End ifCall 点击End IfRem a1//判断对号FindPic m,l,o,k,"C:\Users\DrunkDreamer\Documents\按键\1\64.bmp",0.9,x,yIf x > 0 and y > 0 Then FindPic m,l,o,k,"C:\Users\DrunkDreamer\Documents\按键\1\63.bmp",0.9,x,yIf x > 0 and y > 0 Then Call 点击End ifEnd IfFindPic m,l,o,k,"C:\Users\DrunkDreamer\Documents\按键\1\62.bmp",0.9,x,yIf x > 0 and y > 0 Then FindPic m,l,o,k,"C:\Users\DrunkDreamer\Documents\按键\1\61.bmp",0.9,x,yIf x > 0 and y > 0 Then Call 点击End ifEnd IfNextLoop
End if
Sub 点击Delay 100MoveTo x, y+5Delay 100LeftClick 1Delay 100
End Sub
Sub 信息xx=0If xx = 0 Then Delay 500Call Plugin.Msg.ShowScrTXT(1276, 1040, 1560, 1079, "正在进行" & ts, "FFFFFF")Delay 1000xx = 1ElseIf xx = 1 ThenDelay 500Call Plugin.Msg.ShowScrTXT(1276, 1062, 1560, 1079, "正在进行"&ts, "FFFFFF")   xx = 0Delay 1000End If
End Sub
Event Form1.Button1.ClickMessageBox "开始调整窗口大小，请把鼠标移到对应窗口，点击确认后2秒开始调整。"Delay 2000Hwnd = Plugin.Window.MousePoint()Delay 1000Call Plugin.Window.Size(Hwnd, 584, 359)
End Event

界面如下：

中间部分数字是对应所需找的图例。需要自己重新截取

因为CSDN审核，太深奥的就不写了，有一定基础的可以自行尝试修改，就这样吧。

贴一个之前写的阴阳师源码，供各位学习相关推荐

推荐一个uniapp写的商城源码
uniapp开发的商城有什么优势? 1 开发成本低,不止开发成本,招聘.管理.测试各方面成本都大幅下降. 2 学习成本低,基于通用的前端技术栈,采用vue语法+微信小程序api,无额外学习成本. 3. ...
c语言的酒店管理系统源码供参考学习
程序源代码: #include <stdio.h> #include <stdlib.h> #include <string.h> #include<coni ...
自己写了一个Asp.net探针的源码，希望大家讨论一下
现在针对Asp.net的探针很少,所以闲来无事就简单的写了一个,读取的信息如下服务器基本信息服务器计算机名 http://localhost/ 服务器IP地址 127.0.0.1 服务器域名 lo ...
学习尤雨溪写的 Vue3 源码中的简单工具函数
大家好,我是若川.最近组织了源码共读活动.每周读 200 行左右的源码.很多第一次读源码的小伙伴都感觉很有收获,感兴趣可以加我微信ruochuan12,拉你进群学习. 初学者也能看懂的 Vue3 源码 ...
前端进阶-手写Vue2.0源码（三）｜技术点评
前言今天是个特别的日子祝各位女神女神节快乐哈封面我就放一张杀殿的帅照表达我的祝福哈哈此篇主要手写 Vue2.0 源码-初始渲染原理上一篇咱们主要介绍了 Vue 模板编译原理它是 Vue ...
曾经写的俄罗斯方块源码 2021-06-13
整理云盘时发现的曾经写的俄罗斯方块源码用html + js + css写的,感觉到了自己曾经的骄傲 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML ...
【卷积神经网络CNN 实战案例 GoogleNet 实现手写数字识别源码详解深度学习 Pytorch笔记 B站刘二大人（9.5/10）】
卷积神经网络CNN 实战案例 GoogleNet 实现手写数字识别源码详解深度学习 Pytorch笔记 B站刘二大人 (9.5/10) 在上一章已经完成了卷积神经网络的结构分析,并通过各个模块理解 ...
求一个文章原创检测工具源码 C#的谢谢私我
求一个文章原创检测工具源码 C#的谢谢私我@TOC 欢迎使用Markdown编辑器你好! 这是你第一次使用 Markdown编辑器所展示的欢迎页.如果你想学习如何使用Markdown编辑器, ...
Linux下imx6dl开发板从镜像的烧写、内核源码编译到第一个驱动运行的详细步骤
文章目录前言一.对开发板烧写镜像 1.镜像烧写 2.串口测试二.搭建交叉编译环境 1.Ubuntu下搭建交叉编译环境 2.WSL下搭建交叉编译环境三.编译Linux内核源码 1.Ubuntu下 ...

贴一个之前写的阴阳师源码，供各位学习

贴一个之前写的阴阳师源码，供各位学习相关推荐

最新文章

热门文章