Question

求DNF自动收货工具部分源码（VB或按键精灵）

自己用，其他代码写好了，只差识别物品和计算价钱的代码，急求，要求识别物品和物品数量并能按照设置的价钱自动计算，VB或按键精灵源码，要是太大就发了 love.521.sk@139.com 拒绝广告。好的话再追分。

Answer 1

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

追问

这个源码我有。不过这个用点色取物品取的非常不准。

Answer 2

已发 注意查收