如何在某種用戶輸入後結束Do循環？

Question

任何類型的用戶輸入都可以。這是我迄今爲止的代碼。

Set WshShell = WScript.CreateObject("WScript.Shell") 

Dim Account 
Account = 111111 
WScript.Sleep 5000 

Do 
WScript.Sleep 400 
WshShell.SendKeys "drill " 
WshShell.SendKeys Account 
WshShell.SendKeys "{ENTER}" 
Account = Account + 1 
Loop 

基本上它的（一個遊戲）的編碼猜測者，我希望能夠與任何類型的用戶輸入的中斷它。

Answer 1

我不認爲我們有任何直接的解決方案。下面的代碼在50次迭代後尋求用戶交互。如果是，則控制從do循環退出。你可以用其他方式來打斷循環，當然你也可以根據需要更換計數器。

Set WshShell = WScript.CreateObject("WScript.Shell") 
Dim counter 
Dim Account 
Dim msgResult 

counter = 0 
Account = 111111 
WScript.Sleep 5000 

Do 
WScript.Sleep 400 
WshShell.SendKeys "drill " 
WshShell.SendKeys "drill " 
WshShell.SendKeys Account 
WshShell.SendKeys "{ENTER}" 
Account = Account + 1 
If counter = 50 Then 'get user input after 50 iterations 
    msgResult = MsgBox("Do you want to exit?", vbYesNo) 
    If msgResult = vbYes Then 'if yes 
     Exit Do 
    End If 
End If 
counter = counter + 1 
If counter > 101 then 
    counter =0 
End If 
Loop