VBS Message Box

Question

首先我很抱歉，我对VBS非常非常陌生，但我正在尝试创建一个小脚本，然后在网站上完成一系列关键笔划，然后转到另一个网站，并完成另一系列的关键笔画。

虽然在第一个网站上，我需要问一个问题，如行动完成。是或否

如果否，那么脚本需要返回到脚本的开始处。如果是，那么脚本需要继续。

后来，在第二个网站上，几个按键后，我需要问另一个问题天气来循环整个过程或停止。

我搜索了一些消息框的解决方案，但它似乎并没有工作。我有

第一个问题框。

intSerialNumber = _ 
     Msgbox("Was there a problem?", _ 
      vbYesNo, "Problem?") 

    If intSerialNumber = vbYes Then 
     LoopShip 
    Else 
     Continue 
    End If 

Continue 

第二个问题框。

If msgbox("Continue?", vbYesNo) = vbNo Then 
      WScript.quit 
     End If 
     if LoopShip = True Then 
      LoopShip 
    End If 

Wend 

Answer 1

尝试使用嵌套循环和函数来实现这种可读性。用户可以根据需要多次重新运行第一个网站的代码，并且可以根据需要多次重新运行两个网站的代码。

Dim problemsOccurred  
problemsOccurred = vbYes 
Do 
    Call firstWebsite() 
    problemsOccurred = secondWebsite() 
Loop Until (problemsOccurred = vbNo) 


Sub firstWebsite() 
    Dim firstWebsiteProblem 
    firstWebsiteProblem = vbYes 

    Do 
     'First Website code Goes here 
     firstWebsiteProblem = Msgbox("Was there a problem?", vbYesNo, "Problem?") 
    Loop Until (firstWebsiteProblem = vbNo) 

End Sub 


Function secondWebsite() 
    'Second WebSite code goes here 
    secondWebsite = MsgBox("Continue Whole Process?", vbYesNo) 
End Function