Comment faire une boucle vbscript en boucle aller au début du code

Question

Lors de l'exécution de ce code;

varCheck=True 
Do While varCheck 
    Pass=InputBox("Enter Password") 
    Do 
     If IsEmpty(pass) Then 
      WScript.quit 
      Exit Do 
     End If 
     If Pass = "123" Then 
      varCheck=False 
      Exit Do 
     Else 
      varCheck=True 
      MsgBox("Wrong Password...Try Again") 
     End If 
    Loop 
Loop 

Si le mot de passe est erroné, alors il ne redémarre pas au haut du code, juste des boucles sans fin « Mot de passe incorrect ... Try Again » boîte de message. Comment puis-je demander de nouveau le mot de passe? (p.s. Je suis un débutant au codage alors s'il vous plaît expliquez-vous, merci!) AVERTISSEMENT! Comme je l'ai déjà dit, si vous avez un mot de passe erroné, le message du mot de passe erroné est répété indéfiniment.

Answer 1

Voici le script que vous cherchez, je suggérerais juste de se débarrasser entièrement du msgbox et de l'ajouter au texte InputBox. On dirait que vous avez oublié de casser votre boucle interne après avoir entré le mauvais mot de passe. Donc, il ne pourrait jamais revenir au début.

varCheck=True 
Dim StarterText: StarterText = "" 
Do While varCheck 
    Pass=InputBox(StarterText & "Enter Password") 
    Do 
     If IsEmpty(pass) Then 
      WScript.quit 
      Exit Do 
     End If 
     If Pass = "123" Then 
      varCheck=False 
      Exit Do 
     Else 
      varCheck=True 
      StarterText = "Sorry, wrong password, try again: " 

      Exit Do '<-----this is what you forgot. 

     End If 
    Loop 
Loop