Sign in to follow this  
Followers 0
eynstyne

Flickerama

6 posts in this topic

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



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

8)


NEWHeader1.png

Share this post


Link to post
Share on other sites

#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

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

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

Welcome

8)


NEWHeader1.png

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  
Followers 0