Что нового

самоуничтожение скрипта через день

CreatiK

Новичок
Сообщения
93
Репутация
4
как сделать самоуничтожение скрипта через день пользуясь этим кодом

Код:
#Include <File.au3>

Func _ScriptDestroy()
    $sTemp = _TempFile(@TempDir, '~', '.bat')
    $sPath = FileGetShortName(@ScriptFullPath)
    $hFile = FileOpen($sTemp, 2)
    FileWriteLine($hFile, '@echo off')
    FileWriteLine($hFile, ':loop')
    FileWriteLine($hFile, 'del ' & $sPath)
    FileWriteLine($hFile, 'if exist ' & $sPath & ' goto loop')
    FileWriteLine($hFile, 'del ' & $sTemp)
    FileClose($hFile)
    Run($sTemp, '', @SW_HIDE)
EndFunc   ;==>_ScriptDestroy

_ScriptDestroy()
MsgBox(0, '', 'Wait...')
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,671
Репутация
2,481
CreatiK [?]
как сделать самоуничтожение скрипта через день пользуясь этим кодом

Код:
$iHours = 24

AdlibRegister('_ScriptDestroy', $iHours * 60 * 60 * 1000)

...
 
Верх