dnf自动交易,收邮件源码.docVIP

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 继续收邮件 F