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

[CreatiK]

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

#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]

CreatiK [?]

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

$iHours = 24

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

...