Function 新界面(IntX,IntY,颜色) Do If GetPixelColor(IntX,IntY)=颜色 Then 新界面 = True Exit Do Else ShowMessage "等待新界面" End If Loop End Function