[精品]dnf主动交易,收邮件源码

[精品]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