以ä¸æ¯æ8çæºç ï¼å¯ä½åèdim é¢è²(2)
dim s,x,y
//声æåé
é¢è²(0)="FFFFFF":é¢è²(1)="000000":é¢è²(2)="00FFFF"
//å®ä¹é¢è²æ°ç»åé 请èªè¡ä¿®æ¹é¢è²ä»£ç
Rem start
s=0
//å®ä¹æ°ç»ä¸æ åå§å¼åé
For 3
//循ç¯3次
Delay 10
//循ç¯éè®¾ç½®å»¶æ¶ é²æ¢ç³»ç»å
åå ç¨å¤ªé«
Call FindCenterColor(0,0,1024,768,é¢è²(s),x,y)
//åºåä»ä¸é´åå¤æ¥æ¾é¢è²ã0,0,1024,768为åºåèå´ï¼é¢è²(s)为é¢è²æ°ç»åéï¼x,y为åæ åé
If x>0 and y>0
//å¦ææ¾å°é¢è²
Delay 100
//延æ¶100毫ç§
//VBSCall MessageBox("æ¾å°é¢è²"&"é¢è²("&s&") "&"åæ 为:"&x&","&y)
//å¼¹åºçªå£ æ¾å°é¢è²ååæ
//è¿éå å¦ä½ çèæ¬
Else
Delay 100
//延æ¶100毫ç§
//VBSCall MessageBox("没æ¾å°é¢è²"&"é¢è²("&s&")")
//å¼¹åºçªå£ 没ææ¾å°é¢è²
Goto start
EndIf
//æ¡ä»¶ç»æ
s=s+1
//åééå¢
EndFor
//循ç¯ç»æ
EndScript
温馨提示:答案为网友推荐,仅供参考