按键精灵教程：DNF分解1500腰带源码
的有关信息介绍如下：
这里分享DNF分解1500腰带源码，需要的拿去。
这里注意几点：1、使用此脚本必需用《按键精灵》因为用的大漠插件绑定了这个模式，只能用按键精灵。2、需要把游戏窗口挡住。3、此脚本还有些小毛病,想用的自己测试,自己修改,里面有大量注释。4、需要人物,开启脚本必需在赛利亚房间里面。5、用的是XP分辨率1280*720的，其他分辨率不知道可以不，自己测试吧。
源码如下（很长很复杂）：
Call注册()
//<>------------------------------
hwnd=dm.GetMousePointWindow()
TracePrinthwnd
//dm.MoveWindowhwnd,-540,15
Delay1000
dm_ret=dm.BindWindow(hwnd,"dx2","windows2","dx",1)
Delay200
Ifdm_ret=0Then
MessageBox"绑定“失败”"
ExitScript
EndIf
//模拟==================================
SetSimMode2
//大循环次
For8//需要分解几次修一下分解机器,就修改几,这里是8次,需要9级分解
Rem查找赛利亚
//查找赛利亚============================
do
dm_ret=dm.FindPic(0,0,2000,2000,"赛利亚.bmp","000000",0.9,0,intX,intY)
IfintX>=0andintY>=0Then
dm.MoveTointX+275,intY+50
Delay200
dm.LeftDoubleClick
ExitDo
EndIf
loop
//找到赛利亚点物===========================
do
dm_ret=dm.FindPic(0,0,2000,2000,"赛利亚
2.bmp","000000",0.9,0,intX,intY)
IfintX>=0andintY>=0Then
dm.MoveTointX-20,intY+50
Delay200
dm.LeftDoubleClick
ExitDo
EndIf
loop
//进入商店买腰带===============================
For32
dm_ret=dm.FindPic(0,0,2000,2000,"赛利亚
3.bmp","000000",0.9,0,intX,intY)
IfintX>=0andintY>=0Then
dm.MoveTo213,360
Delay200
dm.LeftDoubleClick
EndIf
Next
//按ESC关闭===============================
Delay200
dm.KeyPress27
Delay200
//选按上===============================
dm.KeyDown38
Delay300
dm.KeyUp38
//在按下===============================
dm.KeyDown40
Delay700
dm.KeyUp40
//打开分解机===============================
do
dm_ret=dm.FindPic(0,0,2000,2000,"赛利亚
4.bmp","000000",0.7,0,intX,intY)
IfintX>=0andintY>=0Then
dm.KeyPress84
Delay200
ExitDo
EndIf
loop
//输入9999===============================
do
dm_ret=dm.FindPic(0,0,2000,2000,"赛利亚
5.bmp","000000",0.9,0,intX,intY)
IfintX>=0andintY>=0Then
dm.MoveTointX,intY+55
Delay500
dm.KeyPress57
Delay100
dm.KeyPress57
Delay100
dm.KeyPress57
Delay100
dm.KeyPress57
Delay100
//点确认===============================
dm.KeyPress13
Delay1000
dm.MoveTo330,310
Delay200
dm.LeftClick
Delay200
ExitDo
EndIf
loop
//打开分解装备界面===============================
do
dm_ret=dm.FindStr(154,106,552,373,"手续费
","96ff1e-000000",1.0,intX,intY)
IfintX>=0andintY>=0Then
dm.MoveTointX,intY
Delay200
dm.LeftDoubleClick
Delay200
ExitDo
EndIf
loop
//分解准备===============================
do
dm_ret=dm.FindStr(140,345,190,361,"装备分解
","ddc58d-000000",1.0,intX,intY)
IfintX>=0andintY>=0Then
dm.MoveTointX+15,intY
Delay200
dm.LeftDoubleClick
Delay200
ExitDo
EndIf
loop
///////////////////////////////////////////////////
//分解装备===============================
Delay200
dm.LeftClick
Delay200
dm.KeyPress13
Do
//防回车键按多
dm_ret=dm.FindStr(27,323,258,432,"附近
","eeddaa-000000",1.0,intX,intY)
IfintX>=0andintY>=0Then
Delay100
dm.KeyPress13
ExitDo
Else
EndIf
dm_ret=dm.FindStr(236,154,332,182,"装备分解成功","ffffff-000000",1.0,intX,intY)
IfintX>=0andintY>=0Then
Delay500
dm.KeyPress13
Delay500
ExitDo
Else
//防回车键按多
dm_ret=dm.FindStr(27,323,258,432,"附近
","eeddaa-000000",1.0,intX,intY)
IfintX>=0andintY>=0Then
Delay100
dm.KeyPress13
ExitDo
Else
EndIf
EndIf
Loop
x=x+30//（鼠标移到第一排第二格）
Next
x=c//（鼠标横坐标回到第一格）
y=y+30//（鼠标移动到第二排第一格）
Next
//按ESC关闭===============================
Delay200
dm.KeyPress27
Delay500
dm.KeyPress27
Delay200
Do
m_ret=dm.FindStr(0,0,2000,2000,"确认关闭分解商店吗","ffffff-000000",1.0,intX,intY)
IfintX>=0andintY>=0Then
Delay200
dm.MoveTointX+50,intY+35
Delay1000
dm.LeftDoubleClick
Delay500
dm.KeyPress27
ExitDo
EndIf
Loop
//按下===============================
Delay200
dm.KeyDown40
Delay300
dm.KeyUp40
//按上===============================
dm.KeyDown38
Delay700
dm.KeyUp38
Next
//按上===============================
dm.KeyDown38
Delay100
dm.KeyUp38
//按下===============================
Delay200
dm.KeyDown40
Delay1000
dm.KeyUp40
//按左===============================
//
Rem找分解修理
dm_ret=dm.FindPic(5,55,637,270,"赛利亚7.bmp","000000",0.9,0,intX,intY)
IfintX>=0andintY>=0Then
dm.KeyUp37
Delay100
dm.MoveTointX+70,intY+140
Delay100
dm.LeftClick
Else
Delay100
dm.KeyDown37
Delay100
Goto找分解修理
EndIf
Rem找分解
dm_ret=dm.FindPic(5,207,534,423,"赛利亚8.bmp","000000",0.9,0,intX,intY)
IfintX>=0andintY>=0Then
Delay200
dm.MoveTointX,intY+115
Delay200
dm.LeftClick
Delay200
dm.LeftClick
Delay200
dm.KeyPress27
Else
Goto找分解
EndIf
Rem回仓库
Delay20
dm_ret=dm.FindPic(317,93,639,296,"赛利亚9.bmp","000000",0.9,0,intX,intY)
IfintX>=0andintY>=0Then
dm.KeyUp39
Delay500
Else
dm.KeyDown39
Delay20
Goto回仓库
EndIf
Do
dm_ret=dm.FindPic(0,0,2000,2000,"赛利亚.bmp","000000",0.9,0,intX,intY)
IfintX>=0andintY>=0Then
dm.KeyUp38
Delay50
ExitDo
Else
dm.KeyDown38
Delay50
EndIf
loop
Goto查找赛利亚
//<>--------------------------------------------------------------------<>
//<>------------------------------子程序------------------------------<>
//<>--------------------------------------------------------------------<>
Sub注册()
PutAttachment".\plugin","*.dll"
PutAttachment".\plugin\大漠梦想","*.bmp"
PutAttachment".\plugin\大漠梦想","*.txt"
PutAttachment".\plugin\大漠梦想","dm.dll"
//↑PutAttachment释放附件
CallPlugin.RegDll.Reg(".\plugin\大漠梦想\dm.dll")
setdm=createobject("dm.dmsoft")
dm.SetPath".\plugin\大漠梦想"
//↑大漠·注册
//字库
dm_ret=dm.SetDict(0,"赛利亚字库.txt")
Delay40
EndSub
//
SubOnScriptExit()
dm_ret=dm.UnBindWindow()
EndSub
