JellyFish666 Posted May 19, 2008 Share Posted May 19, 2008 (edited) 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 FileUser = DefaultPassword = TestHotKeySet("{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 Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now