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 循环