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