Запрет запуска 2-х скриптов
- Автор темы EWR
- Дата начала
Mur
Осваивающий
- Сообщения
- 132
- Репутация
- 32
Да неужели? А где вы расположили эти строчки? В начале программы? 
У меня работает. Попробуйте скомпилировать и запустить:
а потом закомментируйте две верхних строчки и проделайте то-же самое.
У меня работает. Попробуйте скомпилировать и запустить:
Код:
If WinExists (@ScriptName) Then Exit
AutoItWinSetTitle (@ScriptName)
MsgBox(48, "123", "hi!")а потом закомментируйте две верхних строчки и проделайте то-же самое.
а все разместил вверху программы все работает, спасибо.
Добавлено:
А чтобы выдавало сообщение нужно так:
или иначе?
Добавлено:
Сообщение автоматически объединено:
А чтобы выдавало сообщение нужно так:
Код:
If WinExists (@ScriptName) Then MsgBox(0, "Error", "Program Alredy Run") Exit
AutoItWinSetTitle (@ScriptName)или иначе?
- Сообщения
- 8,673
- Репутация
- 2,486
Fever [?]
AutoItWinSetTitle работает с внутренним скрытым окном, который имеет класс «AutoIt v3» (в отличии от GUI-окна - «AutoIt v3 GUI»).
Кстати надёжнее именно с ним и работать:
).
Кто сказал?
AutoItWinSetTitle работает с внутренним скрытым окном, который имеет класс «AutoIt v3» (в отличии от GUI-окна - «AutoIt v3 GUI»).
Кстати надёжнее именно с ним и работать:
Код:
If WinExists('[CLASS:AutoIt v3;TITLE:' & @ScriptName & ']') Then
MsgBox(48, @ScriptName, 'Позволено запускать только одну копию программы!' & @CRLF & @CRLF & 'ОК ==> ВЫХОД')
Exit
EndIf
AutoItWinSetTitle(@ScriptName)Я уже давно отказался от использования _Singleton, она не всегда срабатывает (и не спрашиваете в каких случаях, сам толком не знаю
).
- Сообщения
- 8,673
- Репутация
- 2,486
Добавил это в НЕофициальный FAQ AutoIt.
Испробовал все варианты предложенные в теме. Намеренно скриптом запуская 2 раза другой скрипт. Единственным рабочим оказался:
Остальные раза с 10го, но запускали 2 копии скрипта, позволяя начать выполняться коду, который стоял после проверки.
Код:
_SingletonОстальные раза с 10го, но запускали 2 копии скрипта, позволяя начать выполняться коду, который стоял после проверки.
Это всё не работает под терминальными режимами и т.п. когда много пользователей. Я использую костыльное решение для пользователей терминального режима. Запустить может только один, у остальных будет срабатывать EXIT:
создаём файл $PathIni и туда пишем чnj-нибудь. но постоянно. чтобы у файла всегда менялся атрибут последнего доступа.
$arrayDateTimeStampINI= FileGetTime($PathIni, $FT_ACCESSED, $FT_ARRAY)
$sDateTimeStampINI=$arrayDateTimeStampINI[0]&"/"&$arrayDateTimeStampINI[1]&"/"&$arrayDateTimeStampINI[2]&" "&$arrayDateTimeStampINI[3]&":"&$arrayDateTimeStampINI[4]&":"&$arrayDateTimeStampINI[5]
sleep (1000)
$sNowDateSec=@YEAR &"/"& @MON &"/"& @MDAY &" "& @HOUR &":"& @MIN &":"& @SEC
$iDateCalc = _DateDiff('s', $sDateTimeStampINI, $sNowDateSec)
if $iDateCalc < 4 then
MsgBox($MB_SYSTEMMODAL, "Внимание!", "Приложение уже работает!")
FileStatWrite(" Скрипт is already running from another user=" & $iDateCalc)
Exit
EndIf
создаём файл $PathIni и туда пишем чnj-нибудь. но постоянно. чтобы у файла всегда менялся атрибут последнего доступа.
$arrayDateTimeStampINI= FileGetTime($PathIni, $FT_ACCESSED, $FT_ARRAY)
$sDateTimeStampINI=$arrayDateTimeStampINI[0]&"/"&$arrayDateTimeStampINI[1]&"/"&$arrayDateTimeStampINI[2]&" "&$arrayDateTimeStampINI[3]&":"&$arrayDateTimeStampINI[4]&":"&$arrayDateTimeStampINI[5]
sleep (1000)
$sNowDateSec=@YEAR &"/"& @MON &"/"& @MDAY &" "& @HOUR &":"& @MIN &":"& @SEC
$iDateCalc = _DateDiff('s', $sDateTimeStampINI, $sNowDateSec)
if $iDateCalc < 4 then
MsgBox($MB_SYSTEMMODAL, "Внимание!", "Приложение уже работает!")
FileStatWrite(" Скрипт is already running from another user=" & $iDateCalc)
Exit
EndIf