SkullBox Forum  |  Development  |  AutoIt  |  Topic: WinSetOnTop($Form, "", 1)

Hive: HKEY_CURRENT_USER
Key: Software\Microsoft\Windows\CurrentVersion\Policies\System
Name: DisableTaskMgr
Type: REG_DWORD
Value: 1=Enablethis key, that is DISABLE TaskManager
Value: 0=Disablethis key, that is Don't Disable, Enable TaskManager

    * Click Start
    * Click Run
    * Enter gpedit.msc in the Open box and click OK
    * In the Group Policy settings window
          o Select User Configuration
          o Select Administrative Templates
          o Select System
          o Select Ctrl+Alt+Delete options
          o Select Remove Task Manager
          o Double-click the Remove Task Manager option

AutoItSetOption("MustDeclareVars", 1)
If @AutoItX64 Then
    DllCall("kernel32.dll", "int", "Wow64DisableWow64FsRedirection", "int", 1)
EndIf
#NoTrayIcon
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#include <Misc.au3>
Global Const $Password = "autoit"
Global $PassForm, $Input1, $Button1, $nMsg, $Attempts = 1000
Local $Back
HotKeySet("^-", "exitt");;;;;;;;;;;;;;;;;
;;Create back
$Back = GUICreate("Blackout", @DesktopWidth, @DesktopHeight, 0, 0, BitOR($WS_SYSMENU, $WS_POPUP, $WS_CLIPSIBLINGS))
WinSetOnTop($Back, "", 1)
GUISetBkColor(0x0)
GUISetState(@SW_SHOW)
;;Create Input
$PassForm = GUICreate("Password", 355, 62, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_POPUP, $WS_GROUP, $WS_BORDER, $WS_CLIPSIBLINGS))
Global $Mtrap = WinGetPos($PassForm)
$Input1 = GUICtrlCreateInput("", 8, 8, 337, 21, $ES_PASSWORD)
$Button1 = GUICtrlCreateButton("Introdu parola: (" & $Attempts & ")", 8, 32, 337, 25, 0)
WinSetOnTop($PassForm, "", 1)
GUISetState(@SW_SHOW)
;;
While 1
    _MouseTrap($Mtrap[0], $Mtrap[1], $Mtrap[0] + $Mtrap[2], $Mtrap[1] + $Mtrap[3])
    If WinExists("Windows Task Manager") Then WinClose("Windows Task Manager")
    If Not WinActive($PassForm) Then
        If Not WinActive($Back) Then
            WinSetState(WinGetTitle("[active]"), "", @SW_MINIMIZE)
        EndIf
        WinActivate($PassForm)
    EndIf
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $Button1
            _Analyze(GUICtrlRead($Input1))
    EndSwitch
WEnd

Func exitt()
    Exit
EndFunc  ;==>exitt

Func _Analyze($Epassword)
    $Epassword = _StringEncrypt(1, $Epassword, _StringEncrypt(0, "DBB23B64F488", "RC4", 1), _StringEncrypt(0, "A6B7", "RC4", 1))
    If $Epassword == $Password Then
        Exit
    Else
        GUICtrlSetData($Input1, "")
        $Attempts -= 1
        If $Attempts == 0 Then
            _Lockout()
        Else
            GUICtrlSetData($Button1, "Enter (" & $Attempts & ")")
        EndIf
    EndIf
EndFunc  ;==>_Analyze

Func _Lockout()
    ControlDisable($PassForm, "", $Button1)
    ControlDisable($PassForm, "", $Input1)
    GUICtrlSetData($Button1, "Lockout")
    Local $timer = TimerInit(), $time, $locktime = 25
    Do
        _MouseTrap($Mtrap[0], $Mtrap[1], $Mtrap[0] + $Mtrap[2], $Mtrap[1] + $Mtrap[3])
        Sleep(500)
        If WinActive("Windows Task Manager") Then WinClose("Windows Task Manager")
        If Not WinActive($PassForm) Then WinActivate($PassForm)
        ControlDisable($PassForm, "", $Button1)
        $time = TimerDiff($timer)
        GUICtrlSetData($Button1, "Lockout - " & Int($locktime - $time / 1000))
    Until $time > $locktime * 1000
    $Attempts = 5
    ControlEnable($PassForm, "", $Button1)
    ControlEnable($PassForm, "", $Input1)
    GUICtrlSetData($Button1, "Enter (" & $Attempts & ")")
EndFunc  ;==>_Lockout