VB脚本简单循环问题

我有一个简单的脚本，我不想在最后关闭（退出）。我希望它再次从头开始。VB脚本简单循环问题

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

来源

2011-06-17 user791276

我已经格式化你的代码的代码，下一次选择该自己做，按钮可以编辑窗口中的菜单栏上找到，并期待这样的：'{}'为了保证及时回答，您可能想花时间缩进。 – Fionnuala

将代码包装在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

来源

2011-06-17 17:57:23 dmogle

非常感谢dmogle，工作的魅力;） – user791276

VB脚本简单循环问题

回答

相关问题