Пример защиты от повторного запуска скрипта

[Rjevsky]

Поделитесь красивым примером.

 

[sforce5]

Точные параметры флагов в первом примере непомню, но кажется 1 или 0 (как в _Singleton)

Func _Mutex($handle, $flag = 0)
        Local $ERROR_ALREADY_EXISTS = 183, $dll = DllCall("kernel32.dll", "int", "CreateMutex", "int", 0, "long", 1, "str", StringReplace($handle, "\", "")), $err = DllCall("kernel32.dll", "int", "GetLastError")
        If $err[0] = $ERROR_ALREADY_EXISTS and $flag = 0 Then Exit
        SetError($err[0])
        Return $dll[0]
EndFunc

упрощённый вариант первого примера:

Func _Mutex($semaphore)
    Local $ERROR_ALREADY_EXISTS = 183
    DllCall("kernel32.dll", "int", "CreateSemaphore", "int", 0, "long", 1, "long", 1, "str", $semaphore)
    Local $lastError = DllCall("kernel32.dll", "int", "GetLastError")
    If $lastError[0] = $ERROR_ALREADY_EXISTS Then Exit -1
EndFunc

Func _AlreadyRunning()
    If ProcessExists(@Scriptname) Then
        $list = ProcessList()
            for $i = 1 to $list[0][0]
            If $list[$i][0] = @ScriptName And $list[$i][1] <> @AutoItPID Then 
                Exit
            EndIf
            Next
    EndIf
EndFunc

 

[kaster]

Rjevsky

_SingleTon()

 

[Yashied]

Можно так, т.к _SingleTon() иногда может не срабатывать.

If WinExists('MyGUI_#idZdex') Then
	; Скрипт уже запущен
	Exit
EndIf

GUICreate('MyGUI_#idZdex')

...

 

[Suppir]

вот из моей программы. Все очень просто:

#Include <Misc.au3>

AutoItSetOption("TrayAutoPause", 0)

if _Singleton("test",1) = 0 Then 
    TrayTip ("AutoIt", "Арчилинк уже запущен!", 1)
    sleep(2000)
    TrayTip("clears any tray tip","",0)
    Exit
EndIf

Добавлено:

Сообщение автоматически объединено: 29 Дек 2009

Yashied, это если у скрипта GUI есть

 

[Rjevsky]

Всем спасибо! Принял к сведению!

Ps почемуто не могу никому плюса поставить...
PS Допёр... могу!

 

[Yashied]

Yashied, это если у скрипта GUI есть

GUI всегда можно сделать, необязательно его показывать... Кстати, в AutoIt всегда есть GUI - скрытое окно...

 

[snoitaleR]

Еще один способ защиты от повторного запуска...
Даже если окно находится на другом виртуальном рабочем столе ALTDESK, оно будет обнаружено...

; НАЧАЛО
; Защита от повторного запуска

 $TITLE1="Старт"
 $TEXT1="zZzZzZz"

 ONLYONE()

 ; ...

 $GUI=GuiCreate($TITLE1,400,300)
 GUICtrlCreateLabel($TEXT1,0,0,0,0)

 ; ...

 Func ONLYONE()
  $AW=WinList()
  for $COUNTER=1 to $AW[0][0]
   if ($AW[$COUNTER][0]=$TITLE1) and WinExists($AW[$COUNTER][1],$TEXT1) then Exit
  next
 EndFunc

; КОНЕЦ

 

[bulldog5293]

А как быть если скрипт работает фоново и нада запретить ему 2-й запуск в один день. То есть, что бы программу можно было запустить один раз в день. Я решил что она должна вести лог даты и по совпадению с текущей не запускаться, но как зделать не пойму.

 

[kaster]

bulldog5293
то есть если программа запущена уже не первый день, то повторно ее запустить все же можно будет?

 

[bulldog5293]

Тоесть если она была запущена вчера то сегодня можно запустить, если сегодня уже запускалась то нельзя, ориентировалась бы на лог файл даты, который самы бы вела

 

[kaster]

bulldog5293
задам вопрос по другому. программа будет работать непрерывно/какое-то время или же запуститься, сделает определенные операции и выключится?
если второе, то не обязательно вести именно лог-файл. можно просто ини файл с записью типа -

[Launch]
LastLaunch=01/01/2010

а программа будет каждый раз читать оттуда дату через IniRead, и если дата совпадает с сегодняшней, то выключится... сравнение надо будет делать через DateDiff

 

[bulldog5293]

Спасиба за быстрый и продуктивный ответ, ставлю тебе +1 :IL_AutoIt_1: