[精品]dnf主动交易,收邮件源码
dnf自动交易,收邮件源码
Hwnd = Plugin.Window.Find(0, "地下城与勇士") Call Plugin.Window.Active(Hwnd)
Call Plugin.Window.Move(Hwnd, 0, 0) Window = Plugin.Window.IsWindow(Hwnd) If Window = 1 Then
UserVar ms = DropList{"自动交易+放货进仓库":0|"自动收邮件+放货进仓库":1}=0 "自动交易或自动收邮件选项"
If ms = 0 Then
Call Plugin.Msg.Tips("开始等待交易(*^_^*)")
Rem 交易请求检查
x = 433
y = 395
IfColor x,y,"8DC5DD",0 Then //
是否有交易请求
Rem 继续交易
Call 移到某点单击()
Rem 检查交易是否在进行
Delay 500
x = 166
y = 426
IfColor x,y,"8DC5DD",0 Then //检测交易是否在进行
Call 移到某点单击()
Call Plugin.Bkgnd.MoveTo(Hwnd, 270, 455)
Rem 确定交易检测
Delay 500
x = 160
y = 310
IfColor x,y,"8DC5DD",0 Then //确认交易检测
Call 移到某点单击()
Rem 确认完成交易检测
Delay 500
x = 315
y = 325
IfColor x,y,"8DC5DD",0 Then //确认完成交易检测
Call 单击Enter键()
Call Plugin.Msg.Tips("交易顺利完成!现在把货放进仓库!")
Call 放货进仓库()
Else
x = 166
y = 426
IfColor x, y, "8C8C8C", 0 Then
Goto 确认完成交易检测
Else
IfColor x,y,"8DC5DD",0 Then
Call 移到某点单击()
Call Plugin.Bkgnd.MoveTo(Hwnd, 270,
455)
Goto 确定交易检测
Else
Goto 交易请求检查
End If
End If
End If
Else
x = 166
y = 426
IfColor x,y,"8C8C8C",0 Then
Goto 确定交易检测
Else
IfColor x,y,"8DC5DD",0 Then
Call 移到某点单击()
Call Plugin.Bkgnd.MoveTo(Hwnd, 270,
455)
Goto 确定交易检测
Else
Goto 交易请求检查
End If
End If
End If
Else
Goto 交易请求检查
End If
Else
Delay 1100
Goto 交易请求检查
End If
Else //收邮件,并且把货放进仓库
d = 0
Rem 收邮件
x = 339
y = 428
Call Plugin.Bkgnd.MoveTo(Hwnd, x, y)
Delay 500
FindPic 313,369,411,396,"D:\Program Files\按键精灵
9\QMScript\DNF自动交易\images\em.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Call 移到某点单击()
Delay 200
em = 0
x = 315
y = 210
FindPic 228,184,411,299,"D:\Program Files\按键精灵9\QMScript\DNF自动交易\images\myx.bmp",0.8,intX,intY
If intX > 0 And intY > 0 Then
Call 单击Enter键()
em = 1
End If
Rem 继续收邮件
FindPic 97,142,113,159,"D:\Program Files\按键精灵9\QMScript\DNF自动交易\images\kem.bmp",0.9,x,y
If x > 0 And y > 0 Then
Call 移到某点单击()
Delay 200
x = 330
y = 303
Call 移到某点单击()
Delay 200
Goto 继续收邮件
Else
FindPic 97,142,113,159,"D:\Program Files\按键精灵9\QMScript\DNF自动交易\images\wh.bmp",0.8,x,y
If x > 0 And y > 0 Then
If em = 1 Then
Goto 收邮件
Else
Call Plugin.Msg.Tips("接收邮件完毕,现在整理仓库~")
wb = 1
Call 放货进仓库()
End If
Else
FindPic 88,100,138,115,"D:\Program Files\按键精灵9\QMScript\DNF自动交易\images\syj.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
x = 115
y = 145
Call 移到某点单击()
x = 390
y = 265
Call 移到某点单击()
Delay 200
FindPic 228,184,411,299,"D:\Program Files\
按键精灵9\QMScript\DNF自动交易
\images\kjbz.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Call 放货进仓库()
Else
FindPic 228,184,411,299,"D:\Program
Files\按键精灵9\QMScript\DNF自动交易
\images\fz.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Call 放货进仓库()
Else
FindPic 228,184,411,299,"D:\Program
Files\按键精灵9\QMScript\DNF自动交易
\images\jbsx.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Call Plugin.Msg.Tips("程序已退
出~金额已上限,此情况不帮处理,需要自己处理,处理完后重新启动脚本即可~")
EndScript
Else
FindPic
228,184,411,299,"D:\Program Files\按键精灵9\QMScript\DNF自动交易\images\hjb.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Call 单击Enter键()
Delay 200
Rem 判断删除邮件
FindPic
220,185,390,240,"D:\Program Files\按键精灵9\QMScript\DNF自动交易\images\wfj.bmp",0.99,intX,intY
If intX > 0 And intY > 0 Then
x = 330
y = 303
Call 移到某点单击()
Goto 继续收邮件
Else
x = 330
y = 303
IfColor x,y,"8DC5DD",0 Then
Goto 判断删除邮件
Else
Goto 继续收邮件
End If
End If
Else
x = 330
y = 303
IfColor x,y,"8DC5DD",0 Then
Goto 判断删除邮件
Else
Goto 继续收邮件
End If
End If
End If
End If
End If
Else
Call Plugin.Msg.Tips("你是否中断了收邮
件,脚本已终止~若要继续请重新启动脚本~")
EndScript
End If
End If
End If
Else
If d < 1 and em = 1 Then
x = 355
y = 455
Call 移到某点单击()
Delay 500
x = 310
y = 340
Call 移到某点单击()
xjs = 0
Rem 选择角色
Delay 500
FindPic 0,0,640,465,"D:\Program Files\按键精灵9\QMScript\DNF自动交易\images\xjs.bmp",0.9,x,y
If x > 0 And y > 0 Then
x = 120
y = 135
Call 移到某点单击()
Delay 500
x = 320
y = 445
Call 移到某点单击()
jpd = 0
Rem 进入频道
Delay 500
FindPic 606, 0, 641, 35, "D:\Program Files\
按键精灵9\QMScript\DNF自动交易\images\jpd.bmp", 0.9, x, y
If x > 0 And y > 0 Then
x = 402
y = 169
IfColor x, y, "8DEDFF", 0 Then
Call 移到某点单击()
Delay 500
d = 1
Goto 收邮件
Else
d = 1
Goto 收邮件
End If
Else
If jpd < 60 Then
jpd = jpd + 1
Goto 进入频道
Else
Call Plugin.Msg.Tips("程序已结束~~是否在进入频道的过程中遇到了卡机或死机,若不是请重新进入游戏,然
后重新启动游戏即可。")
EndScript
End If
End If
Else
If xjs < 60 Then
xjs = xjs + 1
Goto 选择角色
Else
Call Plugin.Msg.Tips("程序已结束~~是否在选择角色的过程中遇到了卡机或死机,若不是请重新进入游戏,然后重新启动游戏即可。")
EndScript
End If
End If
Else
If d > 0 Then
Call Plugin.Msg.Tips("程序已结束~~邮件已经全部接收完毕~")
Else
Call Plugin.Msg.Tips("没有邮件!怎么收邮件啊?兄弟努力点发邮件来这号吧~")
End If
End If
End If
End If
Else
MsgBox "没有找到游戏窗口,已推出脚本!"
ExitScript
End If
Sub 放货进仓库()
Rem 把货放进仓库
x = 145
y = 390
IfColor x,y,"8DC5DD",0 Then //把货放进仓库
Call 移到某点单击()
For b = 0 To 1
If b < 1 Then
IfColor 320, 150, "2C4049", 1 Then
x = 300
y = 455
Call 移到某点单击()
Delay 200
x = 300
y = 265
Call 移到某点单击()
End If
x = 450
y = 205
Call 移到某点单击()
Delay 200
Else
IfColor 433,395,"8DC5DD",0 Then //判断是否有交易
请求
Call Plugin.Msg.Tips("有交易请求,已中断整理背包继续交易~")
Goto 交易请求检查
Else
x = 405
y = 205
Call 移到某点单击()
Delay 200
End If
End If
x = 345
y = 325
For a = 0 To 3
If a > 0 Then
IfColor 433,395,"8DC5DD",0 Then //判断是否有交易请求
Call Plugin.Msg.Tips("有交易请求,已中断整理背包继续交易~")
Goto 交易请求检查
End if
y = y - 30
End If
For i = 0 To 7
If i > 0 and a <> 1 and a <> 3 Then
x = x + 30
Else
If i > 0 Then
x = x - 30
End If
End If
FindPic x-1, y-1, x + 19, y + 16, "D:\Program
Files\按键精灵9\QMScript\DNF自动交易\images\mh.bmp", 0.5,intX,intY
If intX < 1 And intY < 1 Then
Call 移到某点单击()
FindPic 228,184,411,299,"D:\Program Files\
按键精灵9\QMScript\DNF自动交易
\images\jkkjbz.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Call 单击Enter键()
Else
IfColor 315, 260, "8DC5DD", 0 Then
Call 单击Enter键()
Else
IfColor x, y - 23, "2F4261", 0 Then
Call 单击Enter键()
End If
End If
End If
End If
Next
Next
Next
x = 550
y = 355
Call 移到某点单击()
If ms < 1 Then
Call Plugin.Msg.Tips("背包整理完毕,已经返回继续等待交易?(^ω^)?~")
Goto 交易请求检查
Else
If wb = 1 Then
Call Plugin.Msg.Tips("仓库整理完毕,已退出程序~")
Else
Call Plugin.Msg.Tips("背包整理完毕,已经返回继续接收邮件?(^ω^)?~")
Delay 50
Goto 收邮件
End If
End If
Else
KeyPress "Esc", 1
Delay 200
FindPic 0,0,640,445,"D:\Program Files\按键精灵9\QMScript\DNF自动交易\images\ck.bmp",0.9,x,y
If x > 0 And y > 0 Then
Call 移到某点单击()
Delay 200
Goto 把货放进仓库
Else
Call Plugin.Msg.Tips("没有找到仓库,是不是不在“赛利亚”的房间,已经推出程序~")
EndScript
End If
End If
End Sub
Sub 移到某点单击()
Call Plugin.Bkgnd.MoveTo(Hwnd, x, y)
Delay 100
Call Plugin.Bkgnd.LeftDown(Hwnd, x, y)
Delay 50
Call Plugin.Bkgnd.LeftUp(Hwnd, x, y)
Delay 150
End Sub
Sub 单击Enter键()
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 50