Серый форум — AHK: Самоуничтожение скомпилированого скрипта

Re: AHK: Самоуничтожение скомпилированого скрипта

null@example.com (wisgest) — Thu, 16 Jul 2015 02:12:54 +0000

Re: AHK: Самоуничтожение скомпилированого скрипта

null@example.com (teadrinker) — Mon, 05 Aug 2013 13:30:44 +0000

KepocuH пишет:

Вроде работает без ошибок.

Ничем не лучше самого первого варианта, где вместо проверки существования процесса просто Sleep. Нет гарантии, что данного промежутка времени в любом случае хватит.

Re: AHK: Самоуничтожение скомпилированого скрипта

null@example.com (KepocuH) — Mon, 05 Aug 2013 13:11:59 +0000

Я делал вот так:

    
;
;тут текст скрипта
;
bat = ping 127.0.0.1 > NUL`ndel /F /Q CompiledScript.exe`ndel /F /Q delete.bat
FileDelete, delete.bat
FileAppend %bat%, delete.bat
Run delete.bat, ,Hide 
ExitApp

Вроде работает без ошибок.

Re: AHK: Самоуничтожение скомпилированого скрипта

null@example.com (avens) — Fri, 26 Jul 2013 10:46:41 +0000

Наверное наиболее целесообразнее будет использовать VBScript от teadrinker.

Благодарю всех!

Удачи!

Re: AHK: Самоуничтожение скомпилированого скрипта

null@example.com (teadrinker) — Thu, 25 Jul 2013 14:18:27 +0000

Так ты же сам просил силами AHK гг). Исполняемый файл сам себя удалить не может.
Твой код выдаёт ошибку потому, что пытается удалить файл, который ещё не завершил работу, нужна проверка существования его процесса:

PID := DllCall("GetCurrentProcessId")
OnExit, Exit
ExitApp

Exit:
   Script =
   (
      Set objWMI = GetObject("winmgmts:")
      Do
         WScript.Sleep 100
      Loop Until objWMI.ExecQuery("Select * from Win32_Process Where ProcessId = '%PID%'").Count = 0
         
      Set FSO = CreateObject("Scripting.FileSystemObject")
      FSO.GetFile("%A_ScriptFullPath%").Delete
      FSO.GetFile(WScript.ScriptFullName).Delete
   )
   FileAppend, % Script, %A_Temp%\Kill.vbs
   Run, %A_Temp%\Kill.vbs
   ExitApp

Re: AHK: Самоуничтожение скомпилированого скрипта

null@example.com (avens) — Thu, 25 Jul 2013 10:32:18 +0000

Этот вариант хорош если на компьютере установлен AutoHotKey, который запускает файлы с расширением .ahk
Мне нужно что бы срабатывало и в тех случаях, когда AHK не установлен на компьютере. И что бы не оставалось больше никаких посторонних файлов.

Re: AHK: Самоуничтожение скомпилированого скрипта

null@example.com (teadrinker) — Thu, 25 Jul 2013 10:22:18 +0000

Вот так примерно:

PID := DllCall("GetCurrentProcessId")
OnExit, Exit
ExitApp

Exit:
   Script =
   (
      #NoTrayIcon
      Loop
      {
         Sleep, 100
         Process, Exist, %PID%
         if !ErrorLevel 
            break
      }
      FileDelete, %A_ScriptFullPath%
      FileDelete, `%A_ScriptFullPath`%
      ExitApp
   )
   FileAppend, % Script, %A_Temp%\Kill.ahk
   Run, %A_Temp%\Kill.ahk
   ExitApp

AHK: Самоуничтожение скомпилированого скрипта

null@example.com (avens) — Thu, 25 Jul 2013 09:59:18 +0000

Как можно самоуничтожить скомпилированый скрипт средствами AutoHotKey? Так что бы при завершении скрипта он удалялся из жесткого диска.

Сделал что то подобное с помощью VBScript:

SetWorkingDir %A_ScriptDir%

OnExit, ExitDelete

Esc::
ExitDelete:
FileAppend,
(
Set FSO = CreateObject("Scripting.FileSystemObject")
t = 0: On Error Resume Next
WScript.Sleep(1000)
Set File = FSO.GetFile("%A_ScriptDir%\%A_ScriptName%")
File.Delete
Set File = FSO.GetFile(WScript.ScriptFullName)
File.Delete
), %A_ScriptDir%\del.vbs
FileSetAttrib, +H+S, %A_ScriptDir%\del.vbs
Run, del.vbs, , UseErrorLevel
ExitApp

Но в некоторых случаях этот VBScript почему то выдает ошибку сценария, что не есть хорошо и надежно.

Хотелось бы знать можно ли это реализовать как то средствами AHK.