Hwnd = Plugin.Window.GetKeyFocusWnd()
sRect = Plugin.Window.GetClientRect(Hwnd)
MyArray=Split(sRect,"|")
Ux=CLng(MyArray(0))
Uy=CLng(MyArray(1))
UserVar 刷新速度=1200 "毫秒"
刷新速度=1200
FileArray=Array("Attachment:\血腥玛丽.bmp","Attachment:\新加坡司令.bmp","Attachment:\彩虹.bmp","Attachment:\种植者.bmp","Attachment:\撞墙哈维.bmp","Attachment:\玛格丽特.bmp")
HandleArray=Plugin.FindPicture5_04.LoadBMP(FileArray)
If UBound(HandleArray)=-1 Then
MsgBox "载入图片失败!",4096
    EndScript
    End If
Rem 循环
Call Plugin.FindPicture5_04.FindPictureN(0,Ux,Uy,Ux+980,Uy+630,HandleArray,30,0.9,x,y,number)
If x>=0 And y>=0 And number>=0 Then
FindPic CStr(x)-15,CStr(y)-20,Ux+980,Uy+630,"Attachment:\参加.bmp",0.9,canX,canY
Else
Call 刷新()
    End If
If canX > 0 And canY > 0 Then
Call Plugin.Bkgnd.LeftClick(Hwnd, canX-Ux, canY-Uy)
    EndScript
End If
Sub 刷新()
    Call Plugin.Bkgnd.LeftClick(Hwnd, 210, 112)
    Delay 刷新速度
  Call Plugin.Bkgnd.LeftClick(Hwnd, 294, 108)
        Delay 500
    Call Plugin.Bkgnd.LeftClick(Hwnd, 210, 112)
End Sub
Goto 循环