Jump to content
Sign in to follow this  
JellyFish666

Cool Login Effect

Recommended Posts

JellyFish666

This is really simple but I like the look of it, could be better but I am not good at drawing...

The code could be done up a lot better but I was just after the effect and thought I might share it and see were it ends up.

Download Zip File

User = Default

Password = Test

HotKeySet("{ENTER}" , "_Login")
#include <GUIConstants.au3>
Global $SS_REALSIZEIMAGE , $AccountPath = @ScriptDir & "\Account\" , $Name = @UserName , $Password = "test"
$Login = GUICreate("Login", 300, 320 , Default , Default , $WS_POPUP) ;, $WS_EX_LAYERED)
$Pic = GUICtrlCreatePic($AccountPath & "Login1.jpg", 0, 0, 300, 300, $SS_REALSIZEIMAGE)
$User = GUICtrlCreateInput(@UserName , 0 , 300 , 150 , 20)
$Pass = GUICtrlCreateInput("Password" , 150 , 300 , 150 , 20 , $ES_PASSWORD)
GUISetState(@SW_SHOW)

While 1
    If Not WinActive($Login) Then       HotKeySet("{ENTER}")
    Else
        HotKeySet("{ENTER}" , "_Login")
    EndIf
    $Msg = GUIGetMsg()
    Switch $Msg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

Func _Login()
    If GUICtrlRead($User) = "" Or GUICtrlRead($Pass) = "" Then
        MsgBox(0 , "" , "no box should be left blank")
    ElseIf $Name = GUICtrlRead($User) And $Password = GUICtrlRead($Pass) Then
        GUICtrlDelete($Pic)
        $Pic = GUICtrlCreatePic($AccountPath & "Login2.jpg", 0, 0, 300, 300, $SS_REALSIZEIMAGE)
        Sleep(600)
        GUICtrlDelete($Pic)
        $Pic = GUICtrlCreatePic($AccountPath & "Login3.jpg", 0, 0, 300, 300, $SS_REALSIZEIMAGE)
        MsgBox(0 , "Access" , "Unlocked") 
    Else
        MsgBox(0 , "" , "please enter the correct name or password")
    EndIf
EndFunc

Posted ImagePosted ImagePosted Image

Edited by JellyFish666

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×