DNF自动收货源码
本来想把DNF自动收货各种模块都写一下的，现在看来还是算啦，就直接把源码贴上吧。
个人认为主要分为三大块：1.物品数量识别，之前我已经写了这块啦。2.金币输入3.流程控制
下面说一下代码以及使用的一些问题。首先代码前面一百多行都是给三个数组赋值，没办法，按键精灵不能一次性整体给数组赋值，这点我也很无奈，要是把DNF所有东西都加上，不知道这代码得多长啦。然后，调试时，代码没有什么问题，使用后，会发现有一句警告，说set
a=fso.opentextfile("c:交易记录.txt",8)这句代码没什么权限什么的，这是关于VBS的，我也不知道原因，总之这句还是运行啦的，对程序运行没有影响。关于识别物品，我用的是识别图片，这里大家得自己截图啦，看啦代码就应该明白图片应该截多大，以及从哪里开始截图，还有几张其他的用于流程控制的图片，大家自己截图就可以啦，或者改改代码，会用点案件精灵的，这些都是小问题。
关于使用，首先得在C盘根目录件一个文本文档，用于记录收货，取名为“交易记录.txt”。自动喊话我是配合搜狗使用的，zz设置为第一句话，zzz设置为第二句话，不会设置的话，百度一哈，你就晓得。按F10运行脚本时，鼠标必须放在游戏内，对啦，还有一点，DNF不是有一个对话的大框吗，就是什么悄悄话，红会的话，附近的话都在里面的那个大框，我们可以调整到左，右，和游戏内那个框，我们必须把这个框放到右边，看啦代码，你就知道原因啦，否则会严重影响程序的稳定性。安拉F10后，游戏会被移动到左上角，然后开始喊话，如果没有喊话，你就把鼠标在游戏内点一下，在把人物走几步，就会开始喊话啦。
由于我是用的学校的网络，收货时有时会有点卡，一卡好几秒，这就没有按照脚本原计划流程走，有时会出现无法输入金币等问题，或者中间跑出来一个DNF的提示框，当然这次交易就算是失败啦，对方关闭交易框后，这些问题都会自动解决掉。还有就是交易记录，不一定每一笔记录的都是正确的，当出现对方点啦交易，我方也点啦交易，但是在最后确认时，如果对方取消啦，此时，交易应该算是失败的，但是脚本还是会算作成功交易，这里看代码就知道原因啦，应该还有其他更好的办法，大家自己解决吧，不是什么大问题。
要说的也差不多这些啦吧，大家玩游戏，还是可以学点其他的东西的，我当初就是为了在摆地摊时能自动喊话，发现按键精灵就能实现这么个功能，而且学起来也简单，至少现在我知道有这么个东西，以后电脑上要是遇到些重复枯燥的工作，那就可以自己用按键精灵写一个小脚本啊。然后前段时间我还小小的冲动啦下，想自己写个G，然后知道啦易语言这么个东西，类似VB的，也很容易上手，因为没找到不会被和谐的改内存软件，后面也懒得找啦，但至少现在我对于单机游戏做做小外G还是没问题的，最主要的是我又会使用易语言啦啊，前几天还用它写啦个串口调试呢，所以说任何事情还是能意外的学到些东西，好啦，代码如下：
num0,num1,num2,num3,num4,num5,num6,num7,num8,num9,co,x,y,i,num
Dim sum,sum1,flag,flag1
Dim 图片位置
Dim Hwnd,fso,a
Dim 生锈的铁片,最下级砥石,最下级硬化剂,碎布片,炉岩碳,风化的碎骨
Dim 无色小晶块,红色小晶块,蓝色小晶块,黑色小晶块,白色小晶块
Dim 龙人之眼,莹石,锆石,尖晶石,血滴石,金刚石,紫玛瑙,圣痕丝绸,无重力碎片
Dim 撒勒的印章,克尔顿印章
Dim 锋利的尖刺,邪恶的结晶,耀眼的结晶,坚韧的触须
Dim 灵魂晶石，灾难的征兆,魔法石碎片
Dim 锋利的狼牙
Dim 蓝冰恶魔挑战书,狂乱恶魔挑战书, 强韧恶魔挑战书,威严恶魔挑战书
Dim 下级元素结晶,上级元素结晶
Dim 服务器喇叭,频道喇叭
Dim 龙头炮的炮身,王之石像碎块,使徒的气息,泰拉石,眼睛
Dim 物品(45),单价(45),图片位置(45)
物品(0)="生锈的铁片"
物品(1)="最下级硬化剂"
物品(2)="最下级砥石"
物品(3)="碎布片"
物品(4)="炉岩碳"
物品(5)="风化的碎骨"
物品(6)="无色小晶块"
物品(7)="红色小晶块"
物品(8)="蓝色小晶块"
物品(9)="黑色小晶块"
物品(10)="白色小晶块"
物品(11)="龙人之眼"
物品(12)="莹石"
物品(13)="锆石"
物品(14)="尖晶石"
物品(15)="血滴石"
物品(16)="金刚石"
物品(17)="紫玛瑙"
物品(18)="圣痕丝绸"
物品(19)="无重力碎片"
物品(20)="撒勒的印章"
物品(21)="克尔顿印章"
物品(22)="锋利的尖刺"
物品(23)="邪恶的结晶"
物品(24)="耀眼的结晶"
物品(25)="坚韧的触须"
物品(26)="灵魂晶石"
物品(27)="灾难的征兆"
物品(28)="魔法石碎片"
物品(29)="锋利的狼牙"
物品(30)="蓝冰恶魔挑战书"
物品(31)="狂乱恶魔挑战书"
物品(32)="强韧恶魔挑战书"
物品(33)="威严恶魔挑战书"
物品(34)="下级元素结晶"
物品(35)="上级元素结晶"
物品(36)="服务器喇叭"
物品(37)="龙头炮的炮身"
物品(38)="王之石像碎块"
物品(39)="使徒的气息"
物品(40)="泰拉石"
物品(41)="眼睛"
物品(42)="树根"
物品(43)="白色大晶体"
物品(44)="红色大晶体"
物品(45)="频道喇叭"
//单价设置区
单价(0)=100'生锈的铁片
单价(1)=100'最下级砥石
单价(2)=100'最下级硬化剂
单价(3)=100'碎布片
单价(4)=30'炉岩碳
单价(5)=100'风化的碎骨
单价(6)=30'无色小晶块
单价(7)=150'红色小晶块
单价(8)=50'蓝色小晶块
单价(9)=50'黑色小晶块
单价(10)=50'白色小晶块
单价(11)=200'龙人之眼
单价(12)=200'莹石
单价(13)=100'锆石
单价(14)=500'尖晶石
单价(15)=100'血滴石
单价(16)=100'金刚石
单价(17)=100'紫玛瑙
单价(18)=200'圣痕丝绸
单价(19)=600'无重力碎片
单价(20)=200'撒勒的印章
单价(21)=500'克尔顿印章
单价(22)=1000'锋利的尖刺
单价(23)=500'邪恶的结晶
单价(24)=500'耀眼的结晶
单价(25)=200'坚韧的触须
单价(26)=3000'灵魂晶石
单价(27)=3000'灾难的征兆
单价(28)=500'魔法石碎片
单价(29)=300'锋利的狼牙
单价(30)=5000'蓝冰恶魔挑战书
单价(31)=15000'狂乱恶魔挑战书
单价(32)=15000'强韧恶魔挑战书
单价(33)=15000'威严恶魔挑战书
单价(34)=20'下级元素结晶
单价(35)=3000'上级元素结晶
单价(36)=100000'服务器喇叭
单价(37)=200'龙头炮的炮身
单价(38)=500'王之石像碎块
单价(39)=8000'使徒的气息
单价(40)=10000'泰拉石
单价(41)=20000'眼睛
单价(42)=500'树根
单价(43)=10000'白色大晶体
单价(44)=30000'红色大晶体
单价(45)=30000'频道喇叭
//图片位置
图片位置(0)="C:DNF图片\生锈的铁片.bmp"
图片位置(1)="C:DNF图片\最下级砥石.bmp"
图片位置(2)=&"C:DNF图片\最下级硬化剂.bmp"
图片位置(3)=&"C:DNF图片\碎布片.bmp"
图片位置(4)="C:DNF图片\炉岩碳.bmp"
图片位置(5)=&"C:DNF图片\风化的碎骨.bmp"
图片位置(6)=&"C:DNF图片\无色小晶块.bmp"&&&&
图片位置(7)=&"C:DNF图片\红色小晶块.bmp"&&&&&
图片位置(8)="C:DNF图片\蓝色小晶块.bmp"&&&&
图片位置(9)="C:DNF图片\黑色小晶块.bmp"&&&&
图片位置(10)="C:DNF图片\白色小晶块.bmp"&
图片位置(11)="C:DNF图片\龙人之眼.bmp"&&&&&
图片位置(12)="C:DNF图片\莹石.bmp"&&&&&
图片位置(13)="C:DNF图片\锆石.bmp"&&&&
图片位置(14)="C:DNF图片\尖晶石.bmp"&&&&&
图片位置(15)="C:DNF图片\血滴石.bmp"&&&&&
图片位置(16)="C:DNF图片\金刚石.bmp"
图片位置(17)="C:DNF图片\紫玛瑙.bmp"
图片位置(18)="C:DNF图片\圣痕丝绸.bmp"&&&&&
图片位置(19)="C:DNF图片\无重力碎片.bmp"
图片位置(20)="C:DNF图片\撒勒的印章.bmp"&&&&&
图片位置(21)="C:DNF图片\克尔顿印章.bmp"&&&&&
图片位置(22)="C:DNF图片\锋利的尖刺.bmp"&&&&
图片位置(23)="C:DNF图片\邪恶的结晶.bmp"
图片位置(24)="C:DNF图片\耀眼的结晶.bmp"&&&&&
图片位置(25)="C:DNF图片\坚韧的触须.bmp"
图片位置(26)="C:DNF图片\灵魂晶石.bmp"
图片位置(27)="C:DNF图片\灾难的征兆.bmp"
图片位置(28)="C:DNF图片\魔法石碎片.bmp"&&&&
图片位置(29)="C:DNF图片\锋利的狼牙.bmp"
图片位置(30)="C:DNF图片\蓝冰恶魔挑战书.bmp"&&&&&
图片位置(31)="C:DNF图片\狂乱恶魔挑战书.bmp"&&&&&
图片位置(32)="C:DNF图片\强韧恶魔挑战书.bmp"&&&&&
图片位置(33)="C:DNF图片\威严恶魔挑战书.bmp"&&&&&
图片位置(34)="C:DNF图片\下级元素结晶.bmp"&&
图片位置(35)="C:DNF图片\上级元素结晶.bmp"&&
图片位置(36)="C:DNF图片\服务器喇叭.bmp"
图片位置(37)="C:DNF图片\龙头炮的炮身.bmp"
图片位置(38)="C:DNF图片\王之石像碎块.bmp"
图片位置(39)="C:DNF图片\使徒的气息.bmp"
图片位置(40)="C:DNF图片\泰拉石.bmp"
图片位置(41)="C:DNF图片\眼睛.bmp"
图片位置(42)="C:DNF图片\树根.bmp"
图片位置(43)="C:DNF图片\白色大晶体.bmp"
图片位置(44)="C:DNF图片\红色大晶体.bmp"
图片位置(45)="C:DNF图片\频道喇叭.bmp"
//数字代码区
num0="0110"
num1="0001"
num2="1111"
num3="0110"
num4="0010"
num5="0110"
num6="0110"
num7="0100"
num8="0110"
num9="0110"
Hwnd = Plugin.Window.MousePoint()
Call Plugin.Window.Move(Hwnd, 0, 0)
Delay 2000
Set fso=CreateObject("Scripting.FileSystemObject")
set a=fso.opentextfile("c:交易记录.txt",8)
Call 检查是否正在交易
if sum1&&sum
//MessageBox("开始输入金币")
&Call 输入金币(sum)
Call& 检查对方是否点交易()
Sub 交易前喊收货()
&If flag1=0
&&KeyPressS "Enter", 1
&&Delay 200
&&FindColor
60,398,92,407,"AADDEE",intX,intY
&&If intX &
&&&KeyPressS
&&&KeyPressS
&&&KeyPressS
"Enter", 1
&&&flag1=1
&&KeyPressS "Enter", 1
&&Delay 200
&&FindColor
60,398,92,407,"AADDEE",intX,intY
&&If intX &
&&&KeyPressS
&&&KeyPressS
&&&KeyPressS
"Enter", 1
&&&flag1=0
&Delay 1000
&Call 等待交易
Sub 交易中提示()
&&& KeyPress
"Enter", 1
&&& KeyPress
&&& KeyPress
&&& KeyPress
&&& KeyPress
&&& KeyPress
"Space", 1
&&& KeyPress
"Enter", 1
Sub 检查对方是否点交易()
&&Delay 150
&&IfColor 165,266,"BBFFFF",2
&If flag=1 Then
//&&MessageBox("对方已点交易")
&&s=Plugin.GetSysInfo.GetDateTime()&
&&a.writeline("")
&&a.writeline("------------------------------")
&&a.writeline("时间："&s)
&&a.write("物品：")
&&For m=0 to 45
找图并传递图片(物品(m),单价(m),图片位置(m))
&&If sum1=sum
//&&&MessageBox("sum1=sum")
&&&LeftClick
&&&LeftClick
&&&a.writeline("")
//&&&FindPic
299,111,347,140,"C:DNF图片\成功交易公告.bmp",0.6,intX,intY
//&&&If intX
&&&a.writeline("花费："&sum)
&&&a.close
&&&a.writeline("物品变化，重新检测")
&&&a.close
Sub 输入金币(数字串)
MoveTo 198,300
Delay 1000
LeftClick 2
KeyPress "BackSpace", 15
Dim 数字码，位数,n
位数=Len(数字串)
&&&&&&&&&&&
数字码=Asc(数字串)
&&&&&&&&&&&
&&&&&&&&&&&
KeyPress 数字码,1
&&&&&&&&&&&
&&&&&&&&&&&
数字串=Right(数字串,n)
LeftClick 1
Sub 检查是否有交易()&
&IfColor 915,453,"FFFFFF",2 Then
&MoveTo 881, 544
&Delay 200
&LeftClick 2
&&Delay 500
Sub 检查是否正在交易
//&Delay 500
FindPic(81,107,316,135,"C:DNF图片\物品交易.bmp",0.6,intX,intY)
//&If intX & 0
&FindColor
160,115,217,130,"FFFFFF",intX,intY
&If intX & 0&
//&&MessageBox("正在交易")
&&Call 等待放入物品
//&&Delay 100
&&Call 交易前喊收货()
Sub 检查交易是否提前结束
//&MessageBox("进来sum"&sum)
FindPic(81,107,316,135,"C:\物品交易.bmp",0.6,intX,intY)
//&If intX & 0
&FindColor
160,115,217,130,"FFFFFF",intX,intY
&If intX & 0&
//&&MessageBox("交易未结束，开始找图")
&&For m=0 to 45
//&&&MessageBox("m="&m)
找图并传递图片(物品(m),单价(m),图片位置(m))
//&&MessageBox(sum)
Sub 等待交易
&Delay 2000
&Call FindPic
(448,263,644,331,"C:DNF图片\交易公告.bmp",0.6,intX,intY) //扫描交易框
&Delay 200
&&If intX &
&&MoveTo 523,403
&&LeftClick 2
&&Delay 2000
Sub 等待放入物品
//&MessageBox("等待放入物品")
&&For i=1 to 16
//&&MessageBox("进入循环体")
FindPic(60,160,110,210,"C:DNF图片\物品栏空.bmp",0.6,intx,inty)
//&&&MessageBox("查看交易栏")
&&&If intx
//&&&&MessageBox("交易栏无物品")
//&&&&MessageBox("交易栏有物品")
//&MessageBox(i)
&&Delay 1000
&&KeyPress "esc",1
&&Delay 100
检查交易是否提前结束
Sub 找图并传递图片(物品,单价,图片位置)
&Dim intx,inty
FindPic(72,174,307,259,图片位置,0.6,intx,inty)
MessageBox("找到"&物品)
MessageBox("单价"&单价)
Call 识别数字并计算(物品,单价,intx,inty)
MessageBox("未找到"&物品)
Sub 识别数字并计算(物品,单价,x,y)
bx,by,数量
&&& 数量=""
&&& by=y+1
&&&&&&&&&&&
&&&&&&&&&&&
&&&&&&&&&&&&&&&
IfColor x,y,"FFFFFF",0 Then
&&&&&&&&&&&&&&&&&&&
&&&&&&&&&&&&&&&
&&&&&&&&&&&&&&&&&&&
&&&&&&&&&&&&&&&
&&&&&&&&&&&&&&&
&&&&&&&&&&&&&&&
&&&&&&&&&&&
&&&&&&&&&&&
If co=num0
&&&&&&&&&&&
ElseIf co=num1
&&&&&&&&&&&
ElseIf co=num2
&&&&&&&&&&&
ElseIf co=num3
&&&&&&&&&&&
ElseIf co=num4
&&&&&&&&&&&
ElseIf co=num5
&&&&&&&&&&&
ElseIf co=num6
&&&&&&&&&&&
ElseIf co=num7
&&&&&&&&&&&
ElseIf co=num8
&&&&&&&&&&&
ElseIf co=num9
&&&&&&&&&&&
&&&&&&&&&&&
数量=num&数量
If num="1"
&&&&&&&&&&&
&&&&&&&&&&&
&&& endfor
&&& End If
MessageBox("数量"&数量)
&If flag=1
&&a.write(数量&"个"&物品&"&
sum=sum+单价*数量
s=Plugin.GetSysInfo.GetDateTime()&&&
//&a.writeline("------------------------------")
//&a.writeline("时间："&s)
MessageBox(sum)
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。好评：88.78%
坏评：11.22%
dnf自动收货工具是一款可以帮助地下城与勇士的玩家们自动挂机的一个工具，支持自动轻松收到你需要的货品，不仅节约你的时间，而且收货效率也非常高，喜欢的话就来试试吧！
自代的材料，带*号的都支持跳页 100价格 3次数 2是跳页数要跳页功能后面加-数；
1000|1|lb|0|蓝冰恶；
1000价格；
LB短语只能两个；
dnf自动收货工具的原理就是一个程序比如自动收货;
先设置收的东西单价，程序会自动喊话然后一个物品一个物品交易;
程序比较简单只能设置一种物品，2种以上有BUG，所以设定了仅交易一种;
秒拍卖是什么
秒拍卖就是当一个物品一上架，它的价格低于多少时，直接秒掉，别的玩家就没有机会看到他出现在拍卖。
dnf女***即终于迎来了二次觉醒，女性***炮师在战斗中都表现得非常活跃，战斗力也决不亚于男性***炮师，秒杀和爽快感是女***炮师的代名词，这个职业适合那些喜欢刷图和碾压对手的玩家，那么二觉后几点就显得尤为重要了。...dnf很多玩家喜欢玩女机械，策略和爆发是女机械师的代名词，这个职业适合那些玩弄对手与手掌和不用自己出手就将对方击垮的玩家。二觉的到来让女机械的刷图能力更加进了一步。...dnf女***手二觉终于到来了，华丽和实战一直是女漫游***手的代名词，这个职业适合那些喜欢PK和展示自己能力的玩家，二次觉醒的到了又带来了一波新的加点，一起来看看吧。...目前韩服已经发布了女***手二觉的的消息，那么按照我们国服现在更新的速度估计也快了，小面就先给大家带来女弹药的二觉加点，提前了解下女***的二觉。...dnf国服终于要迎来暗夜使者的第三职业忍者了，忍者的大部分技能百分比火属性或无属性魔法伤害以及少量定值输出，下面新云小编将为大家带来忍者觉醒后毕方之炎的加点方案，希望可以帮到即将要玩新职业的小伙伴们，不足...
下载dnf自动收货工具 8.5.6 绿色免费版
其他下载地址：
软件排行榜
热门关键字