華閱文章網
按鍵精靈if循環語句
doifcolor cx,cy,col,0 //如果找到色，cx,cy就是此色的坐標（兩者都會大于0），沒找到，就是-1,-1end ifdelay 200 //大至每0.2秒判斷一次，以減小資源占用。
loop until cx >0 and cy>0 //找到色就結束循環，沒找到繼續循環，直到找到為止。如果一直找不到，就會面為死循環。
//moveto cx,cy //鼠標移到到色點。// “do 循環體 loop until 循環結束條件”// 循環語句。
當until后的條件成立時，不再循環，而繼續執行下一條語句。
按鍵精靈循環語句
圖 會自己 持續移動嗎？不會移動簡單點，
rem ks
VBSCall FindPic(680,82,780,143,"d:\xpm\圖*",0.9,intX,intY)
If intX>0 and intY>0
Moveto intX,intY
Delay 500
rightClick 1
else
goto ks
endif
----你用到 rem goto語法，，，還有找圖語法， VBSCall FindPic(680,82,780,143,"d:\xpm\圖*",0.9,intX,intY),,intX,intY多次使用沒關系的。
按鍵精靈 跳出循環語句
//跳出循環可以用到rem-goto命令
//既然是循環內跳出，你要有的條件啊，比如滿足什么情況跳出
i=0 //設置一個變量賦值為0
While i>10 //當變量大于10的時候條件滿足跳出循環
IfColor 458, 562, "4A69", 0 Then
Call *ick(Hwnd, 458, 562)
End If
//你的條件判斷語句也有問題
// if x=100 //判斷條件
//LeftClick 1 //滿足條件執行的語句
//End If //判斷結束
i=i+1 //讓變量+1
Wend
goto 跳轉
rem 跳轉
IfColor 497,317,"F0F3C",0 Then
Call *ick(Hwnd, 497, 317)
End If
//以上代碼可以直接用了
按鍵精靈怎么循環
這樣問法鬼理你！！！！
你的找圖沒寫完整路徑（除非圖片在按鍵精靈目錄下），如圖片在D盤下就這樣寫
VBSCall FindPic(1,1,1023,767,"D:\*",0.9,x,y)
當然也可以把圖片放到附件里方法例子里有不再說明注要是如下的：
VBSCall FindPic(1,1,1023,767,"Attachment:\*",1,X,Y)
找字要相似度1才能更準確的找到你要的字（如果是白色的字幾乎找到的可能性為0）
按鍵精靈7的例子里有個找多點顏色的方法找字比找圖好
當然最好是下載個文字識別的插件（圖形識別）下載地址如下（要先注冊）：
http://***?tid=82638
以下是源碼，（注意┍ │ ┕ 這些符號是我為說明而加上的 用時不必寫入）
1.標記循環如下：
┍ Rem start
│
┕ Goto start
上面中間放上你要循環的語句，標記循環也就是在一個地方做個標記，然后在另一個地方無條件的返回到標記處重復運行（一般用于無限循環）如上面的是做個標記start 后面再跳到 這個標記start再運行
2.次數循環如下：
┎ For 10
│
┖ EndFor
上面的10也就是循環10次的意思，同樣中間也是放上你要循環的語句.
3.條件循環如下
┎ While X=Y
│
┖ EndWhile
中部加上你要循環的語句 這句的意思是當X等于Y時循環中間的語句（X.Y可以是變量）
以上的循環可以相互交叉使用達到你要的效果比如下面的是當X=Y時循環10次按A鍵一次按B（也就是按10次A后按1次B這樣不停的按） 在按A鍵10次中如果X不等于Y了 則跳到標記start 再等到X=Y 再循環10次A和1次B
Rem start
While X=Y
For 10
If X<>Y
Goto start
EndIf
KeyPress 65,1
EndFor
KeyPress 66,1
EndWhile
Goto start
按鍵精靈循環語句
圖 會自己 持續移動嗎？不會移動簡單點，rem ks VBSCall FindPic(680,82,780,143,"d:\xpm\圖*",0.9,intX,intY) If intX>0 and intY>0 Moveto intX,intY Delay 500 rightClick 1else goto ksendif----你用到 rem goto語法，，，還有找圖語法， VBSCall FindPic(680,82,780,143,"d:\xpm\圖*",0.9,intX,intY),,intX,intY多次使用沒關系的。
求按鍵精靈循環語句
Dim sngNowTimeDim blnResult1, blnResult2sngNowTime = TimerRem A區blnResult1 = Timer - sngNowTime >= 5blnResult2 = Timer + sngNowTime - SecondPerDay >= 5 and sngNowTime > TimerIf blnResult1 = True Xor blnResult2 = True MessageBox 時間到，循環結束了，進入B循環 sngNowTime = Timer Goto B區EndIf MessageBox 我會被循環5秒，這里可以插入你的操作！Goto A區Rem B區blnResult1 = Timer - sngNowTime >= 6blnResult2 = Timer + sngNowTime - SecondPerDay >= 6 and sngNowTime > TimerIf blnResult1 = True Xor blnResult2 = True MessageBox 時間到，循環結束。
EndScript EndIf MessageBox 我會被循環6秒，這里可以插入你的操作！Goto B區按照我的示例，試試看~。
關于按鍵精靈如何寫出IF語句持續幾秒則怎樣怎樣
For 10//循環10次
Delay 1000//延遲1秒
FindPic 0,0,1024,768,"Attachment：\神盾.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
//找到圖執行命令
Else//否則
MoveTo 0, 0//鼠標移動到坐標0.0
LeftClick 1//點擊一次
End If//條件結束
Next//循環結束
//10秒鐘執行10次找圖
轉載請注明出處華閱文章網 » 按鍵精靈if循環語句
