按键精灵的脚本源码
Plugin Hwnd = Window.Find(0, "大明龙权")
Plugin Rect = Window.GetClientRect(Hwnd)
Dim MyArray
MyArray=Split(Rect,"|")
Ux=CLng(MyArray(0))
Uy=CLng(MyArray(1))
Rem 寻怪
KeyPress 9,1
Delay 1000
IfColor 627+Ux,45+Uy,1c1ce0,0
Rem 继续战斗
KeyPress 49,1
IfColor 637+Ux,14+Uy,b7cece,0
Goto 继续战斗
EndIf
Else
Goto 继续战斗
EndIf
Goto 寻怪