运行环境:分辨率: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