How to Run a Passwordcheck before open the GUI?

[svenjatzu]

Hi

im looking for a way to create a Passwordfield, that runs another script after entring the right pw.

 

Someone can help me with that?

[Nine]

InputBox (...) maybe ?

[svenjatzu]

This looks nice,

now how can i make it work like?

 

#include <MsgBoxConstants.au3>

Example()

Func Example()

    Local $sPasswd = InputBox("Security Check", "Enter your password.", "", "*")   ;;;; if the password is 1234

   if $sPasswd= "1234"                                                                                                       ;;;;check if pw is 1234
      MsgBox(1,"work","",0)

elseif

exit
   EndFunc   ;==>Example

 

[Xenobiologist]

Where is the problem?

Get the password with Inputbox or whatever

Check the password and then Run your script.

[svenjatzu]

16 minutes ago, Xenobiologist said:

Where is the problem?

Get the password with Inputbox or whatever

Check the password and then Run your script.

can you please excamplescript it XD

[Nine]

After the inputbox, you need to check is user has canceled the entry.  Read carefully help file, all explanations are in there 

[Xenobiologist]

#include <MsgBoxConstants.au3>

Example()

Func Example()
    Local $sPasswd = InputBox("Security Check", "Enter your password.", "", "*")
    If Not @error Then
        If $sPasswd == "1234" Then
            Run("notepad.exe")
        Else
            Exit
        EndIf
    EndIf
EndFunc   ;==>Example

Here is your fish 🙂

[svenjatzu]

2 minutes ago, Xenobiologist said:

#include <MsgBoxConstants.au3> Example() Func Example() Local $sPasswd = InputBox("Security Check", "Enter your password.", "", "*") If Not @error Then If $sPasswd == "1234" Then Run("notepad.exe") Else Exit EndIf EndIf EndFunc ;==>Example

Coud iT be love?

 

Thanks Xenobiologist

[svenjatzu]

One more thing to go along with,

is there a way to change the box´s color and center it on the screen, eleminate the top of the box and buttons?

[svenjatzu]

: )

Edited August 11, 2019 by svenjatzu

[Nine]

Nope you will need to create a GUI or use an already written UDF for that.  Search Google for it ...

[Xenobiologist]

Try this:

Everytime you change the password and hit enter, the counter goes +1. After 3 attempts the script exits.

expandcollapse popup

#include <MsgBoxConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Global $THE_PASSWORD = '1234'

main()

Func main()
    GUICreate("", 196, 29, @DesktopWidth / 2 - 96, @DesktopHeight / 2 - 62, $WS_POPUP)
    GUICtrlSetDefBkColor(0xFF0000)
    GUISetBkColor(0xFF0000)
    GUICtrlCreateLabel("Passwort", 8, 8, 47, 17)
    GUICtrlSetColor(-1, 0xFFFFFF)
    Local $password_I = GUICtrlCreateInput("", 64, 4, 121, 21, $SS_NOTIFY)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUISetState(@SW_SHOW)

    Local $counter = 0

    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                Exit
            Case $password_I

                If GUICtrlRead($password_I) == $THE_PASSWORD Then
                    Run("notepad.exe")
                    ; your stuff
                Else
                    $counter += 1
                EndIf
                If $counter = 3 Then
                    MsgBox(16, 'ERROR', 'Shame on you!', 5)
                    Exit
                EndIf
        EndSwitch
    WEnd
EndFunc   ;==>main

 

Edited August 9, 2019 by Xenobiologist

[svenjatzu]

Thats awesome Xenobiologist

  Thanks alot : ) you made it look like the original one : D

So theres a real last litte thing left, can it be changed to that the entered password is shown in **** instead of 1234?

[Nine]

yes use $ES_PASSWORD as style in input creation...

[svenjatzu]

Thanks Nine