VBS scripting, loop until

Question

can someone explain to me, why when put the loop until answer=true all the codes under this stop working ?

Answer 1

now it's not working at all, haha

Answer 2

error code 800A03F3 expected '=' line 2 character 25

Answer 3

As a general rule

Declare Variables

Never use reserved words (like Password) as variable

Does this do what you need?

Sub TestPW()

Const strPass As String = "bp"

Dim strInput As String

Do

strInput = InputBox("Enter PW")

If Not strInput = strPass Then MsgBox "Try again"

Loop Until strInput = strPass

MsgBox "Correct"

'rest of code

End Sub

Answer 4

msgbox"Βάλε τον κωδικό πρόσβασης για να συνεχίσεις!"

password = "bp"

do

ask=inputbox ("Κωδικός Πρόσβασης:                                                                                                                       Made By Nektarios!")

select case ask

case password

answer=true

x=msgbox("Κωδικός δεκτός!")

wscript.quit

end select

answer=false

x=msgbox("Προσπάθησε ξανά!")

Loop until answer=true

WScript.Sleep 2000

x=msgbox("Τέλεια, τώρα έχεις πρόσβαση!")

Answer 5

You really need to post at least the relevant part of your code.