//取光标处颜色,把屏幕上的相同颜色全部点一遍 //速率每秒最多8次(视电脑情况而定,可能达不到) Plugin allx=GetSysInfo.GetScreenResolutionX Plugin ally=GetSysInfo.GetScreenResolutionY VBSCall GetCursorPos(sx,sy) color=GetPixelColor(sx,sy) VBS x=0:y=0 While y<=ally While x<=allx IfColor x y color 0 MoveTo x y Delay 125 LeftClick 1 EndIf x=x+1 EndWhile x=0 y=y+1 EndWhile