Man(n) kann den Spaß natürlich auch unendlich erweitern und noch weiter vereinfachen (mehr Variable einsetzen für Startzeiten, Infos etc.
Spoiler anzeigen
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.2.1.3 (beta)
Author: Valuater / Thomas Mega
Script Function:
Lock Screen
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]; Script Start - Add your code below here
[/autoit] [autoit][/autoit] [autoit]#include <GuiConstants.au3>
#include <File.au3>
#include <misc.au3>
#notrayicon
$VER = "1.0.5 | "
$Ti=@HOUR & ":" & @MIN & ":" & @SEC
$Info = " to do : 20:00 Uhr Backup" ; " to do : 20:00 Uhr Backup"
$Infoneu = " gestartet : 20:00 Uhr Backup" ; " gestartet : 20:00 Uhr Backup"
Opt("WinTitleMatchMode", 4)
Dim $KEY = "111"
Dim $ENTRY, $ATTEMPT = 0, $PHOTO = 3, $COMBO
;ENTRY()
;If $COMBO = "" Then Exit
HotKeySet("!{TAB}", "BREAKIN")
HotKeySet("{ESC}", "BREAKIN")
HotKeySet("{F9}", "ENTRY")
$SAFE = GUICreate('')
GUISetState($WS_EX_TRANSPARENT, $SAFE)
$VAULT = GUICreate(" * MEGA * ", @DesktopWidth, @DesktopHeight, -1, -1, -1, -1, $SAFE)
GUISetState()
ToolTip("Protected by, * MEGA * v" & $VER & $Ti & @CRLF & $Info, 5, 5)
WinSetOnTop(" * MEGA *", "", 1)
WinSetTrans(" * MEGA *", "", 1)
$LOCK = DllOpen("user32.dll")
;MsgBox(262160, " * MEGA *", "LOCKED", 3)
WinSetOnTop(" * MEGA *", "", 1)
; *** Direktes sperren des Bildschirm - keine Abfrage nach dem Key
_FileWriteLog(@ScriptDir & "\lock.txt", "LOCKED")
SECURE()
$ENTRY = 1
$go=0 ; Flag für einmaligen Start
While 1
For $TRY = 1 To 91
If _IsPressed($TRY, $LOCK) Or _IsPressed("0D", $LOCK) Then
BREAKIN()
EndIf
Next
WinMinimizeAll()
; _MouseTrap(95, 18, 140, 22)
_MouseTrap(200, 20, 240, 25)
WinSetOnTop(" * MEGA *", "", 1)
Sleep(1)
$Ti=@HOUR & ":" & @MIN & ":" & @SEC
ToolTip("Protected by, * MEGA * v" & $VER & $Ti & @CRLF & $Info, 5, 5)
If $Ti="20:00:00" and $go=0 Then
run("C:\Dokumente und Einstellungen\thomasb\Desktop\autoit-v3\ADTG.exe","")
$go=1
$Info = $Infoneu
EndIf
WEnd
Func ENTRY()
;WinSetState("Program Manager", "", @SW_SHOW)
$COMBO = InputBox(" * MEGA *", "Please Type in Your Password", "", "*", 150, 100, 50, 50, 10)
If $COMBO = "" Then Return
If Not $ENTRY Then
If $COMBO = $KEY Then
; _FileWriteLog(@ScriptDir & "\lock.txt", "LOCKED")
; SECURE()
; $ENTRY = 1
; Return
; Else
WinSetState("Program Manager", "", @SW_HIDE)
$ATTEMPT = $ATTEMPT + 1
_FileWriteLog(@ScriptDir & "\lock.txt", "*** LOCK ERROR *** " & $ATTEMPT)
MsgBox(262160, " * MEGA *", "LOCK ERROR", 3)
WinSetOnTop(" * MEGA *", "", 1)
REPORT()
WinSetOnTop(" * MEGA *", "", 1)
Exit
EndIf
Else
If $COMBO = $KEY Then
_FileWriteLog(@ScriptDir & "\lock.txt", "UNLOCKED")
DllClose($LOCK)
WinClose("Windows Task Manager")
WinClose("Windows Task-Manager")
WinClose("Windows-Sicherheit")
MsgBox(64, " * MEGA *", "UNLOCKED", 3)
WinMinimizeAllUndo()
ControlEnable("classname=Shell_TrayWnd", "", "ToolbarWindow321")
ControlEnable("classname=Shell_TrayWnd", "", "ToolbarWindow322")
ControlEnable("classname=Shell_TrayWnd", "", "ToolbarWindow323")
ControlEnable("classname=Shell_TrayWnd", "", "Button1")
WinSetState("classname=Progman", "", @SW_ENABLE)
WinSetState("Classname=Shell_TrayWnd", "", @SW_SHOW)
WinSetState("Program Manager", "", @SW_SHOW)
WinSetState("DV2ControlHost", "", @SW_SHOW)
_MouseTrap()
Exit
Else
$ATTEMPT = $ATTEMPT + 1
_FileWriteLog(@ScriptDir & "\lock.txt", "*** UNLOCK ERROR *** " & $ATTEMPT)
;MsgBox(262160, " *Mega*", "UNLOCK ERROR", 3)
WinSetOnTop(" * MEGA *", "", 1)
REPORT()
WinSetOnTop(" * MEGA *", "", 1)
Return
EndIf
EndIf
EndFunc ;==>ENTRY
Func BREAKIN()
WinSetState("Program Manager", "", @SW_HIDE)
WinMinimizeAll()
WinSetOnTop(" * MEGA *", "", 1)
$ATTEMPT = $ATTEMPT + 1
_FileWriteLog(@ScriptDir & "\lock.txt", "*** BREAKIN ERROR *** " & $ATTEMPT)
WinSetState("Windows Task Manager", "", @SW_HIDE)
WinSetState("Windows Task-Manager", "", @SW_HIDE)
WinSetState("Windows-Sicherheit", "", @SW_HIDE)
;MsgBox(262160, " * MEGA *", "BREAKIN ERROR", 3)
WinMinimizeAll()
WinSetOnTop(" * MEGA *", "", 1)
REPORT()
WinSetOnTop(" * MEGA *", "", 1)
EndFunc ;==>BREAKIN
Func SECURE()
Run("taskmgr.exe", "", @SW_DISABLE)
ControlDisable("classname=Shell_TrayWnd", "", "ToolbarWindow321")
ControlDisable("classname=Shell_TrayWnd", "", "ToolbarWindow322")
ControlDisable("classname=Shell_TrayWnd", "", "ToolbarWindow323")
ControlDisable("classname=Shell_TrayWnd", "", "Button1")
WinSetState("Program Manager", "", @SW_HIDE)
WinSetState("classname=Progman", "", @SW_DISABLE)
WinSetState("DV2ControlHost", "", @SW_HIDE)
WinMinimizeAll()
ControlSetText("classname=Shell_TrayWnd", "", "Button1", "*V*")
WinSetState("Classname=Shell_TrayWnd", "", @SW_HIDE)
EndFunc ;==>SECURE
[/autoit] [autoit][/autoit] [autoit]Func REPORT()
WinMinimizeAll()
ProgressOn(" * MEGA *", "SAVING TO FILE", "0 PERCENT")
For $i = 10 To 100 Step 10
Sleep(50)
ProgressSet($i, $i & " PERCENT")
Next
ProgressSet(100, "DONE", "COMPLETE")
WinMinimizeAll()
Sleep(500)
ProgressOff()
EndFunc ;==>REPORT