VBスクリプト単純なループの質問

Question

私は最後に終了（終了）したくない単純なスクリプトを持っています。もう一度始めてみたいです。

Dim FJobName, objShell, FRevent, FReventNo, FPrevJobName 
FJobName=InputBox ("Job Name","Plates Complete","ACT") 
result=Msgbox(FJobName ,vbYesNo, "New Job?") 
If result = vbYes Then 
FRevent="raiseevent SetJobStatus_r3 " & FJobName & " InCart New -host 194.128.255.22 -port 61235" 
Set objShell = WScript.CreateObject ("WScript.shell") 
objShell.run FRevent 
Else 
If result = vbNo Then 
result=Msgbox(FJobName ,vbYesNo, "Repeat Job?") 
If result = vbYes Then 
FPrevJobName=InputBox ("Previous Job Name?","Plates Complete","") 
result=Msgbox(FPrevJobName ,vbYesNo, "Is this correct?") 
If result = vbYes Then 
FReventNo="raiseevent SetJobStatus_r3 " & FJobName & " InCart Repeat " & FPrevJobName & " -host 194.128.255.22 -port 61235" 
Set objShell = WScript.CreateObject ("WScript.shell") 
objShell.run FReventNo 
End If 
End If 
End If 
End If 

Answer 1

whileループでコードを折り返します。終了条件を設定したり、ユーザーにプロンプ​​トを表示したりすることができます。

While 1=1 
    ' *Your Code Here* 

    ' Prompt user to quit/continue 
    If msgbox("Continue?", vbYesNo) = vbNo Then 
     WScript.quit 
    End If 
    ' Alternately check criteria to quit/continue 
    if myQuitCriteria = True Then 
     WScript.quit 
    End If 
Wend