Jump to content

Flickerama


Recommended Posts

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

#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

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]
Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...