AU3-挂机锁
#cs ----------------------------------------------------------------------------AutoIt Version: 3.1.1.0
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
Dim $x, $y,$exitpass,$Pass,$bpass,$cpass,$temp,$var
If @DesktopWidth = 640 Then
$x = 640
$y = 480
ElseIf @DesktopWidth = 800 Then
$x = 800
$y = 600
ElseIf @DesktopWidth = 1024 Then
$x = 1027
$y = 768
EndIf
#include <GUIConstants.au3>
#include <Misc.au3>
#NoTrayIcon
Opt("WinTitleMatchMode",4)
if FileExists(@TempDir &"\1.ICO") = "" then
FileInstall("1.Ico", @TempDir &"\1.ICO",0)
FileInstall("2.Ico", @TempDir &"\2.ICO",0)
FileInstall("3.Ico", @TempDir &"\3.ICO",0)
Else
FileDelete(@TempDir &"\1.ICO")
FileDelete(@TempDir &"\2.ICO")
FileDelete(@TempDir &"\3.ICO")
FileInstall("1.Ico", @TempDir &"\1.ICO",0)
FileInstall("2.Ico", @TempDir &"\2.ICO",0)
FileInstall("3.Ico", @TempDir &"\3.ICO",0)
EndIf
$exitpass=iniread(@ScriptDir& "\" &"Dlock.ini","config","ExitPass","")
$Desktop=GUICreate("计算机已被锁定", $x,$y,0,0,BitOR($WS_CAPTION,$WS_BORDER,$WS_CLIPSIBLINGS,$WS_EX_TOPMOST))
GUICtrlCreateLabel("本机已被锁定,请勿尝试操作", 200, 96, 700, 50)
GUICtrlSetFont(-1, 36, 800, 0, "黑体")
GUICtrlSetColor(-1, 0xFF0000)
GUISetBkColor(0x3A6EA5)
$Pass = GUICtrlCreateInput("", 400, 200, 200, 36,$ES_PASSWORD)
GUICtrlSetTip(-1, "请输入解锁密码")
GUICtrlSetFont(-1, 26, 800, 0, "黑体")
$XPass = GUICtrlCreateInput("", 400, 250, 200, 36)
GUICtrlSetTip(-1, "请输入新密码")
GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlSetFont(-1, 26, 800, 0, "黑体")
$Button1 = GUICtrlCreateButton("解锁密码", 600, 201, 36, 36,$BS_ICON)
GUICtrlSetImage($Button1, @TempDir& "\" &"1.ico")
GUICtrlSetTip(-1, "解锁密码")
$Button2 = GUICtrlCreateButton("修改密码", 600, 251, 36, 36,$BS_ICON)
GUICtrlSetImage($Button2, @TempDir& "\" &"2.ico")
GUICtrlSetTip(-1, "修改密码")
GUICtrlSetState(-1, $GUI_HIDE)
$Button3 = GUICtrlCreateButton("退出锁定", 600, 301, 36, 36,$BS_ICON)
GUICtrlSetImage($Button3, @TempDir& "\" &"3.ico")
GUICtrlSetTip(-1, "退出锁定")
GUICtrlSetState(-1, $GUI_HIDE)
GUISetState (@SW_SHOW,$Desktop)
WinSetTrans("计算机已被锁定", "", 255)
WinSetOnTop("计算机已被锁定", "", 1)
WinSetState("classname=Shell_TrayWnd","",@SW_HIDE)
While 1
If WinActive("classname=Shell_TrayWnd") Then
Send("{Esc}")
EndIf
_MouseTrap (3,24, 1019 ,737)
$msg = GUIGetMsg()
Select
Case $msg = $Button1
Pass()
Case $msg = $Button2
configpass()
Case $msg = $Button3
FileDelete(@TempDir &"\1.ICO")
FileDelete(@TempDir &"\2.ICO")
FileDelete(@TempDir &"\3.ICO")
WinSetState("classname=Shell_TrayWnd","",@SW_SHOW)
Exit
Case $msg = $GUI_EVENT_CLOSE
EndSelect
WEnd
_MouseTrap ()
Exit
Func pass()
$exitpass=StringTrimLeft ($exitpass,0)
$LPass=GUICtrlRead($pass)
if $Lpass<>$exitpass then
ToolTip("密码错误,请重新输入")
Return
Else
ToolTip("")
$Pass = GUICtrlCreateInput("", 400, 200, 200, 36,$ES_PASSWORD,$ES_READONLY);,,0x21
GUICtrlSetFont(-1, 26, 800, 0, "黑体")
GUICtrlSetState(-1, $GUI_HIDE)
$XPass = GUICtrlCreateInput("", 400, 250, 200, 36);,,0x21
GUICtrlSetFont(-1, 26, 800, 0, "黑体")
GUICtrlSetTip(-1, "请输入新密码")
$Button2 = GUICtrlCreateButton("修改密码", 600, 251, 36, 36,$BS_ICON)
GUICtrlSetImage($Button2, @TempDir& "\" &"2.ico")
GUICtrlSetTip(-1, "修改密码")
$Button3 = GUICtrlCreateButton("退出锁定", 600, 301, 36, 36,$BS_ICON)
GUICtrlSetImage($Button3, @TempDir& "\" &"3.ico")
GUICtrlSetTip(-1, "退出锁定")
GUISetState (@SW_SHOW,$Desktop)
endif
EndFunc
Func configpass()
$XGPass=GUICtrlRead($Xpass)
if $XGpass <> "" then
ToolTip("")
IniWrite(@ScriptDir& "\" &"Dlock.ini","config","ExitPass",""& $XGpass &"")
Else
ToolTip("不能使用空密码")
endif
EndFunc
页:
[1]