login

[realkiller]

how can i make a login screen

iam a little bit stuck atm

$12 =
while 1
$passwd = InputBox("Security Check", "Enter your password.",$12, "")

WEnd

[Xenobiologist]

Hi,

may have a login at my LoginWrapper or just do it this way:

$password = "test"

Do
    Sleep(100)
Until Login()

Func Login()
    $login_Password_I = InputBox("Login", "Password please: ", "", "*")
    If $login_Password_I == $password Then Return 1
    Return 0
EndFunc   ;==>Login

So long,

Mega

[PaulIA]

how can i make a login screen

iam a little bit stuck atm

$12 =
while 1
$passwd = InputBox("Security Check", "Enter your password.",$12, "")
WEnd

Where are you stuck at? You've got the basics other than some minor tweaking. For example:

Func CheckPassword()
  Local $sPassword

  while 1
    $sPassword = InputBox("Security Check", "Enter your password:", "", "*")
    ;
    ; Validate password and call ExitLoop if valid
    ;
  wend
EndFunc

[Paulie]

Local $Password = "Password"
    
Do
    $sPass = InputBox("Security Check", "Enter your password:", "", "*")
    If $sPass = $Password Then
        MsgBox(0, "Access Granted", "Thank you, you have logged in successfully.")
    Else
        MsgBox(0, "Access Denied", "Sorry, you did not enter the correct password."&@CRLF&"Try Again.")
    Endif
Until $sPass = $Password

If you want, you can not use it as a function, and just do it like this.

[realkiller]

Local $Password = "Password"
    
Do
    $sPass = InputBox("Security Check", "Enter your password:", "", "*")
    If $sPass = $Password Then
        MsgBox(0, "Access Granted", "Thank you, you have logged in successfully.")
    Else
        MsgBox(0, "Access Denied", "Sorry, you did not enter the correct password."&@CRLF&"Try Again.")
    Endif
Until $sPass = $Password

If you want, you can not use it as a function, and just do it like this.

thx for the support got it now;)