Dim i,n
Dim x(2),y(2)
i=0
n=0
VBSCall GetCursorPos(x(i),y(i))
While i<2
//设置延æ¶ï¼2åéå
5次
Delay 120000/5
//è¿éç¨ç»å¯¹å¼å½æ°ï¼ä½¿iå¨0ä¸1ä¹é´äºç¸è½¬å
i=Abs(i-1)
VBSCall GetCursorPos(x(i),y(i))
If x(0)=x(1) and y(0)=y(1)
n=n+1
Else
n=0
EndIf
//ä¸é¢çIFè¯å¥éæ¯è¾æè¿ä¸¤æ¬¡é¼ æ åæ ï¼åªè¦ä¸æååå计æ°å¨næ¸
0
//å½è¿ç»5æ¬¡é¼ æ æ ååæ¶ï¼åæ§è¡
If n>4
MoveTo 450,350
Delay 5
LeftClick 1
n=0
EndIf
EndWhile
æä¸é¢çç²è´´å°æé®ç²¾çµéä¼çå¾æ´æ¸
æ¥ã
å
¶å®æ å¿
è¦æ¯è¾å®5次å¦ï¼åªè¦æ¯è¾æè¿ä¸¤æ¬¡ææ ååå°±è¡äºãå¦æç¡®å®è¦çæ¯è¾5次çèæ¬ï¼é£å¯ä»¥æå¦ä¸ç¨åºï¼ä¸ä¸ä¸¤ä¸ªèæ¬ææä¸æ ·ï¼ï¼
Dim i,n
Dim x(5),y(5)
i=0
While i<5
Delay 120000/5
VBSCall GetCursorPos(x(i),y(i))
n=0
While n<i
//è¿ä¸ªå¾ªç¯ç¨æ¥æ¯è¾æ°ç»å
çæ°å¼
If x(n)=x(i) and y(n)=y(i)
If n=3
MoveTo 450,350
Delay 5
LeftClick 1
i=-1
//è¿éåå§åiï¼å°±å¯ä»¥ä¸æ循ç¯æ£æµ
EndIf
n=n+1
Else
i=-1
EndIf
EndWhile
i=i+1
EndWhile
温馨提示:答案为网友推荐,仅供参考