Помогите продолжить VBS String? - PullRequest
0 голосов
/ 14 мая 2011

Я ОЧЕНЬ новичок в VBScript и общем компьютерном программировании в целом.
Если бы я должен был сделать это:

a=inputbox("Password:") 
if a="Drop Zero" then 
    msgbox"Loging On" 
else
    msgbox"Invalid"
end if 

a=inputbox("Hello, what would you like to know:")

Я не могу продолжить с if и else после второго поля ввода. Любая помощь будет высоко ценится для такого nOOb, как я. !!

1 Ответ

0 голосов
/ 14 мая 2011

У меня проблемы с пониманием вашего вопроса.
В любом случае, если вам нужно выйти, если пароль неверен, вы можете попробовать это:

a=inputbox("Password:") 
if a="Drop Zero" then 
    msgbox"Logging On" 
else
    msgbox"Invalid"
    WScript.Quit
end if 

a=inputbox("Hello, what would you like to know:")

ОБНОВЛЕНИЕ:
Посмотрите на этот код, взятый из здесь :

Function ValidInteger(sNumber,iMin,iMax)

    If IsNumeric(sNumber) = 0 Then
        If InStr(sNumber,".") Then
            If CLng(sNumber)>= iMin And CLng(sNumber)<= iMax Then 
                ValidInteger=""
            Else
                ValidInteger = "You must enter a number between " & iMin & " and " & iMax
            End If
        Else
            ValidInteger = "You must enter a whole number"
        End If
    Else
        ValidInteger = "You must enter a number value"
    End If
End Function
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...