跪求dnf第二季自动收货源码

发布网友发布时间：2022-12-17 02:09

共1个回答

热心网友时间：2023-09-13 05:48

　　MsgBox "请点击DNF游戏窗口，点击确定后2秒内完成！QQ：460195194 欢迎大家一起讨论"
　　Delay 2000
　　Dim hwnd
　　Dim jiaqian(100)
　　Dim shuliang
　　hwnd=Plugin.Window.MousePoint
　　x=Plugin.Window.Move(hwnd,0,0)
　　time1=plugin.Sys.GetTime //获取脚本运行时系统初始时间
　　gosub 站街自动喊话
　　//站街喊话脚本

　　Sub 站街自动喊话
　　//下面这句在屏幕区域范围内查找16进制颜色("0000FF")的数量
　　time3=Plugin.Sys.GetTime
　　If time3-time1>900000 then //15分钟后开启防掉线
　　gosub 防掉线
　　End If
　　KeyPressS "Enter", 1
　　Delay 200
　　NUM =plugin.Color.CountColor(60, 398,92, 407, "AADDEE",1) //查找喊话窗口是否存在
　　If NUM>0 then
　　KeyPressS "Z", 2
　　Delay 20
　　KeyPressS "1", 1
　　Delay 20
　　KeyPressS "Enter", 1
　　delay 1000
　　End if
　　Gosub 等待交易
　　End Sub

　　Sub 等待交易
　　//找图
　　x=Plugin.Window.Active(hwnd)
　　FindPic 455,305,636,419,"Attachment:\公告按钮.bmp",0.9,intX,intY //扫描交易框
　　If intX > 0 And intY > 0 Then
　　MoveTo 523,403
　　LeftClick 2
　　IfColor 197,301,"42739C",0
　　Gosub 扫描物品
　　End If
　　Else
　　Gosub 站街自动喊话
　　End If

　　End Sub

　　Sub 扫描物品
　　Delay 4000
　　Dim ss(10)
　　dim sss(10)
　　ss(0)="73A5EF" //强韧
　　ss(1)="8C9C11" //威严
　　ss(2)="11DE42" //狂乱
　　ss(3)="4A4A42" //灵魂
　　ss(4)="529429" //灾难
　　ss(5)="4A295B" //眼睛
　　ss(6)="D69473" //小篮
　　ss(7)="848484" //无色
　　ss(8)="AD73D6" //碳 175,191
　　ss(9)="BDB5C6" // 蓝冰
　　//这里使用查找颜色来获取物品不知道在别的电脑上是否能使用反正在我自己的电脑上是可以用的请教一下
　　sss(0)= 20000
　　sss(1)= 20000
　　sss(2)= 20000
　　sss(3)= 4000
　　sss(4)= 3200
　　sss(5)= 25000
　　sss(6)= 100
　　sss(7)= 50
　　sss(8)= 50
　　sss(9)= 9000
　　Dim n,m,i,j
　　Dim jiage
　　n=0
　　geshu=1
　　Dim kx
　　kx=85 //第一格物品x取色点
　　ux=kx
　　Dim ky
　　ky=191 //第一个物品y取色点
　　//扫描第一行物品，共8个物品格
　　for 8
　　// 单格物品扫描
　　For 10
　　IfColor ux,ky,ss(n),0
　　jiage=wupin(geshu,sss(n)) //获取物品价钱
　　Exit For
　　End If
　　n=n+1
　　Next
　　qian=qian+jiage //计算总价格
　　jiage=0 //价格清零
　　ux=ux+30 //x坐标加30，扫描下一个框内物品
　　geshu=geshu+1 //个数循环
　　n=0
　　Next