Jump to content
Sign in to follow this  
eynstyne

Flickerama

Recommended Posts

eynstyne

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]

Share this post


Link to post
Share on other sites
Valuater

we cannot help without seeing the code... maybe pics also

8)


NEWHeader1.png

Share this post


Link to post
Share on other sites
eynstyne

#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]

Share this post


Link to post
Share on other sites
Valuater

maybe

$data = GuiCtrlRead($input)
       $data2 = GUICtrlRead($name)
       If $data <> $data2 Then GUICtrlSetData($name, $Data)

8)


NEWHeader1.png

Share this post


Link to post
Share on other sites
eynstyne

Beauuuuuuuuuutiful! TYVM Almost felt :)

:mellow:


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]

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  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.