运行环境：分辨率：1366×768 色深：32位 操作系统：Windows 7 Ultimate 按键精灵版本：9.51.11790

PutAttachment ".\plugin" ,"*.dll"   Hwnd = Plugin.Window.Find(0, "地下城与勇士")   Call Plugin.Window.Move(Hwnd, 0, 0)   Rem 主程序   Call 判断pl()   Rem 判断   Call 进图()   Delay 4000   Call 选择打左右()   Call 捡物()   Call 回城()   For 2   Call 进图1()   Delay 4000   Call 选择打左右()   Call 捡物()   Call 回城()   Next   Call 卖店()   Call 判断pl()   Call 结束()   Rem 停止      Sub 判断pl()   IfColor 317, 554, "070709", 0 Then   Call 结束()   Else    Goto 判断   End If      End Sub   Sub 选择打左右()   KeyDown "A", 1   Delay 200   KeyUp "A", 1    IfColor 3, 25, "1884EF", 0 Then   Call 打怪右()   Else    Call 打怪左()   End If   End Sub   Sub 进图()   MoveTo 10, 450   Delay 500   RightClick 1   Delay 2000   MoveTo 10, 450   Delay 500   RightClick 1   Delay 2000   MoveTo 236, 101   Delay 3000   LeftDoubleClick 1   Delay 3000   End Sub   Sub 卖店()   MoveTo 780, 400   RightClick 1   Delay 3000   RightClick 1   Delay 3000   MoveTo 236, 130   LeftClick 1   Delay 600   MoveTo 280, 173   LeftClick 1   Delay 1000   MoveTo 302, 455   Delay 500   LeftClick 1   Delay 500   MoveTo 487, 324   Delay 500   LeftClick 1   Delay 500   LeftClick 1   Delay 500   LeftClick 1   Delay 500   KeyPress "Esc", 1   Delay 500   MoveTo 160, 403   RightClick 1   Delay 500   MoveTo 7, 403   RightClick 1   Delay 1000   //KeyPress "F", 1   //MoveTo 486, 321   //IfColor 486, 321, "110C06", 0 Then   //KeyPress "Esc", 1   //Else    //Call 卖店()   //End If   End Sub   Sub 回城()   Delay 1000   KeyPress "Esc", 1   Delay 1000   MoveTo 513, 429   Delay 1000   LeftClick 1   Delay 2000   End Sub   Sub 进图1()   MoveTo 111, 450   RightClick 1   Delay 1000   MoveTo 10, 450   Delay 500   RightClick 1   Delay 2000   MoveTo 236, 101   Delay 4000   LeftDoubleClick 1   Delay 200   LeftDoubleClick 1   Delay 4000   End Sub   Sub 打怪左()   Delay 2000   For 3   Call 左()   Next   Rem 向上打怪   For 3   For 3   Call 攻击()   KeyPress "A", 1   Next   Call 上()   Next   Rem 向下打怪   For 3   For 3   Call 攻击()   KeyPress "A", 1   Next   Call 下()   Next   End Sub   Sub 打怪右()   Delay 2000   For 3   Call 右()   Next   Rem 向上打怪   For 3   For 3   Call 攻击()   KeyPress "D", 1   Next   Call 上()   Call 上()   Next   Rem 向下打怪   For 3   For 3   Call 攻击()   KeyPress "D", 1   Next   Call 下()   Call 下()   Call 上()   Next   End Sub   Sub 攻击()   KeyPress "Y", 1   Delay 600   KeyUp "Y", 1   Delay 200   End Sub   Sub 上()   KeyDown "W", 1   Delay 300   KeyUp "W", 1      End Sub   Sub 下()   KeyDown "S", 1   Delay 300   KeyUp "S", 1      End Sub   Sub 左()   KeyDown "A", 1   Delay 500   KeyUp "A", 1      End Sub   Sub 右()   KeyDown "D", 1   Delay 500   KeyUp "D", 1   End Sub   Sub 捡物()   Delay 200   KeyDown "B", 1   Delay 200   KeyUp "B", 1   Delay 2000   KeyDown "N", 1   Delay 200   KeyUp "N", 1   KeyPress "J", 1   Delay 200   KeyPress "J", 1   Delay 200   KeyPress "J", 1   Delay 200   KeyPress "J", 1   Delay 200   KeyPress "J", 1   Delay 200   End Sub   Sub 结束()   Goto 停止   End Sub   Sub 检查()   KeyPress "F", 1   MoveTo 486, 321   IfColor 486, 321, "110C06", 0 Then   KeyPress "Esc", 1   Else    Call 卖店()   End If      End Sub