你的位置：
DNF全自动强化有源码
求如何使用
00:42:12 |
来源: 按键精灵资源站
DimEnv 线程A,线程B,线程C
Dim sx(31),sy(31)
Dim s1，s2,dj,ss,bb
Dim Ux, Uy,ckx,cky
VBS dim jiage,x,k,zq,zqs,ryt,hfs,dds
UserVar sj=DropList{&0&:0|&1&:1|&2&:2|&3&:3|&4&:4|&5&:5|&6&:6|&7&:7|&8&:8|&9&:9|&10&:10|&11&:11|&12&:12}=8 &装备强化上架等级&
UserVar sjs=DropList{&1&:1|&2&:2|&3&:3|&4&:4|&5&:5|&6&:6|&7&:7|&8&:8}=4 &强化成功几把后上架&
UserVar qh=12 &强化装备共几个&
UserVar ds=12 &垫刀爆掉或者上架多少时候进行买垫刀&
UserVar cs=9 &强化次数&
UserVar py=1 &装备上架比拍卖场最低价便宜价格&
UserVar qtgs=500 &每次取碳个数&
UserVar dj=0 &初始化当前强化等级消息&
UserVar cpu=0 &优化CPU,0表示关闭 值越大降低CPU效果越好.&
dds = 0//初始化当前垫刀比要求强化装备少数目为0
//------------------------------------------------------------
zqs = 0//初始化邮件取款金额为0
ryt=0//初始化花费炉岩炭数目为0
hfs=0//初始化强化花费金币数目为0
//------------------------------------------------------------
PutAttachment &c:\test&,&*.*&
set ws=createobject(&Wscript.Shell&)
ws.run ®svr32 c:\test\dm.dll /s&
set ws=nothing
set dm = createobject(&dm.dmsoft&)
hwnd = dm.FindWindow(&&,&地下城与勇士&)
dm_ret = dm.BindWindow(hwnd, &dx2&, &windows2&, &dx&, 0)
dm.SetPath &c:\test&
dm.SetDict 0, &dnfszpm.txt&
dm.SetMouseDelay &windows2&,50
dm.SetKeypadDelay &dx&,10
dm.MoveWindow hwnd,0,0
If cpu&0 Then
dm.DownCpu cpu
dm.LockInput 1
//LogStart &C:\a.log&
//BeginThread 线程2
Call 自动收邮件()
dm_ret = dm.FindStr(0,0,,&邮件箱&,&e6c89b-.0,ckX,ckY)
Call 自动收邮件()
If ckX &= 0 and ckY &= 0 Then
Call 自动取碳()
Call 打开强化()
Call 打开强化界面()
dds = 0//初始化当前垫刀比要求强化装备少数目为0
Rem 自动强化
qh = CLng(qh)
If i &qh Then
Goto 进入循环
If i = 1 Then
Ux =(i-1)*30 : Uy = 0
Call 强化过程()
If i=2 Then
Ux =(i-1)*30 : Uy = 0
Call 强化过程()
If i=3 Then
Ux =(i-1)*30 : Uy = 0
Call 强化过程()
If i=4 Then
Ux =(i-1)*30 : Uy = 0
Call 强化过程()
If i=5 Then
Ux =(i-1)*30 : Uy = 0
Call 强化过程()
If i=6 Then
Ux =(i-1)*30 : Uy = 0
Call 强化过程()
If i=7 Then
Ux =(i-1)*30 : Uy = 0
Call 强化过程()
If i=8 Then
Ux =(i-1)*30 : Uy = 0
Call 强化过程()
If i=9 Then
Ux =(i-9)*30 : Uy =30
Call 强化过程()
If i=10 Then
Ux =(i-9)*30 : Uy =30
Call 强化过程()
If i=11 Then
Ux =(i-9)*30 : Uy =30
Call 强化过程()
If i=12 Then
Ux =(i-9)*30 : Uy =30
Call 强化过程()
If i=13 Then
Ux =(i-9)*30 : Uy =30
Call 强化过程()
If i=14 Then
Ux =(i-9)*30 : Uy =30
Call 强化过程()
If i=15 Then
Ux =(i-9)*30 : Uy =30
Call 强化过程()
If i=16 Then
Ux =(i-9)*30 : Uy =30
Call 强化过程()
If i=17 Then
Ux =(i-17)*30 : Uy =60
Call 强化过程()
If i=18 Then
Ux =(i-17)*30 : Uy =60
Call 强化过程()
If i=19 Then
Ux =(i-17)*30 : Uy =60
Call 强化过程()
If i=20 Then
Ux =(i-17)*30 : Uy =60
Call 强化过程()
If i=21 Then
Ux =(i-17)*30 : Uy =60
Call 强化过程()
If i=22 Then
Ux =(i-17)*30 : Uy =60
Call 强化过程()
If i=23 Then
Ux =(i-17)*30 : Uy =60
Call 强化过程()
If i=24 Then
Ux =(i-17)*30 : Uy =60
Call 强化过程()
If i=25 Then
Ux =(i-25)*30 : Uy =90
Call 强化过程()
If i=26 Then
Ux =(i-25)*30 : Uy =90
Call 强化过程()
If i=27 Then
Ux =(i-25)*30 : Uy =90
Call 强化过程()
If i=28 Then
Ux =(i-25)*30 : Uy =90
Call 强化过程()
If i=29 Then
Ux =(i-25)*30 : Uy =90
Call 强化过程()
If i=30 Then
Ux =(i-25)*30 : Uy =90
Call 强化过程()
If i=31 Then
Ux =(i-25)*30 : Uy =90
Call 强化过程()
If i=32 Then
Ux =(i-25)*30 : Uy =90
Call 强化过程()
Rem 报告结果
If len(s2)=0 Then
TracePrint &倒霉！强化失败 破碎或者等级为& & dj
ElseIf s2&s1 Then
TracePrint &O(∩_∩)O！ 强化成功 装备强化为+& & dj
TracePrint &很不幸%&_&%-强化失败 等级降为+& & dj & &(⊙o⊙)&
Delay 1000
ss = CLng(sj)
dj = CLng(dj)
// TracePrint dj
If dj&=ss Then
dm.MoveTo 347+Ux, 234+Uy
dm.LeftDown
dm.MoveTo 347+bb*30,324
dm.MoveTo 191,296
If bb&=sjs Then
Call 自动上架()
Call 自动收邮件()
Call 打开强化界面()
Goto 自动强化
Rem 进入循环
//------------------------------------------------------------
Sub 打开强化界面()
dim dkqh :dkqh=1
dkqh=30*(-1)^dkqh+dkqh
Delay 1000
dm_ret = dm.FindPic(0,0,,&dnftp1.bmp&,&.9,0,intX,intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX,intY+145+dkqh
dm.LeftClick
dm_ret = dm.FindStrFast(intX-145,intY-145,,&强化装备&,&bd9f7e-.9,iX,iY)
If iX &= 0 and iY &= 0 Then
dm.MoveTo iX+22,iY+9
dm.LeftClick
Delay 1000
TracePrint &打开强化界面成功！&
dm.MoveTo 191,296
dm.KeyPress 27
TracePrint &打开界面失败 再次重试！&
Sub 强化过程
TracePrint &进入强化系统&
TracePrint &当前强化装备坐标& & ux & &，& & uy
dm_ret = dm.FindColor(337+Ux,224+Uy,357+Ux,244+Uy,&8c63e6-.0,0,intX,intY)
If dm_ret= 0 Then
TracePrint &当前栏无道具&
If dds&ds Then
Goto 自动强化
Call 自动买垫刀()
Call 打开强化界面()
Goto 自动强化
dm.MoveTo 347+Ux, 234+Uy
dm.LeftDown
dm.MoveTo 191,296
s1 = dm.Ocr(269,153,382,187,&ffffff-.0)
If s2&=7 Then
sx(a)=ux:sy(a)=uy
TracePrint &确认道具进行强化 当前装备强化等级+& & s1
dm.KeyPress 13
s3 = dm.Ocr(231,205,403,276,&ffffff-.0)
If s3=&材料不足& Then
dm.KeyPress 27
Call 自动取碳()
Call 打开强化界面()
// Goto 自动强化
If s1=&& Then
ryt = ryt+1
hfs=660+hfs
TracePrint ryt & &,& & hfs & &,& & hfs+ryt*160
ryt = s1 + ryt+1
hfs=660+hfs
TracePrint ryt & &,& & hfs & &,& & hfs+ryt*160
Call 检测弹出公告()
Sub 自动取碳()
TracePrint &进入自动取碳系统&
If ckX &= 0 and ckY &= 0 Then
Goto 自动取碳线路2
Delay 1000
dm_ret = dm.FindPic(0,0,,&dnftp1.bmp&,&.9,0,iqX,iqY)
dm.MoveTo iqX+100,iqY+300
dm.RightClick
Delay 1485
dm.KeyDown 39
Delay 6400
dm.KeyUp 39
dm.KeyDown 38
delay 1362
dm.KeyUp 38
delay 1000
dm_ret = dm.FindPic(0,0,,&dnftp2.bmp&,&.9,0,iqX,iqY)
If iqX &= 0 and iqY &= 0 Then
dm.MoveTo iqX,iqY+160
dm.RightClick
Delay 1600
Rem 自动取碳线路2
dm_ret = dm.FindStr(0,0,,&邮件箱&,&e6c89b-.0,intX,intY)
If intX &= 0 and intY &= 0 Then
TracePrint &正在打开仓库界面！请稍候...&
dm.MoveTo intX-377,intY+105
dm.LeftClick
TracePrint &打开仓库界面成功！&
dm.MoveTo 447,202
dm.LeftClick
dm_ret = dm.FindColor(41, 190, 308, 374, &bd94bd-4ef-000000|dea463-000000&, 1.0, 0, ntX, ntY)
dm_ret = dm.FindColor(331,215,580,343,&bd94bd-4ef-000000|dea463-.0,0,itX,itY)
If itX &= 0 and itY &= 0 Then
dm.MoveTo itX,itY
dm.LeftDown
dm.MoveTo ntX, ntY
dm.KeyPress 13
dm.MoveTo ntX, ntY
dm.LeftDown
dm.MoveTo itX,itY
dm.KeyPress 8
For len(qtgs)
VBS kk=asc(mid(qtgs,xx,1))
dm.KeyPress kk
VBS xx=xx+1
dm.KeyPress 13
dm.KeyPress 27
dm.KeyDown 38
dm.Keyup 38
dm.KeyDown 40
delay 1500
dm.KeyUp 40
dm.KeyDown 37
delay 6400
dm.KeyUp 37
dm.KeyDown 38
dm.KeyUp 38
Delay 1000
dm_ret = dm.FindPic(0,0,,&dnftp1.bmp&,&.9,0,eX,eY)
If eX &= 0 and eY &= 0 Then
dm.MoveTo eX+72,eY+194
dm.RightClick
Delay 1460
Sub 自动买垫刀()
TracePrint &进入自动***系统&
dm.KeyPress 27
//---------------------------------------------------------------------------
Delay 1000
dm_ret = dm.FindPic(0,0,,&dnftp1.bmp&,&.9,0,iqX,iqY)
dm.MoveTo iqX+100,iqY+300
dm.RightClick
Delay 1485
dm.KeyDown 37
Delay 3334
dm.KeyUp 37
dm.KeyDown 40
Delay 2874
dm.KeyUp 40
dm.KeyDown 39
Delay 15536
dm.KeyUp 39
Delay 1153
dm.KeyDown 38
dm.KeyUp 38
Delay 2500
dm_ret = dm.FindPic(0,0,,&dnftp3.bmp&,&.9,0,intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX, intY + 185
dm.LeftClick
Delay 1500
dm_ret = dm.FindStr(intX-145,intY-145,,&物品店&,&bd9f7e-.0,iX,iY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo iX+20, iY + 9
dm.LeftClick
dm.MoveTo 93,265
dm.LeftClick
dm.KeyPress 13
dm.KeyPress 27
Delay 1538
dm.KeyDown 37
Delay 15536
dm.KeyUp 37
Delay 1179
dm.KeyDown 38
Delay 2874
dm.KeyUp 38
dm.KeyDown 39
Delay 3395
dm.KeyUp 39
Delay 2176
dm.KeyDown 38
dm.KeyUp 38
Sub 检测弹出公告()
dm_ret = dm.FindStr(270,128,373,230,&公告&,&ffffff-.0,intX,intY)
If intX &= 0 and intY &= 0 Then
s2 = dm.Ocr(221,225,432,254, &ffffff-000000&, 1.0)
dm.KeyPress 13
Goto 报告结果
Sub 自动上架
TracePrint &进入自动上架系统&
dm.KeyPress 66
Delay 2100
dm_ret = dm.FindStr(207,5,479,408,&(B&,&ffffff-.0,intX,intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX,intY
Delay 2896
dm.LeftDown
dm.MoveTo 346,51
dm.MoveTo 127, 154
Delay 2896
dm.LeftClick
dm.MoveTo 103, 186
Delay 1710
dm.LeftClick
dm.MoveTo 123, 191
dm.LeftClick
dm.MoveTo 116, 223
Delay 1367
dm.LeftClick
dm.MoveTo 124, 222
Delay 1078
dm.LeftDown
dm.MoveTo 124, 223
dm.MoveTo 108, 269
Delay 2036
dm.LeftClick
'==========以上是录制的内容==========
'==========以下是限定装备等级的内容==========
dm.MoveTo 272, 106
Delay 1833
dm.LeftClick
Delay 1176
dm.KeyDown 51
dm.KeyUp 51
'==========以上是限定装备等级的内容==========
'==========以下是按键精灵录制的内容==========
dm.MoveTo 405, 104
Delay 2569
dm.LeftClick
Delay 1932
'上架装备强化等级的内容==========
For len(sj)
VBS k=asc(mid(sj,x,1))
dm.KeyPress k
'上架装备强化等级的内容==========
dm.KeyPress 13
Delay 1859
dm.MoveTo 547, 134
Delay 2427
dm.LeftClick
'==========以上是按键精灵录制的内容==========
dm.MoveTo 319,57
' ==========以下是识别价格的内容==========
jiage = dm.Ocr(468,144,612,163,&ffb100-.0)
//测试 msgbox &拍卖场最低价格& & jiage
jiage = CLng(jiage)
TracePrint jiage
jiage = jiage-py
TracePrint jiage
' ==========以上是识别价格的内容==========
'==========以下是按键精灵录制的内容==========
dm.MoveTo 109, 382
Delay 1217
dm.LeftClick
'==========待出售装备位置==========
dm.MoveTo 347+q*30,324
// dm.MoveTo 347+Ux, 234+Uy
//dm.MoveTo 344, 228
'==========待出售装备位置==========
Delay 1593
dm.LeftDown
dm.MoveTo 74, 206
Delay 1743
dm.MoveTo 193, 287
Delay 2693
dm.LeftClick
Delay 2381
dm.KeyPress 8
Delay 2381
'==========以上是按键精灵录制的内容==========
For len(jiage)
VBS k=asc(mid(jiage,x,1))
dm.KeyPress k
dm.KeyPress 13
Delay 1200
dm.KeyPress 13
dm.KeyPress 27
Delay 1243
Sub 自动收邮件()
TracePrint &进入自动收邮件系统&
dm_ret = dm.CmpColor(340,424,&3d&,0.9)
If dm_ret = 0 Then
dm.MoveTo 340,427
dm.LeftClick
zq = dm.OcrEx(81,126,295,161,&d3c593-.0)
TracePrint zq
If zq=&& Then
zq = split(zq,&|&)
zqlen = len(zq(0))
TracePrint zq(0)
If zqlen&0 Then
zqs=zqs+zq(0)-10000
ss = split(zq(1),&,&)
TracePrint zq1 & &,& & zq2
dm.MoveTo zq1,zq2
dm.LeftClick
dm.MoveTo 389, 271
dm.LeftClick
dm.KeyPress 13
dm.MoveTo 332,303
dm.LeftClick
dm.KeyPress 27
Sub 线程2()
set dm2 = createobject(&dm.dmsoft&) //创建对象“bb”，这个跟上面的“aa”一样，相当于名字，可以随便，最好每个线程不一样，便于区分，注意看下面的在函数里的应用
gb2 =dm2.FindWindow(&&,&地下城与勇士&)
dm2_ret = dm2.BindWindow(gb2, &dx2&, &windows&, &dx&, 0)
Delay 30000
Delay 300000
// dm2_ret = dm2.UseDict(1)
// dm2_ret = dm2.FindStr(58,395,106,416,&附近&,&eeddaa-.0,intX,intY)
// dm2_ret = dm2.UseDict(0)
If tt= tt2 Then
TracePrint &取消聊天框&
dm.KeyPress 27
RestartScript //重新启动脚本运行
Delay 30000
dm2_ret = dm2.UnBindWindow()
Sub OnScriptExit()
dm.LockInput 0
// LogStop
TracePrint &恭喜你啦！ 本次赚钱总值 & & zqs
TracePrint &感谢使用！ 本次花费金币数目 & & hfs
TracePrint &感谢使用！ 本次花费炉岩炭数目 & & ryt
dm_ret = dm.UnBindWindow()当下软件园 / 汇聚当下最新最酷的软件下载站！
热门搜索：
您的位置：
> DNF自动刷图脚本 V2015.5 绿色免费版
DNF自动刷图脚本 V2015.5 绿色免费版 / dnf自动刷图脚本下载
网友评分：10分
　　DNF自动刷图脚本是一款利用按键精灵开发的一款DNF全自动刷图软件，软件使用非常方便，几乎无需操心，甚至连垃圾装备都能自动卖出，让玩家大大解放了劳动力。
　　DNF自动刷图脚本刷图效率高速度快，一张图只需要3分钟，一个号70分钟即可完成全天任务。软件支持虚拟机挂机、VPS挂机宝挂机等多种环境。
软件特别说明
洛克王国旋风辅助是一款全新款的洛克王国多功能游戏辅助工具。 、洛克王国旋风辅助程序可以再神秘场景植物园一键刷历练值、自动捕捉宠物、捕捉稀有宠物增加宠物医院回血回蓝方式。 根据辅助功能类目的不同，分为宠物专区、任务专区、一键专区、以及娱乐专区和实用功能几个部分。
QQ炫舞记忆助手是一款qq炫舞辅助器外挂。QQ炫舞记忆助手
特色功能： 1.个性代练2.开启排名开关。3.POL将近1亿分。4.刷转转灭人不是梦想。5.无限刷转转多开排名次 无返回,秒准备秒开始(支持后台)。本当下软件园提供下载的是qq炫舞记忆助手免费高分最新版官方下载的最新版的qq炫舞辅助外挂程序。
造梦西游3修改器之和谐版是一款将造梦3本地版客户端合二为一的，强强联手的制霸无敌变态修改器。友情提示：造梦西游3无敌版勿过度修改，以免损害游戏趣味！
ce修改器下载是一款内存修改编辑工具,ce修改器它允许你修改你的游戏,所以你将总是赢.它包括16进制编辑,反汇编程序,内存查找工具.
侠盗飞车罪恶都市vc修改器是一款侠盗飞车***器程序！侠盗飞车罪恶都市vc修改器是最全的侠盗飞车修改器，看了这个修改器的***按键，就知道它一定是最全的了，一般修改器就那么几个按键或者组合，这个***键组合在50个以上。还自带有游戏攻略，作者真是考虑周全啊。
其他版本下载
dnf自动刷图脚本下载|DNF自动刷图脚本 V2015.5 绿色免费版
Copyright (C)
.All rights reserved.dnf自动强化脚本下载|dnf自动强化脚本 免费版-游戏工具|零度软件园
零度下载 最安全的值得信赖的绿色软件下载站！
扫码浏览手机端页面
热门搜索：
您的位置： →
dnf自动强化脚本 免费版
网友评分：5.0 分
软件星级：
软件大小：3.6M
软件语言：简体中文
软件分类：游戏工具
软件授权：免费软件
更新时间：
软件类别：国产软件
软件官网：/
应用平台：WinAll
软件标签：
dnf自动强化脚本 免费版
高速下载通道：其它下载通道：
可能感兴趣的软件
（您的评论需要经过审核才能显示）
共0人参与,0条评论
11.5M / 简体中文 / 10.064.8M / 简体中文 / 10.0446KB / 简体中文 / 7.0910KB / 简体中文 / 10.016M / 简体中文 / 7.0285KB / 简体中文 / 10.048.6M / 简体中文 / 7.0
分类下载排行
01GTA5 Open IV 贴图工具 V2.7 免费版01游戏工具 / 1.1M02闪优360手柄模拟器 v3.0.1.2 绿色官方版02游戏工具 / 1.5M03dnfwpe封包 免费版03游戏工具 / 3.4M04任意游加速器 V8.0.2.2 破解版04游戏工具 / 2.1M05DotA OMG地图 v6.74c AI 0.7 中文版05游戏工具 / 6.9M06腾讯游戏平台lol助手 v1.6.4.1902 官方版06游戏工具 / 66.2M07饥荒无敌模式mod v0.42 免费版07游戏工具 / 16KB08vivo游戏中心电脑版 v2.2.2.25 官方版08游戏工具 / 35.2M09金星棋牌游戏大厅 v1.0.8 官网最新版09游戏工具 / 26.4M10帝国时代4:国家的崛起修改器 +12 绿色版10游戏工具 / 3.9M
01dnfwpe封包 免费版01游戏工具 / 3.4M02饥荒无敌模式mod v0.42 免费版02游戏工具 / 16KB03tgp饥荒联机版控制台***器 最新版03游戏工具 / 3.6M04我的世界矿物追踪mod 1.6.4-1.8 最新免费版04游戏工具 / 102KB05乐逸棋牌游戏平台 v3.0 官方版05游戏工具 / 179.7M06金星棋牌游戏大厅 v1.0.8 官网最新版06游戏工具 / 26.4M07赤峰同城游戏大厅 免费版07游戏工具 / 4.7M08dnf时装模拟器 v2.0 免费版08游戏工具 / 6.2M09GTA5 Open IV 贴图工具 V2.7 免费版09游戏工具 / 1.1M10豆客cs1.6对战平台 官方版10游戏工具 / 9.4M
装机必备软件
零度软件 - 所有软件均来自网络如有版权问题请联系我们 - 蜀ICP备 号
Copyright &
online services. All rights reserved.
请简要描述您遇到的错误，我们将尽快予以修订