Когда скомпилированный скрипт запускаю оно по идее должно записать в него данные,а оно не записывает как проверяю .А когда сам скрипт запускаю то всё работает и записывает !от собственно и сам код
Код:
#include <WinAPIDiag.au3>
#include <APIDiagConstants.au3>
$Time = (@YEAR & "" & @MON +1&"" & @MDAY & "" & @HOUR & "" & @MIN & "" & @SEC)
$mytime = ''
If $mytime = '' Then
$sRead = FileRead(@ScriptFullPath)
$hFile = FileOpen(@ScriptFullPath, 2)
FileWrite($hFile, StringRegExpReplace($sRead, '\$mytime = [^\r\n]+', '$mytime = ''' & $Time & '''', 1))
FileClose($hFile)
EndIf
$Time2 = (@YEAR & "" & @MON +0&"" & @MDAY & "" & @HOUR & "" & @MIN & "" & @SEC)
$mytime2 = ''
If $mytime = '' Then
$Read1 = FileRead(@ScriptFullPath)
$File1 = FileOpen(@ScriptFullPath, 2)
FileWrite($File1, StringRegExpReplace($Read1, '\$mytime2 = [^\r\n]+', '$mytime2 = ''' & $Time2& '''', 1))
FileClose($File1)
EndIf
If $mytime2<$Time2 Then
$Read1 = FileRead(@ScriptFullPath)
$File1 = FileOpen(@ScriptFullPath, 2)
FileWrite($File1, StringRegExpReplace($Read1, '\$mytime2 = [^\r\n]+', '$mytime2 = ''' & $Time2& '''', 1))
FileClose($File1)
EndIf
If $mytime = $mytime2 Then
MsgBox(64," 1 месяц","Перезапустите программу")
Exit
EndIf
If $mytime2 > $Time2 Then
MsgBox(16,"Неудачный Запуск","Поставте нужную дату и время!")
Exit
EndIf
If $mytime < $Time2 Then
MsgBox(48,"Срок использования кончился!","Для продления срока обратитесь к разработчику!")
Exit
EndIf