DNF自动收货免费版[带教程]下载_QQ下载
→ DNF自动收货免费版[带教程]
自动收货免费版[带教程]功能特色使用时，请先看此说明&请记得设置好拼音的输入法，&请看附文件图片，&此脚本启动后，会自动在D盘创建一个图片文件夹，里面存放要找的物品名字图，物品图，，启动后，循环一轮后，要暂停看一下，D盘图片文件夹，里面图和你所找的物品对不对，如果正确就可以放心扫描了，不正确请把图片删除后，点继续，&所在的电脑最好卡的情况少，很卡的话会拖慢扫描速度，和扫描错误，不过扫描错误的物品是不会购买的，，放心使用，&如果扫描装备，那请用同一个角色扫描，如果换一个角色扫描则把D盘图片文件夹里面的装备图片删除即可，&此脚本刚启动会有点慢，因为要判断，请耐心等待，&脚本启动期间，禁止移动鼠标，有急事请先终止，或者暂停！&本文来自小皮游戏论坛:/read-htm-tid-1172469.html
软件引用地址：
在下列搜索引擎中搜索“DNF自动收货免费版[带教程]”的相关信息：
你可能还喜欢以下软件
·上一QD：
·下一QD：
* 为了达到最快的下载速度，推荐使用或下载本站软件。
* 请一定升级到最新版才能正常解压本站提供的软件!
* 如果您发现下载链接错误，请点击谢谢！
* 站内提供的所有软件包含破解及注册码均是由网上搜集，若侵犯了你的版权利益，通知我们!你的位置：
我找到一个DNF自动收货源码
23:51:53 |
来源: 按键精灵资源站
本帖最后由 l 于
13:10 编辑
我找到一个DNF自动收货源码！把他生成小精灵怎么就用不了求解
'wlsj=Lib.网络.获取网络时间()
'Delay 2000
'If wlsj&cdate(&&)
' Delay 100
'MsgBox &使用期限已到,请从任务管理器关闭程序&
'EndScript
//使用期限检测脚本
DimEnv shuliang,time1,time2,time3,time4,ktjc,feyjy
Dim hwnd,hwnd1,hwnd2
DimEnv kaiguan
hwnd=Plugin.Window.MousePoint
x=Plugin.Window.Move(hwnd,0,0)
'Delay 1000
time1=plugin.sys.GetTime //获取脚本运行时系统初始时间
'set ws=createobject(&wscript.shell&)
'ws.run &c:\testfile.txt&,5,ture
'Delay 500
'hwnd2=Plugin.Window.Foreground
'y=Plugin.Window.Move(hwnd2,0,480)
gosub ***自动喊话
Rem kaitou
Sub ***自动喊话 //***喊话脚本
//下面这句在屏幕区域范围内查找16进制颜色(&0000FF&)的数量
UserVar fdys=15 &防掉线设置&
MoveTo 603,439
gosub 检查是否有交易
time3=plugin.sys.GetTime
If int(time3-time1)&fdys*60*1000 then //15分钟后开启防掉线，只支持***的时候
gosub 防掉线
KeyPressS &Enter&, 1
NUM =plugin.Color.CountColor(60, 398,92, 407, &AADDEE&,1) //查找喊话窗口是否存在
If NUM&0 then
KeyPressS &Z&, 2
KeyPressS &1&, 1
KeyPressS &Enter&, 1
delay 1000
gosub 等待交易 //跳到等待交易
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
FindPic 0,0,,&Attachment:\11.bmp&,0.9,intX,intY
If intX & 0 And intY & 0 Then
gosub 等待放入物品
gosub ***自动喊话
gosub ***自动喊话
Sub 等待放入物品
UserVar ddfw=10000 &等待放入物品延迟时间（单位：毫秒）注：1000毫秒=1秒&
Delay ddfw
Do Until i&8
FindPic 71,173,306,198,&Attachment:\交易栏无物品图.bmp&,0.9,intX,intY
If intX & 0 And intY & 0 Then
gosub 检查并交易
KeyPress &esc&,1
gosub ***自动喊话
Sub 输入金钱
Dim qian,x,cishu
Rem jiaqian
qian=jiage(100)
If qian&&0 then
'MsgBox &总价钱为：&&qian
MoveTo 197,301
LeftClick 1
KeyPress &BackSpace&, 15 //金钱输入清零
cishu=len(qian)
shu=left(qian,1) //取qian的左起第一个数字
qian=right(qian,cishu-x) //取qian的右起第I个数字
KeyPress shu,1
If i&30 //30秒内金钱为0则跳转喊话
Goto jiaqian
Delay 1000
KeyPress &esc&,1
gosub ***自动喊话
LeftClick 1
gosub 检查并交易
Sub 检查并交易
Rem jiancha
gosub 检查交易是否提前结束
//检查己方输入的金钱
Dim no(9) //数字特征码
no(0)=&1110&
no(1)=&0111& //自取特征码，DNF己方金钱框专用
no(2)=&1111&
no(3)=&1110&
no(4)=&1000&
no(5)=&1110&
no(6)=&1110&
no(7)=&0100&
no(8)=&1110&
no(9)=&1110&
Dim colo(3) //颜色十六进制值 10月7日版
colo(1)=&008CFF&
colo(0)=&0050FF&
colo(2)=&00F0FF&
MoveTo 603,439
rightx=296 //初始x坐标
righty=299 //初始Y坐标
For 3 //千万位数字扫描
rightx=296-21*y
for 3 //百位数字扫描
For 8 //单个数字扫描
rx=rightx-jici*6 //后退6个像素点
ifcolor rx,ry,colo(y),0
number=number&nob
If number=no(i)
jine=i&jine
jici=jici+1
ry=righty //循环一次结束后初始化ry坐标
Next //修改初始化值
'MsgBox jine
feyjy=feyjy+1
If feyjy&120 Then //若一段时间内没有成功交易则取消交易，慎重！！！
KeyPress &Esc&,1
gosub ***自动喊话
If int(jine)=jiage(1000) Then
'MsgBox &价格正确可以进行下一步交易&
ifcolor 167,269,&44EEFF&,0 //检查对方是否先点击了交易
MoveTo 161,426 //交易逐步点击
LeftClick 2
LeftClick 2
Goto jiancha
'MsgBox &价格不符合&
gosub 输入金钱
Gosub 检查并交易
Sub 检查交易是否提前结束
FindPic 0,0,,&Attachment:\11.bmp&,0.9,intX,intY
If intX & 0 And intY & 0 Then
Delay 500 //2分钟内未交易完成则关闭交易框
gosub ***自动喊话
Goto jiewei
rem jiewei
Sub 检查是否有交易
FindPic 0,0,,&Attachment:\11.bmp&,0.9,intX,intY
If intX & 0 And intY & 0 Then
gosub 检查并交易
' Goto jiewei
' rem jiewei
Sub 防掉线
MoveTo 33,439
KeyPress &w&, 1
KeyPress &q&, 1
MoveTo 89,202
LeftClick 1
Delay 1000
IfColor 143,437,&6DA2B9&,1 then
//接受任务
Delay 1000
MoveTo 143,437
LeftClick 1
KeyPress &Esc&, 1
MoveTo 419,405
LeftClick 2
Delay 1000
//放弃任务
MoveTo 419,402
LeftClick 1
MoveTo 336,407
LeftClick 1
KeyPress &Esc&, 1
Sub 输出信息
Call Plugin.Bkgnd.SendString(Hwnd2, &内容&)
Plugin.Window.Active hwnd2
KeyPress &enter&,1
Function xiejiage(geshu,jq,wupin)
Set fso = CreateObject(&Scripting.FileSystemObject&)
b=Plugin.File.ExistFile(&c:\testfile.txt&)
If b=0 Then
Set c= fso.CreateTextFile(&c:\testfile.txt&)
set a=fso.opentextfile(&c:\testfile.txt&,8)
set a=fso.opentextfile(&c:\testfile.txt&,8)
a.writeline(now&&————&&&第&&geshu&&格单价:&&wupin&&价钱&&jq)
End Function
Function jiage(yanshi)
Delay yanshi
Dim ss(100)
ss(0)=&3131CE& //强韧
ss(1)=&52423A& //威严
ss(2)=&84C6C6& //狂乱
ss(3)=&6B6B63& //灵魂
ss(4)=&528429& //灾难
ss(5)=&4A4A5B& //眼睛
ss(6)=&D69473& //小篮
ss(7)=&848484& //无色
ss(8)=&AD73D6& //碳 175,191
ss(9)=&BDB5C6& // 蓝冰
ss(10)=&73194A& //小黑
ss(11)=&7B7BEF& //小红
ss(12)=&B5B5B5& //小白
//这里使用查找颜色来获取物品 不知道在别的电脑上是否能使用 反正在我自己的电脑上是可以用的 请教一下
uservar sss0= 23000 &强韧恶魔的邀请函&
uservar sss1= 23000 &威严&
uservar sss2= 23000 &狂乱&
uservar sss3= 3800 &灵魂&
uservar sss4= 3200 &灾难&
uservar sss5= 25000 &眼睛&
uservar sss6= 100 &小篮&
uservar sss7= 50 &无色&
uservar sss8= 50 &碳&
uservar sss9= 9000 &蓝冰&
uservar sss11= 250 &小红&
uservar sss12= 80 &小白&
uservar sss10= 120 &小黑&
Dim n,m,i,j,qian
kx=85 //第一格物品x取色点
ky=191 //第一个物品y取色点
//扫描第一行物品，共8个物品格
// 单格物品扫描
IfColor ux,ky,ss(n),0
ElseIf n=1
ElseIf n=2
ElseIf n=3
ElseIf n=4
ElseIf n=5
ElseIf n=6
ElseIf n=7
ElseIf n=8
ElseIf n=9
ElseIf n=10
ElseIf n=11
ElseIf n=12
jiag=wupin(geshu,sss) //获取物品价钱
'Call xiejiage(geshu,jiag,sss)
'BeginThread 输出信息
qian=qian+jiag //计算总价格
jiag=0 //价格清零
ux=ux+30 //x坐标加30，扫描下一个框内物品
geshu=geshu+1 //个数循环
jiage=qian //参数传递
End Function
Function wupin(GS,JQ) //计算物品总价格 LX 查找类型
//代码太他妈有才了
//此代码论坛中有，个人觉得很好。
dim a(100)
dim b(100)
dim q(100)
number0=&Attachment:\0.bmp&
number1=&Attachment:\1.bmp&
number2=&Attachment:\2.bmp&
number3=&Attachment:\3.bmp&
number4=&Attachment:\4.bmp&
number5=&Attachment:\5.bmp&
number6=&Attachment:\6.bmp&
number7=&Attachment:\7.bmp&
number8=&Attachment:\8.bmp&
number9=&Attachment:\9.bmp&
leftx=72+(GS-1)*30 //132
upy=174 //155
rightx=99+(GS-1)*30 //162
downy=185 //235
Dim n,m,p,i,j
While n&&m
FindPic leftx,upy,rightx,downy,number0,Similar,fx,fy
If fx&=0 and fy&=0
leftx=fx+1
While n&&m
FindPic leftx,upy,rightx,downy,number1,Similar,fx,fy
If fx&=0 and fy&=0
leftx=fx+1
While n&&m
FindPic leftx,upy,rightx,downy,number2,Similar,fx,fy
If fx&=0 and fy&=0
leftx=fx+1
While n&&m
FindPic leftx,upy,rightx,downy,number3,Similar,fx,fy
If fx&=0 and fy&=0
leftx=fx+1
While n&&m
FindPic leftx,upy,rightx,downy,number4,Similar,fx,fy
If fx&=0 and fy&=0
leftx=fx+1
While n&&m
FindPic leftx,upy,rightx,downy,number5,Similar,fx,fy
If fx&=0 and fy&=0
leftx=fx+1
While n&&m
FindPic leftx,upy,rightx,downy,number6,Similar,fx,fy
If fx&=0 and fy&=0
leftx=fx+1
While n&&m
FindPic leftx,upy,rightx,downy,number7,Similar,fx,fy
If fx&=0 and fy&=0
leftx=fx+1
While n&&m
FindPic leftx,upy,rightx,downy,number8,Similar,fx,fy
If fx&=0 and fy&=0
leftx=fx+1
While n&&m
FindPic leftx,upy,rightx,downy,number9,Similar,fx,fy
If fx&=0 and fy&=0
leftx=fx+1
While p&n+2
While i&n+2
//读取到有数字返回值为 num， 没读取到有数字返回值为0
If n=0 then
num=num+b(q(g))*10^(g-1)
'jiaqian(cishu)=num //这些都是测试时用的，可以不必理
'lx=leftx+30
'leftx=leftx+30
'rightx=rightx+30
'cishu=cishu+1
wupin=JQ*num //改初始坐标
End Function
！！求解！！！！！后使用快捷导航没有帐号？
查看: 23137|回复: 335
新人欢迎积分0 阅读权限50积分1840精华0UID7701500帖子金钱16939 威望0
Lv.5, 积分 1840, 距离下一级还需 660 积分
UID7701500帖子威望0 多玩草210 草
DNF自动喊话收货及拍卖行自动扫货工具4 Q& y- A1 Z3 `( e. y4 T
给大家带来了DNF自动喊话收货，还有拍卖行自动扫货脚本，按键精灵，绝对无毒
再带上视频地址
第一次发这样的帖子，好复杂，希望不会出错
只是赚点金币玩，可以下下来的，希望你喜欢
[attach]6195438[/attach]
[attach]6195439[/attach], [# o5 U&&O7 N* W/ o( U" w
(1.4 MB, 下载次数: 3067, 售价: 10 金钱)
21:12:04 上传
下载次数: 3067
售价: 10 金钱 &
下载积分: 金钱 -5
(左键点击下载)
(1.38 MB, 下载次数: 2420, 售价: 10 金钱)
21:13:09 上传
下载次数: 2420
售价: 10 金钱 &
下载积分: 金钱 -5
(左键点击下载)
% N5 p& A" [8 A; E: V" r
2 `: F+ j* H" C4 u- D
[ 本帖最后由 wtj126wtj 于
22:00 编辑 ]
新人欢迎积分2 阅读权限90积分20208精华0UID3314989帖子金钱17919 威望2
Lv.9, 积分 20208, 距离下一级还需 14792 积分
UID3314989帖子威望2 多玩草21 草
要下的自己去按键精灵论坛网站 免费脚本区下就是了。
新人欢迎积分1 阅读权限80积分14005精华0UID7324638帖子金钱5116 威望-3
因包含敏感字符被屏蔽
Lv.8, 积分 14005, 距离下一级还需 5995 积分
UID7324638帖子威望-3 多玩草174 草
支持，但不下载
新人欢迎积分1 阅读权限40积分473精华0UID7380498帖子金钱71 威望0
Lv.4, 积分 473, 距离下一级还需 527 积分
UID7380498帖子威望0 多玩草10 草
收费的..........................
新人欢迎积分0 阅读权限40积分341精华0UID帖子金钱121 威望0
Lv.4, 积分 341, 距离下一级还需 659 积分
UID帖子威望0 多玩草10 草
。。。。。。。。。。。。。。。。。。。。。。
天空的韵琴者
新人欢迎积分1 阅读权限80积分14066精华0UID5209441帖子金钱26986 威望3
Lv.8, 积分 14066, 距离下一级还需 5934 积分
UID5209441帖子威望3 多玩草829 草
需要我来当小白鼠么
老板~给我来一份西红柿炒番茄~~& &&&阿咧？没有么？&&那土豆炒马铃薯有没有呢？老板~~
就是这样喵
新人欢迎积分0 阅读权限1积分15852精华0UID4530185帖子金钱24561 威望-1
头像被屏蔽
UID4530185帖子威望-1 多玩草1164 草
新人欢迎积分0 阅读权限90积分34048精华0UID3950643帖子金钱90642 威望13
尘归尘，土归土，及尽繁华，不过一掬细沙；天上天，人上人，待结
Lv.9, 积分 34048, 距离下一级还需 952 积分
UID3950643帖子威望13 多玩草730 草
随便留个脚印，以后再看
哥走的是猥琐路线,不要崇拜哥~~
新人欢迎积分1 阅读权限50积分1949精华0UID7807139帖子金钱1532 威望0
MLGB..哥的头像开分身了... ...
Lv.5, 积分 1949, 距离下一级还需 551 积分
UID7807139帖子威望0 多玩草10 草
看看。。。
俄是一只邪恶的坏蛋蛋。 ...
新人欢迎积分0 阅读权限70积分7677精华0UID5230840帖子金钱7141 威望10
什么什么乱七八糟的.
Lv.7, 积分 7677, 距离下一级还需 2323 积分
UID5230840帖子威望10 多玩草10 草
新人欢迎积分0 阅读权限60积分4280精华0UID7432437帖子金钱1371 威望1
Lv.6, 积分 4280, 距离下一级还需 720 积分
UID7432437帖子威望1 多玩草30 草
先看看再说
夏日里的忧伤
新人欢迎积分5 阅读权限70积分5093精华3UID1505142帖子金钱2701 威望3
那个传说中的骂神回归了 ...
Lv.7, 积分 5093, 距离下一级还需 4907 积分
UID1505142帖子威望3 多玩草537 草
新人欢迎积分0 阅读权限60积分4280精华0UID7432437帖子金钱1371 威望1
Lv.6, 积分 4280, 距离下一级还需 720 积分
UID7432437帖子威望1 多玩草30 草
小白鼠归来，大家别下了，是收费软件，只有个试用码 过了时间就用不了
新人欢迎积分0 阅读权限50积分1840精华0UID7701500帖子金钱16939 威望0
Lv.5, 积分 1840, 距离下一级还需 660 积分
UID7701500帖子威望0 多玩草210 草
回复 13# 的帖子
不是吧，按键精灵，哪来的收费限制，我没见到过
新人欢迎积分0 阅读权限50积分1500精华0UID5783562帖子金钱1191 威望0
Lv.5, 积分 1500, 距离下一级还需 1000 积分
UID5783562帖子威望0 多玩草10 草
小白鼠何在 安全不
LOL战斗力9000以上
活动奖励勋章
活动奖励勋章
元宝专属一阶勋章。已绝版
需要金钱：1100
手机盒子客户端点击或扫描下载
Powered by