eynstyne Posted April 1, 2006 Share Posted April 1, 2006 I'm creating a "mac-like" login screen. When a user gets the password wrong, the window will shake. Since MAC has a different GUI look, I created a bunch of bitmaps to make the window look "mac-like" The editbox is hidden from view, but a user can still type stuff in and it will show in the position of the picture of the MAC editbox. One problem, The label flickers. I have tried almost everything to get it to stop. 1. Can I get the label to stop flickering? 2. Can I get a label to act like an editbox? I've posted this before, but I didn't get enough advice. Pleeeeeeeeeeaaaaaaaaaaasssssssssseeeeeeeee help! Thanks in advance F@m!ly Guy Fr33k! - Avatar speaks for itself__________________________________________________________________________________________ite quotes... - Is your refrigerator running? If it is, It probably runs like you...very homosexually - Christians don't believe in gravity - Geeze Brian where do you think you are, Payless?- Show me potato Salad!__________________________________________________________________________________________Programs available - Shutdown timer[indent][/indent] Link to comment Share on other sites More sharing options...
Valuater Posted April 1, 2006 Share Posted April 1, 2006 we cannot help without seeing the code... maybe pics also 8) Link to comment Share on other sites More sharing options...
eynstyne Posted April 1, 2006 Author Share Posted April 1, 2006 expandcollapse popup#notrayicon #include <f:\documents\autoit3 beta\include\GUIConstants.au3> #include <f:\documents\autoit3 beta\include\misc.au3> #include <f:\documents\autoit3 beta\include\String.au3> Hotkeyset("!{SPACE}", "Shake") Hotkeyset("!{F4}", "Shake") Hotkeyset("!{TAB}", "Shake") Hotkeyset("{CTRL}", "Shake") ;Regwrite("HKCU\Software\Microsoft\Windows\Currentversion\Policies\System\","DisableTaskMgr","REG_DWORD",0x0000001) Opt("WinTitleMatchmode",4) Opt("GuiOnEventMode", 1) ;Winsetstate("classname=Progman","",@SW_HIDE) ;Winsetstate("classname=Shell_TrayWnd","",@SW_HIDE) $Form2 = GUICreate("Login", 249, 128, -1, -1, $WS_BORDER + $WS_TABSTOP + $WS_POPUP, $WS_EX_LAYERED) $Pic1 = GUICtrlCreatePic("f:\oswindow.bmp", 0, -1, 250, 129, -1, $GUI_WS_EX_PARENTDRAG) $input = GUICtrlCreateInput ("", 30, 80 , 100 , 22, 0) GUICtrlSetFont(-1, 11, 800, 4, "Tahoma") GUICtrlSetFont(-1, 8.9, 400, 0, "Tahoma") GUICtrlSetFont(-1, 8.9, 400, 0, "Tahoma") $name = GUICtrlCreatelabel(" ", 50, 54, 200, 22) GUICtrlSetFont(-1, 8.9, 400, 0, "Tahoma") $Accountname = GUICtrlCreateLabel("Account Name:", 40, 34, 140, 22) GUICtrlSetFont(-1, 8.9, 400, 0, "Tahoma") $Accountname = GUICtrlCreateLabel("Password:", 40, 68, 140, 22) GUICtrlSetFont(-1, 8.9, 400, 0, "Tahoma") GUISetState(@SW_SHOW) ControlHide("Login","","Edit1") Winminimizeall() WinSetTrans("Login","",220) WinActivate("Login","") While 1 $data = GuiCtrlRead($input) GUICtrlSetData($name, $Data) GUICtrlRead($name) ;ProcessClose("Explorer.exe") $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE $pos = wingetpos("Login","") winmove("Login","", $pos[0] -50, $pos[1]) sleep(20) winmove("Login","", $pos[0] +50, $pos[1]) sleep(20) winmove("Login","", $pos[0] -50, $pos[1]) sleep(20) winmove("Login","", $pos[0] +50, $pos[1]) sleep(20) winmove("Login","", $pos[0] -50, $pos[1]) sleep(20) winmove("Login","", $pos[0] +50, $pos[1]) sleep(20) winmove("Login","", $pos[0], $pos[1]) GUICtrlSetData($input, "") Case _IsPressed("1b", "user32.dll") $pos = wingetpos("Login","") winmove("Login","", $pos[0] -50, $pos[1]) sleep(20) winmove("Login","", $pos[0] +50, $pos[1]) sleep(20) winmove("Login","", $pos[0] -50, $pos[1]) sleep(20) winmove("Login","", $pos[0] +50, $pos[1]) sleep(20) winmove("Login","", $pos[0] -50, $pos[1]) sleep(20) winmove("Login","", $pos[0] +50, $pos[1]) sleep(20) winmove("Login","", $pos[0], $pos[1]) GUICtrlSetData($input, "") Case _IsPressed("0d", "user32.dll") $readname = GuiCtrlRead($input) $user = StringInStr ( $readname, "Eynstyne", 1 ) if $user = 1 and $readname = "Eynstyne" then for $i = 1 to 220 WinSetTrans("Login","",220 - $i) sleep(1) next Regwrite("HKCU\Software\Microsoft\Windows\Currentversion\Policies\System\","DisableTaskMgr","REG_DWORD",0x0000000) ; Run("Explorer.exe","",@SW_MAXIMIZE) Winsetstate("classname=Progman","",@SW_SHOW) Winsetstate("classname=Shell_TrayWnd","",@SW_SHOW) exit else sleep(200) $pos = wingetpos("Login","") winmove("Login","", $pos[0] -50, $pos[1]) sleep(20) winmove("Login","", $pos[0] +50, $pos[1]) sleep(20) winmove("Login","", $pos[0] -50, $pos[1]) sleep(20) winmove("Login","", $pos[0] +50, $pos[1]) sleep(20) winmove("Login","", $pos[0] -50, $pos[1]) sleep(20) winmove("Login","", $pos[0] +50, $pos[1]) sleep(20) winmove("Login","", $pos[0], $pos[1]) GUICtrlSetData($input, "") endif Case _IsPressed("09", "user32.dll") GUICtrlSetData($input, "" ) EndSelect WEnd Func bye() Regwrite("HKCU\Software\Microsoft\Windows\Currentversion\Policies\System\","DisableTaskMgr", "REG_DWORD",0x0000000) WinMinimizeAllUndo() ;Run("Explorer.exe","",@SW_MAXIMIZE) Winsetstate("classname=Progman","",@SW_SHOW) Winsetstate("classname=Shell_TrayWnd","",@SW_SHOW) exit endfunc Func Shake() $pos = wingetpos("Login","") winmove("Login","", $pos[0] -50, $pos[1]) sleep(20) winmove("Login","", $pos[0] +50, $pos[1]) sleep(20) winmove("Login","", $pos[0] -50, $pos[1]) sleep(20) winmove("Login","", $pos[0] +50, $pos[1]) sleep(20) winmove("Login","", $pos[0] -50, $pos[1]) sleep(20) winmove("Login","", $pos[0] +50, $pos[1]) sleep(20) winmove("Login","", $pos[0], $pos[1]) GUICtrlSetData($input, "") endfunc I'm not sure if you can post a pic on the post so I'll just attach them F@m!ly Guy Fr33k! - Avatar speaks for itself__________________________________________________________________________________________ite quotes... - Is your refrigerator running? If it is, It probably runs like you...very homosexually - Christians don't believe in gravity - Geeze Brian where do you think you are, Payless?- Show me potato Salad!__________________________________________________________________________________________Programs available - Shutdown timer[indent][/indent] Link to comment Share on other sites More sharing options...
Valuater Posted April 1, 2006 Share Posted April 1, 2006 maybe $data = GuiCtrlRead($input) $data2 = GUICtrlRead($name) If $data <> $data2 Then GUICtrlSetData($name, $Data) 8) Link to comment Share on other sites More sharing options...
eynstyne Posted April 1, 2006 Author Share Posted April 1, 2006 Beauuuuuuuuuutiful! TYVM Almost felt F@m!ly Guy Fr33k! - Avatar speaks for itself__________________________________________________________________________________________ite quotes... - Is your refrigerator running? If it is, It probably runs like you...very homosexually - Christians don't believe in gravity - Geeze Brian where do you think you are, Payless?- Show me potato Salad!__________________________________________________________________________________________Programs available - Shutdown timer[indent][/indent] Link to comment Share on other sites More sharing options...
Valuater Posted April 1, 2006 Share Posted April 1, 2006 Welcome 8) 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