声明:1、本版本纯属个人学习使用,一切法律责任与本人无关。
2、该测试版无任何商业价值,仅供大家学习交流使用。
3、该测试版功能单一,如您想拥有更强大的功能请自己去购买收费版本。
4、该测试版本有很多要求限制,下面会讲到。嫌烦的就别用了。
5、本测试版前台运行,运行后别动DNF窗口了,也别用鼠标点其他东西,键盘也别
使用哦。
一、准备工作
准备软件:按键精灵9、大漠插件3.1233之前版本(之后版本要收费!)
按键精灵9到按键的官网下载即可;
大漠插件在按键精灵官方论坛大漠插件专区有下载
http://bbs.anjian.com/forumdisplay.php?fid=140
二、大漠插件准备工作
将下载好的大漠插件解压,在其目录下新建【dm_soft.txt】
将下面的代码贴到【dm_soft.txt】中
========下面是字库代码============
7E1022044087E0$0$0.0.18$8
7C1042083E0$0$0.0.14$7
411FE0040$1$0.0.11$8
401FC0$1$0.0.8$7
6310A224488610$2$0.0.16$8
46114248310$2$0.0.12$7
421022444886E0$3$0.0.15$8
44104248360$3$0.0.11$7
080681107F8050$4$0.0.16$8
180D03F8040$4$0.0.13$7
F21222444888E0$5$0.0.18$8
F41442884E0$5$0.0.15$7
7E1222446880E0$6$0.0.19$8
7C124248260$6$0.0.14$7
C010027C700800$7$0.0.13$8
8011C2C0600$7$0.0.10$7
6E1222444886E0$8$0.0.19$8
6C124248360$8$0.0.14$7
701162244487E0$9$0.0.19$8
641242483E0$9$0.0.14$7
00200400801003FFC20841082104008$上$0.0.25$11
080100401004013FD00100100100200$个$0.0.19$11
44290540B7241581105372502905008$交$0.0.38$11
002008024188C0E0030018008008008$入$0.0.19$11
022444895146307C08C314A24444088$关$0.0.37$11
112AA54CACA555E317E28A514AA4648$卖$0.0.53$11
10C213FE088090613A2129212404FF0$均$0.0.43$11
400BF940280500FFE404849053F8$币$0.0.41$11
041082904E0841FFE10460B41080100$平$0.0.35$11
0027F892122278407F910CA24D84838$成$0.0.46$11
222447FF920$扌$0.0.19$11
222487FF9407D2AB4157FA55AAA5F08$搜$0.0.61$11
08410BFF552AA95FEAAD52FAC164208$最$0.0.58$11
1404937E2A4548BF152AA55FD891120$每$0.0.53$11
3FE44B891122247FC$白$0.0.32$11
182A25552AC5D3EFD542CC534A24600$索$0.0.53$11
1B45AB25095404835F8A0A589DE9008$级$0.0.49$11
1204833F88090120640C819FF200400$行$0.0.37$11
0811F901084979292524BC903007FF8$词$0.0.48$11
0811FD01004540AFD557EA554AFD500$请$0.0.52$11
2C9E90BF92817E4A95FC805784045F8$输$0.0.57$11
0821244694B4931FD2494B11A124208$金$0.0.44$11
321BFD4925978C9E954FFF552FA4448$键$0.0.65$11
8011C2C0620040$7$0.0.12$7
=========上面是字库代码======================
然后保存,运行:【注册大漠插件到系统.bat】
好了,准备工作完成了!!
三、按键精灵[DNF秒拍卖]代码制作
1、安装好按键精灵9
2、【新建】---【源文件】---复制粘贴源代码
3、下面的源代码:
说明:这里的oh,oj,oi什么的需要你们自己在输入法里设置
比如我用的QQ输入法纯净版,在【设置】- - -【高级设置】- - -【自定义短语设置】
如果你要添加其他单词就在这里【添加】即可,比如我在添加个白色小晶块:
这里特定的两个字母最好别和其他词组混了。
这样你敲ok时的第一个词就是白色小晶块了。
好了,再在按键精灵的这里添加用户自定义变量【下图】
========下面的源代码=======================
UserVar oh = 250 "红色小晶块价格" //这里250是你的买进的价格,做成小精灵可以自己改
UserVar oj = 250 "蓝色小晶块价格"
UserVar oi = 250 "红色小晶块价格"
UserVar cs=10 "扫描次数" //这个是每个物品扫描的次数
Sub 左键单击(x1, y1)
MoveTo x1, y1
Delay 100
LeftClick 1
Delay 100
End Sub
sub 找游戏窗口()
dnf= Plugin.Window.Find("地下城与勇士", "地下城与勇士")
Call Plugin.Window.Move(dnf, 0, 0)
Call Plugin.Window.Active(dnf)
Delay 1000
If dnf > 0 Then
Call Plugin.Msg.Tips("游戏窗口已经找到")
Else
Call Plugin.Msg.Tips("游戏窗口未找到,请确认已经打开游戏")
End If
End Sub
sub 打开拍卖行()
KeyPress "Esc", 1
Delay 300
KeyPress "B", 1
Delay 300
IfColor 392, 34, "FFFFFF", 0 Then
Call Plugin.Msg.Tips("打开拍卖行了")
End If
End Sub
Sub sr(j1, j2, jg)
If jg > 0 Then
Call 左键单击(640, 90)
Delay 500
Call 左键单击(200,90)
Delay 500
Call Plugin.Msg.Tips(jg)
Delay 500
KeyPress j1,1
Delay 50
KeyPress j2,1
delay 50
KeyPress "Space", 1
Delay 50
KeyPress "Enter", 1
Delay 50
For cs
Delay 100
set dm = createobject("dm.dmsoft")
base_path = dm.GetBasePath()
dm_ret = dm.SetPath(base_path)
dm_ret = dm.SetDict(0,"dm_soft.txt")
s = dm.Ocr(534,132,599,140,"ff3232-000000|ffb100-000000",1.0)
s=s+0
If s > 0 Then
j= dm.Ocr(169, 131, 195, 140, "ffffff-000000", 0.9)
j=j+0
If j>0 then
dj = s / j
Else
dj = s
End if
Call Plugin.Msg.Tips(dj)
If dj <= jg Then
Call 购买()
End If
End If
KeyPress "Enter", 1
Delay 500
Next
End If
End Sub
Sub 购买()
Delay 100
Call 左键单击(400, 550)
Delay 100
Call 左键单击(500, 135)
Delay 100
KeyPress "Enter", 1
Delay 300
KeyPress "Enter", 1
Delay 300
KeyPress "Enter", 1
Delay 300
Call 左键单击(200, 90)
Delay 50
End Sub
Call 找游戏窗口()
Call 打开拍卖行()
Rem A
Call sr(79, 73, oi)
Call sr(79, 72, oh)
Call sr(79, 74, oj)
Goto A
=========上面是源代码==========
说明:Call sr(79, 73, oi) 这里的第一、二的参数分别是o和i的按键码
你设定了其他字母组合时可以自己用按键精灵查下
这是我做好的小精灵
注意:调试时候出现类型不匹配's' ;但并不影响使用!
你可以使用这些代码来制作按键小精灵来带替你手动去扫材料了,对于做DNF材料商又不想购
买付费软件的手动党同学们用这个是足够了。
http://zhan.renren.com/pudongliang?tagId=149342&from=template&checked=true
按键小精灵DNF秒拍卖行测试版声明:1、本版本纯属个人学习使用,一切法律责任与本人无关。
2、该测试版无任何商业价值,仅供大家学习交流使用。
3、该测试版功能单一,如您想拥有更强大的功能请自己去购买收费版本。
4、该测试版本有很多要求限制,下面会讲到。嫌烦的就别用了。
5、本测试版前台运行,运行后别动DNF窗口了,也别用鼠标点其他东西,键盘也别
使用哦。
6、无后继版本,还是那句话,学习交流使用
一、准备工作
准备软件:按键精灵9、大漠插件3.1233之前版本(之后版本要收费!)
按键精灵9到按键的官网下载即可;
大漠插件在按键精灵官方论坛大漠插件专区有下载
http://bbs.anjian.com/forumdisplay.php?fid=140
二、大漠插件准备工作
将下载好的大漠插件解压,在其目录下新建【dm_soft.txt】
将下面的代码贴到【dm_soft.txt】中
7E1022044087E0$0$0.0.18$8
7C1042083E0$0$0.0.14$7
411FE0040$1$0.0.11$8
401FC0$1$0.0.8$7
6310A224488610$2$0.0.16$8
46114248310$2$0.0.12$7
421022444886E0$3$0.0.15$8
44104248360$3$0.0.11$7
080681107F8050$4$0.0.16$8
180D03F8040$4$0.0.13$7
F21222444888E0$5$0.0.18$8
F41442884E0$5$0.0.15$7
7E1222446880E0$6$0.0.19$8
7C124248260$6$0.0.14$7
C010027C700800$7$0.0.13$8
8011C2C0600$7$0.0.10$7
6E1222444886E0$8$0.0.19$8
6C124248360$8$0.0.14$7
701162244487E0$9$0.0.19$8
641242483E0$9$0.0.14$7
00200400801003FFC20841082104008$上$0.0.25$11
080100401004013FD00100100100200$个$0.0.19$11
44290540B7241581105372502905008$交$0.0.38$11
002008024188C0E0030018008008008$入$0.0.19$11
022444895146307C08C314A24444088$关$0.0.37$11
112AA54CACA555E317E28A514AA4648$卖$0.0.53$11
10C213FE088090613A2129212404FF0$均$0.0.43$11
400BF940280500FFE404849053F8$币$0.0.41$11
041082904E0841FFE10460B41080100$平$0.0.35$11
0027F892122278407F910CA24D84838$成$0.0.46$11
222447FF920$扌$0.0.19$11
222487FF9407D2AB4157FA55AAA5F08$搜$0.0.61$11
08410BFF552AA95FEAAD52FAC164208$最$0.0.58$11
1404937E2A4548BF152AA55FD891120$每$0.0.53$11
3FE44B891122247FC$白$0.0.32$11
182A25552AC5D3EFD542CC534A24600$索$0.0.53$11
1B45AB25095404835F8A0A589DE9008$级$0.0.49$11
1204833F88090120640C819FF200400$行$0.0.37$11
0811F901084979292524BC903007FF8$词$0.0.48$11
0811FD01004540AFD557EA554AFD500$请$0.0.52$11
2C9E90BF92817E4A95FC805784045F8$输$0.0.57$11
0821244694B4931FD2494B11A124208$金$0.0.44$11
321BFD4925978C9E954FFF552FA4448$键$0.0.65$11
8011C2C0620040$7$0.0.12$7
-------------------------说明-----------------------------
这些代码是建立字库生成的,至于如何建字库,本人也在学习当中。
----------------------------------------------------------
然后保存,运行:【注册大漠插件到系统.bat】
好了,准备工作完成了!!
三、按键精灵[DNF秒拍卖]代码制作
在这里我会写详细的代码说明共大家学习交流。
1、安装好按键精灵9
2、新建
3、下面是源代码与代码说明:
【伸手当请不要直接拷贝下面代码,你们对代码的解释格式有些地方是无法运行的】
UserVar t1=100 "扫描等待时间"
UserVar t2=100 "点击延迟"
UserVar t3=200 "输入法按键时间"
UserVar t4=700 "点击搜索等待时间"
UserVar t5=200 "秒物品时间"
UserVar sl=3 "扫描物品数量"
//左键单击函数:鼠标移动到指定坐标进行左键单击动作
Sub 左键单击(x1, y1)
MoveTo x1, y1
Delay t2 //插入的延迟时间,以毫秒计
LeftClick 1
Delay t2
End Sub
//把DNF游戏窗口移动到左上角,游戏窗口大小:800x600
sub 查找dnf窗口()
dnf= Plugin.Window.Find("地下城与勇士", "地下城与勇士") //寻找DNF窗口句柄赋值给dnf
Call Plugin.Window.Move(dnf, 0, 0)//将窗口移动到左上角
Call Plugin.Window.Active(dnf)
Delay 1000
If dnf = dnf Then
Call Plugin.Msg.Tips("游戏窗口已经找到")//按键精灵提示信息,可不要,为了测试用
Else
Call Plugin.Msg.Tips("游戏窗口未找到,请确认已经打开游戏")
EndScript
End If
End Sub
//打开拍卖行函数。【要求】:你的'B'键是设置为打开拍卖行。
sub 打开拍卖行()
KeyPress "Esc", 1
Delay t2
KeyPress "B", 1
Delay t2
IfColor 392, 34, "FFFFFF", 0 Then //按键精灵特有函数 识别坐标点的颜色
Call Plugin.Msg.Tips("打开拍卖行了") //按键提示成功打开拍卖行
Else //如果不成功,下面代码是鼠标点击打开拍卖行
KeyPress "Esc", 1
Call 左键单击(425, 570)
Call 左键单击(400, 505)
Call 打开拍卖行()
End If
End Sub
//输入物品名字函数
Sub 输入()
Call 左键单击(640, 90) //点击初始化搜索按钮
Delay t2
Call 左键单击(200,90) //点击输入物品的框的位置
Delay t2
Call Lib.键盘.KeyList(j1,0,t2)//输入物品名称
//【要求】:在第一次调试程序的时候会在C盘的目录下生成一个Test.xls表格文件
//表格内容这样写,第三列的名称可省略,但你要知道你前面字母用输入法能输出什么物品名
//j1是读取函数中从表格中读取到是字符串
//然后在物品名输入框中以次敲入这些字母
//要求你的输入法必须记忆了DNF物品名的首字母
//比如【黑色小晶体】,你自己用输入法敲【hsx】这三个字母后第一栏必须是【黑色小】
//所以这个软件时候那些平时经常少拍卖的朋友,输入法已经记录了你DNF物品名了。
//软件个人使用挺好,说好的仅供交流
KeyPress "Space", 1
Delay t2
KeyPress "Enter", 1
Delay t2//转换成中文
End Sub
//识别价格函数
Sub 识别()
If j2 > 0 Then
For 5 //循环搜同一个物品5次,如果你觉得不够可以自己该这个值
Delay t4
set dm = createobject("dm.dmsoft")
//大漠插件必用函数,贴吧的吧友说就是你将大漠要调用的函数库命名为dm,在以后调用大
//漠插件的函数时使用
base_path = dm.GetBasePath() //获取大漠插件的“系统路径”先前已经注册到系统了
dm_ret = dm.SetPath(base_path) //设置全局路径为大漠插件注册到系统的路径
dm_ret = dm.SetDict(0,"dm_soft.txt") //设置多个字库的序号,函数说明是这样说的
s = dm.Ocr(534,132,599,140,"ff3232-000000|ffb100-000000",1.0)
//大漠的识别函数,就是通过字库进行比较来识别游戏里面的数字,我也正在学习这个
//意思就是在总价格这个坐标范围内识别到是数值赋值给s
s=s+0 //这句话就是为了将识别的s转变成整型数值
If s > 0 Then
j = dm.Ocr(169, 131, 195, 140, "ffffff-000000", 0.9)
//识别物品是数目赋值给 j
j=j+0
If j>0 then
jg = s / j //求物品单价:如果数量大于零,单价等于总价除数量
Else
jg = s //否则就是才一个物品,单价等于总价
End if
Call Plugin.Msg.Tips(jg) //提示单价,运行时是可以看到的,如果运行稳定可以去掉给句
If jg < j2 Then //对比价格:小于要购买的价格j2,跳转到购买
Call 购买() //j2是读取函数中从表格中读取到的第二列字符串
End If
End If
KeyPress "Enter", 1
//这句加在这里是为了如果购买的东西没秒掉出现提示时,按回车键这个动作
Delay 1000
Next
End If
End Sub
//读取excel表里的字母与价格
Sub 读取()
h=h+1 //h赋值是0,在下面有定义,从表格的第一行开始读。
j1 = Plugin.Office.ReadXls(1, h, 1)//读取物品字母短语赋值给j1,字符串类型
//参数1 整数型,文档工作表页
//参数2 整数型,单元格行
//参数3 整数型,单元格列
Plugin.Msg.Tips (j1)//提示读取到的字母,测试用可以删掉
Delay t2
j2 = Plugin.Office.ReadXls(1, h, 2)//读取价格
Plugin.Msg.Tips (j2) //提示读取到的价格,测试用,可以删掉
End Sub
//购买函数:就如同你手动一口价秒物品一样,
//先点击一口价,然后点击购买物品,确认价格,确认总价,确认购买成功的提示,
//全部用【回车】键,代替鼠标工作了。
//我一共确认了4次,是怕出现延迟,确认购买成功的提示框出来太慢。
Sub 购买()
Delay 500
Call 左键单击(400, 550) //单击一口价按钮
Delay t2
Call 左键单击(500, 135) //单击购买物品
Delay t2
KeyPress "Enter", 1 //确定4次,
Delay t2
KeyPress "Enter", 1
Delay 1500
//中间插入怎么大的等待时间就是怕延迟,如果你网络好的话,可以该小,那样速度会快很多
KeyPress "Enter", 1
Delay 1500
KeyPress "Enter", 1
Delay t4
Call 左键单击(200, 90) //购买成功后在点击下输入物品的框,为了刷新拍卖行,就怕延迟啊!
Delay 50
End Sub
//定义完成,开始调用这些函数工作了。
Call 查找dnf窗口() //第一步找游戏窗口
Call 打开拍卖行() //第二步打开拍卖行
Rem A
h = 0
For sl //sl是你记录在Test表格里的数量,你可以自己改。定义sl在代码开头。
Call 读取() //第三步读取表格里的信息
Call 输入() //第四步输入物品名
Call 识别()
//第五步识别总价,数量,计算单价,比较,
//因为识别函数中调用了购买函数所以识别完后、就可以秒货了。
//识别函数中对同一个物品进行了5次扫描哦!
Next
Goto A//这两句是为了无限循环扫拍卖用的,你不想扫的话,快捷键F12停止按键就好!!
注意:调试时候出现类型不匹配's' ;我也找过原因,但是始终未能解决,但并不影响使用!
你可以使用这些代码来制作按键小精灵来带替你手动去扫材料了,对于做DNF材料商又不想购
买付费软件的手动党同学们用这个是足够了。
----PDL伪代码