有哪位大神帮我解答下

刚刚篇了个本本，但是一直很奇怪动不起来。。想问问具体情况 哪个大神懂。。

Hwnd = Plugin.Window.Find(0, "地城之光")
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim myarray
Myarray=Split(sRect,"|")
Ux=CLng(myarray(0))
UY=CLng(myarray(1))
Rem diaoyu
IfColor 600+ux,188+uy,"D3FF",0 Then
KeyPress "Space", 1
Else
Goto diaoyu
End If
这是源文件。。哪里有问题？