求助！传奇找怪！

wutao2361

找了一个按键精灵的“传奇源码”
说是前几行有错误，（应该是找窗口有错误吧，这个用TC很简单，不多说上码，自已改）
Hwnd = Plugin.Window.Find(0, "传奇")
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim MyArray
MyArray=Split(Rect,"|")
Ux=CLng(MyArray(0))
Uy=CLng(MyArray(1))

Rem 战斗开始
FindCenterColor 64+Ux,87+Uy,666+Ux,363+Uy,"00009C",intX,intY
If intX > 0
MoveTo intX+15,intY+25
Delay 500
KeyPress "M", 1
Rem 战斗中
Delay 100
    LeftClick 1
    Delay 1000
    MoveTo intX + 15, intY + 25
    Delay 5000
    LeftClick 1
    Delay 1000
KeyPress "H", 1
Delay 8000
    IfColor intX,intY,"0",1 Then
Call 寻怪()
End If
Else
    Goto 战斗中
End If
Delay 5000
Goto 战斗开始
Sub 寻怪()
    Randomize
n = Int(rnd * 4)
If n = 0
MoveTo 261, 108
RightDown 1
Delay 5000
RightUp 1
Delay 50
End If
        
        If n = 1 Then
MoveTo 231, 295
RightDown 1
Delay 5000
RightUp 1
Delay 50
End If
If n = 2 Then
MoveTo 557, 97
RightDown 1
Delay 5000
RightUp 1
Delay 50
End If
If n = 3 Then
MoveTo 525, 322
RightDown 1
Delay 5000
RightUp 1
Delay 50
End If
End Sub