AHK: Распаковка запароленного zip-архива

DIALOG_TITLE = Ввод пароля
SourceFullPath = %1% ; Путь к извлекаемому файлу в архиве
	; (например, "D:\test.zip\test\1.pdf" означает, что
	; в архиве D:\test.zip находится каталог test c файлом 1.pdf)
TargetDirPath = %2% ; Путь к целевому каталогу
	; (предполагается, что он уже существует).
	; Пути не должны завершаться на "\".
Password = %3% ; Пароль (если нужен).

if (Password)
	goto 2

FSO := ComObjCreate("Scripting.FileSystemObject")
Shell := ComObjCreate("Shell.Application")
SourceFolder := Shell.NameSpace(FSO.GetParentFolderName(SourceFullPath))
SourceFolderItem := SourceFolder.ParseName(FSO.GetFileName(SourceFullPath))
TargetFolder := Shell.NameSpace(TargetDirPath)
TargetFolder.CopyHere(SourceFolderItem)
Exit

2:
Run % (A_IsCompiled ? "" : ("""" A_AhkPath """ ")) """" A_ScriptFullPath """"
		. " """ SourceFullPath """ """ TargetDirPath """"
	,,, PID
WinWait %DIALOG_TITLE% ahk_pid %PID%
ControlSetText Edit1, %Password%
ControlClick Button1

UnZip(A_ScriptDir . "\test.zip", A_ScriptDir . "\Files", "1234")

UnZip(zipFile, targetFolder, password := "", dialogTitle := "Ввод пароля")  {
   static info := {}
   if password  {
      info.timerID := DllCall("SetTimer", Ptr, 0, Ptr, 0, UInt, 50
                                        , Ptr, RegisterCallback( "EnterPassword", "F",, ptr := Object(info) ))
      info.password := password, info.dialogTitle := dialogTitle
      info.myPID := DllCall("GetCurrentProcessId")
      ObjRelease(ptr)
   }
   if !InStr( FileExist(targetFolder), "D" )
      FileCreateDir, % targetFolder
   oShell := ComObjCreate("Shell.Application")
   items := oShell.NameSpace(zipFile).Items
   oShell.NameSpace(targetFolder).CopyHere(items)
}

EnterPassword()  {
   info := Object(A_EventInfo)
   IfWinExist, % info.dialogTitle . " ahk_class #32770 ahk_pid " . info.myPID
   {
      DllCall("KillTimer", Ptr, 0, Ptr, info.timerID)
      ControlSetText, Edit1, % info.password
      ControlClick, Button1
   }
}