Cool Login Effect

[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

Edited May 19, 2008 by JellyFish666