Flickerama 2: The Password Box

[eynstyne]

Now that the account label is taken care of courtesy of Valuater, I now need a password box to stop flickering.

This too needs to be shielded with "*"s, but 2 edit boxes are now conflicting with each other and the flickering HAS BEGUN!

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_POPUP, $WS_EX_LAYERED)

$Pic1 = GUICtrlCreatePic("f:\oswindow.bmp", 0, -1, 250, 129, -1, $GUI_WS_EX_PARENTDRAG)
$input = GUICtrlCreateInput ("", 30, 80 , 150 , 22, $WS_TABSTOP)
GUICtrlSetFont(-1, 8.9, 400, 0, "Tahoma")
$name = GUICtrlCreatelabel("        ", 47, 54, 200, 22)
GUICtrlSetFont(-1, 8.9, 400, 0, "Tahoma")
$pwdlabel = GUICtrlCreatelabel("     ", 47, 83, 200, 22)
GUICtrlSetFont(-1, 8.9, 400, 0, "Tahoma")
$Accountname = GUICtrlCreateLabel("Account Name:", 40, 36, 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)
       $data2 = GUICtrlRead($name)
         
       If $data <> $data2 Then GUICtrlSetData($name, $Data)
       
      $data3 = GuiCtrlRead($input)
       for $length = 0 to StringLEN($data3)
          StringReplace ( $pwdlabel, $pwdlabel, "*", $length, 1 )
            GuiCtrlSetData($pwdlabel, $data3)
            next
         
       
;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")
                 $pwd =  GuiCtrlRead($pass)
                 $readname =  GuiCtrlRead($input)
                 $user = StringInStr ( $readname, "Eynstyne", 1 )
  
                 if $user = 1 and $readname = "Eynstyne" and $pwd = "MYPASSWORD" 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
                 
    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 thought it was rid of... finished.... no more flickering, but I absolutely must have the password box.

1. Can I stop the flickering for both?

2. Can I substitue asterisks for every letter typed in the password field (Maybe StringLEN + _StringReplace)

If I've double posted, My apologies. I goofed it by posting on scripts and scraps

AAARGH!

Edited April 1, 2006 by eynstyne

[Valuater]

1

remove set-on-event option

and...

$data3 = GuiCtrlRead($input)

for $length = 0 to StringLEN($data3)

StringReplace ( $pwdlabel, $pwdlabel, "*", $length, 1 )

GuiCtrlSetData($pwdlabel, $data3)

next

2

$pass = GUICtrlCreateInput(" ", 47, 87, 140, 22, $ES_PASSWORD )

8)

[eynstyne]

This guy is good