a=0 For 3 GetColor = GetPixelColor(x,y) If GetColor = "FFFFFF" Then a=0 else a=a+1 End If Next if a<3 then goto aaa end if //连续3次没找到,执行一些命令 // // rem aaa //不执行
For 3 GetColor = GetPixelColor(x,y) MessageBox GetColor If GetColor = "CDB182" Then Goto 标记 End If Next Rem 标记 MessageBox "测试"
第2个回答 2013-02-16
For 3 GetColor = GetPixelColor(10, 5) //上面的10,5的坐标自己改成你想要检测的点的坐标 MessageBox GetColor If GetColor = "ffffff" Then //上面的"ffffff"改成你要检测的颜色 //这里填检测到颜色的时候要执行的命令 Else //这里填没有检测到的时候要执行的命令 End If Next追问