Что нового

Как зпустить одновременно два цикла ?

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
agikon
Это вам нужно?
Код:
#include <GUIConstantsEx.au3>
#Include <WinAPIEx.au3>

Opt("TrayOnEventMode",1)
Opt("TrayMenuMode",3)

$about = TrayCreateItem("About")
TrayItemSetOnEvent(-1,"_About")
TrayCreateItem("")
$exit  = TrayCreateItem("Выход")
TrayItemSetOnEvent(-1,"_Exit")
TraySetState()

GUICreate('test', 400, 200)
$nRadio1 = GUICtrlCreateRadio('aaa', 50, 20, 130, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$nRadio2 = GUICtrlCreateRadio('bbb', 50, 60, 150, 20)
$nRadio3 = GUICtrlCreateRadio('ccc', 50, 90, 100, 20)
$nButton = GUICtrlCreateButton('Go', 50, 120, 100, 40)
GUISetState()


While 1
	$nMsg = GUIGetMsg()
    Switch $nMsg
	Case $GUI_EVENT_CLOSE
            Exit
	Case $nButton
		If BitAND(GUICtrlRead($nRadio1), $GUI_CHECKED) Then 
			MsgBox(64, 'aaa', 'aaa')
		ElseIf BitAND(GUICtrlRead($nRadio2), $GUI_CHECKED) Then 
			MsgBox(64, 'bbb', 'bbbb')
		ElseIf BitAND(GUICtrlRead($nRadio3), $GUI_CHECKED) Then 
			MsgBox(64, 'ccc', 'ccc')
		EndIf
	EndSwitch
WEnd




Func _About()
    Msgbox(0,"Info","Bla bla bla")
EndFunc


Func _Exit()
    Exit
EndFunc
 
Автор
A

agikon

Знающий
Сообщения
789
Репутация
17
Garrett, запустите свой скрипт, нажмите GO , а потом в панели задач вызовите меню и еажмите на ВЫХОД , и вы увидите что скрипт не закроется. А надо чтобы всё работало.


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

ребята, ну что ж такое? неужели никак?
ну может не ясно излагаюсь чтоли.

Ну от возмите этот последник код от Гаррета , запустите его, потом нажмите на кнопку GO и после этого нажмите на значк аутоита в в панели трей, и нажмитк ВЫХОД, и вы увидите что скрипт не завершится.
А почему?
вот до этого момента дошел и я, и как вижу и вы тоже наткнулись на этот камень.
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
agikon,
Если цель Вашего скрипта - показывать MsgBox`ы, то так будет работать.
Код:
#NoTrayIcon
#include <GUIConstantsEx.au3>

Opt('TrayMenuMode', 3)

$hGui = GUICreate('Test', 250, 200)
$nLabel_1 = GUICtrlCreateLabel('', 50, 10, 150, 20)
$nLabel_2 = GUICtrlCreateLabel('', 50, 40, 150, 20)
$nLabel_3 = GUICtrlCreateLabel('', 50, 80, 150, 20)
$nButton = GUICtrlCreateButton('Go', 75, 120, 100, 40)

$prefsitem = TrayCreateItem("Preferences")
TrayCreateItem("")
$aboutitem = TrayCreateItem("About")
TrayCreateItem("")
$exititem = TrayCreateItem("Exit")

TraySetState()
GUISetState()

AdlibRegister('_Label_1', 200)
AdlibRegister('_Label_2', 400)
AdlibRegister('_Label_3', 1000)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $nButton
			Run(@AutoItExe & ' /AutoIt3ExecuteLine  "MsgBox(64, ''ComputerName'', @ComputerName, 10)"')
	EndSwitch
	$msg = TrayGetMsg()
	Switch $msg
		Case 0
			ContinueLoop
		Case $prefsitem
			Run(@AutoItExe & ' /AutoIt3ExecuteLine  "MsgBox(64, ''OSVersion'', @OSVersion, 10)"')
		Case $aboutitem
			Run(@AutoItExe & ' /AutoIt3ExecuteLine  "MsgBox(64, ''OSArch'', @OSArch, 10)"')
		Case $exititem
			Exit
	EndSwitch
WEnd

Func _Label_1()
	GUICtrlSetData($nLabel_1, Random(100, 100000, 1))
EndFunc   ;==>_Label_1

Func _Label_2()
	GUICtrlSetData($nLabel_2, Random(100000, 100000000, 1))
EndFunc   ;==>_Label_2

Func _Label_3()
	GUICtrlSetData($nLabel_3, StringFormat('%02d:%02d:%02d', @HOUR, @MIN, @SEC))
EndFunc   ;==>_Label_3
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
agikon [?]
Garrett, запустите свой скрипт, нажмите GO , а потом в панели задач вызовите меню и еажмите на ВЫХОД , и вы увидите что скрипт не закроется
Hу-у-у, наконец, прояснили ситуацию!
Ответ! Вы ничего с этим не сделаете, потому что вы (по логике вещий) должны сначала закрыть MsgBox который ждёт ваших действий, и пока вы не проявите активность, программа будет жать, и не будет реагировать на другие команды, а поставит их в очередь!!! Это ясно как белый день.
Для таких целей уважаемый Yashied написал UDF NotifyBox.au3, вот это то, что вам поможет!

Код:
#include <NotifyBox.au3>
;...
While 1
	$nMsg = GUIGetMsg()
    Switch $nMsg
	Case $GUI_EVENT_CLOSE
            Exit
	Case $nButton
		If BitAND(GUICtrlRead($nRadio1), $GUI_CHECKED) Then 
			_NotifyBox(64, 'aaa', 'aaa')
		ElseIf BitAND(GUICtrlRead($nRadio2), $GUI_CHECKED) Then 
			_NotifyBox(64, 'bbb', 'bbbb')
		ElseIf BitAND(GUICtrlRead($nRadio3), $GUI_CHECKED) Then 
			_NotifyBox(64, 'ccc', 'ccc')
		EndIf
	EndSwitch
WEnd
;...
 

Zaramot

I ♥ AutoIt
Сообщения
1,160
Репутация
660
Или создать GUI который заменит MsgBox:
Код:
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

;...
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
            Exit
    Case $nButton
        If BitAND(GUICtrlRead($nRadio1), $GUI_CHECKED) Then
			_MsgBox('Првет', 'Првет! Это MsgBox тест.')
        ElseIf BitAND(GUICtrlRead($nRadio2), $GUI_CHECKED) Then
			_MsgBox('Добрый день', 'Добрый день! Это MsgBox тест.')
        ElseIf BitAND(GUICtrlRead($nRadio3), $GUI_CHECKED) Then
			_MsgBox('Пока', 'Пока! Это MsgBox тест.')
        EndIf
    EndSwitch
WEnd
;...

Func _MsgBox($Title, $Text)
	$GUI = GUICreate($Title, 200, 100, -1, -1, $WS_SYSMENU)
	$Label1 = GUICtrlCreateLabel($Text, 0, 15, 200, 20, $SS_CENTER)
	$Button1 = GUICtrlCreateButton("OK", 59, 38, 83, 25)
	GUISetState()

	While 1
		$msg = GUIGetMsg()
		Switch $msg
			Case -3, $Button1
				GUIDelete($GUI)
				ExitLoop
		EndSwitch
	WEnd
EndFunc
 
Автор
A

agikon

Знающий
Сообщения
789
Репутация
17
люди всё не то, всё не то...
цель скрипта не показывать боксы , они вобщемто и не нужны.
в коде скрипта планирую разные действия.
Ну давайтя для более лучшего пример
а заменим боксы на нажатие кливиши пробел

#
Код:
include <GUIConstantsEx.au3>
#Include <WinAPIEx.au3>

Opt("TrayMenuMode",3)
$about      = TrayCreateItem("About")
$exit        = TrayCreateItem("Выход")


GUICreate('test', 400, 200)
$nRadio1 = GUICtrlCreateRadio('aaa', 50, 20, 130, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$nRadio2 = GUICtrlCreateRadio('bbb', 50, 60, 150, 20)
$nRadio3 = GUICtrlCreateRadio('ccc', 50, 90, 100, 20)
$nButton = GUICtrlCreateButton('Go', 50, 120, 100, 40)
GUISetState()


While 1
   $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $nButton

            If BitAND(GUICtrlRead($nRadio1), $GUI_CHECKED) Then
               
               While 1
						$st=TimerInit()
						Opt("SendKeyDownDelay", 120000); 30 сек
						Send ('{SPACE}')
						ConsoleWrite('!time: '& TimerDiff($st)   & @CRLF)
               WEnd   
            ;Else
         ElseIf BitAND(GUICtrlRead($nRadio2), $GUI_CHECKED) Then
                 While 1
						$st=TimerInit()
						Opt("SendKeyDownDelay", 120000); 30 сек
						Send ('{SPACE}')
						ConsoleWrite('!time: '& TimerDiff($st)   & @CRLF)
               WEnd
         Else
               While 1
						$st=TimerInit()
						Opt("SendKeyDownDelay", 120000); 30 сек
						Send ('{SPACE}')
						ConsoleWrite('!time: '& TimerDiff($st)   & @CRLF)
               WEnd
            EndIf
      EndSwitch
      
   
   
   $msg = TrayGetMsg()
    Switch $msg
        Case 0
            ContinueLoop
        Case $about
            MsgBox(64, "Preferences:", "OS:" & @OSVersion)

        Case $exit
            Exit
    EndSwitch
      
WEnd


вот что с этим кодом посоветуете делать?
ну как только запускаю GO и сразу меню не работает.
Вот помогите помогите выяснить что тут не так?


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

И почему у меня код не подсвечивается а у вас подсвечивается?
 
Автор
A

agikon

Знающий
Сообщения
789
Репутация
17
вот помогите сделать чтобы скрипт закрывался с меню в панели трей.
Запускаю GO скрипт стал выполнятся и панель трей перестала реагировать на команды.

#
Код:
include <GUIConstantsEx.au3>
#Include <WinAPIEx.au3>

Opt("TrayMenuMode",3)
$about      = TrayCreateItem("About")
$exit        = TrayCreateItem("Выход")


GUICreate('test', 400, 200)
$nRadio1 = GUICtrlCreateRadio('aaa', 50, 20, 130, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$nRadio2 = GUICtrlCreateRadio('bbb', 50, 60, 150, 20)
$nRadio3 = GUICtrlCreateRadio('ccc', 50, 90, 100, 20)
$nButton = GUICtrlCreateButton('Go', 50, 120, 100, 40)
GUISetState()


While 1
   $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $nButton

            If BitAND(GUICtrlRead($nRadio1), $GUI_CHECKED) Then
               
               While 1
						$st=TimerInit()
						Opt("SendKeyDownDelay", 120000); 30 сек
						Send ('{SPACE}')
						ConsoleWrite('!time: '& TimerDiff($st)   & @CRLF)
               WEnd   
            ;Else
         ElseIf BitAND(GUICtrlRead($nRadio2), $GUI_CHECKED) Then
                 While 1
						$st=TimerInit()
						Opt("SendKeyDownDelay", 120000); 30 сек
						Send ('{SPACE}')
						ConsoleWrite('!time: '& TimerDiff($st)   & @CRLF)
               WEnd
         Else
               While 1
						$st=TimerInit()
						Opt("SendKeyDownDelay", 120000); 30 сек
						Send ('{SPACE}')
						ConsoleWrite('!time: '& TimerDiff($st)   & @CRLF)
               WEnd
            EndIf
      EndSwitch
      
   
   
   $msg = TrayGetMsg()
    Switch $msg
        Case 0
            ContinueLoop
        Case $about
            MsgBox(64, "Preferences:", "OS:" & @OSVersion)

        Case $exit
            Exit
    EndSwitch
      
WEnd
 

Zaramot

I ♥ AutoIt
Сообщения
1,160
Репутация
660
agikon, ты забыл поставить выход из циклов !!!
Код:
#include <GUIConstantsEx.au3>
#Include <WinAPIEx.au3>

Opt("TrayMenuMode",3)

$about = TrayCreateItem("About")
$exit = TrayCreateItem("Выход")

GUICreate('test', 400, 200)
$nRadio1 = GUICtrlCreateRadio('aaa', 50, 20, 130, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$nRadio2 = GUICtrlCreateRadio('bbb', 50, 60, 150, 20)
$nRadio3 = GUICtrlCreateRadio('ccc', 50, 90, 100, 20)
$nButton = GUICtrlCreateButton('Go', 50, 120, 100, 40)
GUISetState()

While 1
	$nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
			Exit
        Case $nButton
            If BitAND(GUICtrlRead($nRadio1), $GUI_CHECKED) Then
				While 1      ;<------------------------
					MsgBox(64, 'aaa', 'aaa');         |
					ExitLoop ;Выход из этого цикла ----
				WEnd
            ElseIf BitAND(GUICtrlRead($nRadio2), $GUI_CHECKED) Then
				While 1      ;<------------------------
					MsgBox(64, 'bbb', 'bbbb');        |
					ExitLoop ;Выход из этого цикла ----
				WEnd
            Else
				While 1      ;<------------------------
					MsgBox(64, 'ccc', 'ccc');         |
					ExitLoop ;Выход из этого цикла ----
				WEnd
            EndIf
	EndSwitch

    $msg = TrayGetMsg()
    Switch $msg
        Case 0
            ContinueLoop
        Case $about
            MsgBox(64, "Preferences:", "OS:" & @OSVersion)
        Case $exit
            Exit
    EndSwitch
WEnd

У меня работает :ok:

P.S. Проверенно на Windows XP SP3 - РАБОТАЕТ :smile:
 
Автор
A

agikon

Знающий
Сообщения
789
Репутация
17
Зарамот, и у меня работает, только работает не то что надо.
Вот запустите этот код и нажмите на кнопку GO и попробуё выйти со скрипта через меню в панели трей. И вы не выйддетеь с скрипта. Почему?

Вот смотрит, меню работает после того того когда цикл основного кода проиграется. Хорошо если цикл While 1 то он быстро проиграется и кнопки из меню будут доступны, а вот если While 1000 то кнопки из меню не будут доступны пока этот цикл не приграется 1000 раз.
Вот в чем весь прикол.
Я вот не пойму задача как бы банальная но поченму она такая сложная ?-> завершить скрипт из меню в любое время, но как вижу этого сделать не так просто если это меню не стандартное из двух пунктов "Script pause - "Выход", а своё.
Вы сами запустите для примера этот скрипт и посмотрите.


Код:
include <GUIConstantsEx.au3>
#Include <WinAPIEx.au3>

Opt("TrayMenuMode",3)
$about      = TrayCreateItem("About")
$exit        = TrayCreateItem("Выход")


GUICreate('test', 400, 200)
$nRadio1 = GUICtrlCreateRadio('aaa', 50, 20, 130, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$nRadio2 = GUICtrlCreateRadio('bbb', 50, 60, 150, 20)
$nRadio3 = GUICtrlCreateRadio('ccc', 50, 90, 100, 20)
$nButton = GUICtrlCreateButton('Go', 50, 120, 100, 40)
GUISetState()


While 1
   $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $nButton

            If BitAND(GUICtrlRead($nRadio1), $GUI_CHECKED) Then
               
               While 1
                        $st=TimerInit()
                        Opt("SendKeyDownDelay", 120000); 30 сек
                        Send ('{SPACE}')
                        ConsoleWrite('!time: '& TimerDiff($st)   & @CRLF)
               WEnd  
            ;Else
         ElseIf BitAND(GUICtrlRead($nRadio2), $GUI_CHECKED) Then
                 While 1
                        $st=TimerInit()
                        Opt("SendKeyDownDelay", 120000); 30 сек
                        Send ('{SPACE}')
                        ConsoleWrite('!time: '& TimerDiff($st)   & @CRLF)
               WEnd
         Else
               While 1
                        $st=TimerInit()
                        Opt("SendKeyDownDelay", 120000); 30 сек
                        Send ('{SPACE}')
                        ConsoleWrite('!time: '& TimerDiff($st)   & @CRLF)
               WEnd
            EndIf
      EndSwitch
     
   
   
   $msg = TrayGetMsg()
    Switch $msg
        Case 0
            ContinueLoop
        Case $about
            MsgBox(64, "Preferences:", "OS:" & @OSVersion)

        Case $exit
            Exit
    EndSwitch
     
WEnd
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
626
OffTopic:
Viktor1703, Zaramot, спасибо, я как-то прозевал ранние сообщение в теме.
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
agikon,
Код:
#NoTrayIcon
#include <GUIConstantsEx.au3>

Global $PID_1, $PID_2

Opt('TrayMenuMode', 3)

$about = TrayCreateItem('About')
$exit = TrayCreateItem('Выход')

GUICreate('test', 400, 200)
$nLabel = GUICtrlCreateLabel('', 250, 20, 100, 20)
$nRadio1 = GUICtrlCreateRadio('aaa', 50, 20, 130, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$nRadio2 = GUICtrlCreateRadio('bbb', 50, 60, 150, 20)
$nRadio3 = GUICtrlCreateRadio('ccc', 50, 90, 100, 20)
$nButton = GUICtrlCreateButton('Go', 50, 120, 100, 40)
TraySetState()
GUISetState()
While 1
	$nMsg = GUIGetMsg()
	$msg = TrayGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			ExitLoop
		Case $nButton
			If BitAND(GUICtrlRead($nRadio1), $GUI_CHECKED) Then
				$PID_1 = _Cycle('aaa')
			ElseIf BitAND(GUICtrlRead($nRadio2), $GUI_CHECKED) Then
				$PID_1 = _Cycle('bbb')
			Else
				$PID_1 = _Cycle('ccc')
			EndIf
	EndSwitch
	Switch $msg
		Case 0
			ContinueLoop
		Case $about
			$PID_2 = Run(@AutoItExe & ' /AutoIt3ExecuteLine  "MsgBox(64, ''OSVersion'', @OSVersion)"')
		Case $exit
			ExitLoop
	EndSwitch
WEnd
_Exit()

Func _Exit()
	If ProcessExists($PID_1) Then ProcessClose($PID_1)
	If ProcessExists($PID_2) Then ProcessClose($PID_2)
	FileDelete(@TempDir & '\Temp123456789.tmp')
	Exit
EndFunc   ;==>_Exit

Func _Cycle($sTitle)
	Local $hFile, $i_Pid, $sFile = @TempDir & '\Temp123456789.tmp'
	Local $sScript = "#NoTrayIcon" & @CRLF & _
			"$hWin = WinGetHandle('test')" & @CRLF & _
			"While 1" & @CRLF & _
			"$sText = StringFormat('%02d:%02d:%02d', @HOUR, @MIN, @SEC)" & @CRLF & _
			"ToolTip($sText, 0, 0, '" & $sTitle & "', 1)" & @CRLF & _
			"ControlSetText($hWin, '', '[CLASS:Static;INSTANCE:1]', $sText)" & @CRLF & _
			"Sleep(1000)" & @CRLF & _
			"WEnd"
	$hFile = FileOpen($sFile, 2)
	FileWrite($hFile, $sScript)
	FileClose($hFile)
	$i_Pid = Run(@AutoItExe & ' /AutoIt3ExecuteScript "' & $sFile & '"')
	Return $i_Pid
EndFunc   ;==>_Cycle
 
Автор
A

agikon

Знающий
Сообщения
789
Репутация
17
madmasles, спасибо за код но как ни странно это не то что требуется. Да ваш код работает и всё1ако.Но вы привязали его к окнам в которых отчитывается время. Я же заменил функции окон на нажатие клавиши пробел и опять из скрипта не выходит!!!

Вот смотрите я в ваш код вместо окон подставил нажатие на клавишу пробел и удержания её 2 минуты. И вот при этом меню опять не работает.

Код:
#NoTrayIcon
#include <GUIConstantsEx.au3>

Global $PID_1, $PID_2

Opt('TrayMenuMode', 3)

$about = TrayCreateItem('About')
$exit = TrayCreateItem('Выход')

GUICreate('test', 400, 200)
$nLabel = GUICtrlCreateLabel('', 250, 20, 100, 20)
$nRadio1 = GUICtrlCreateRadio('aaa', 50, 20, 130, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$nRadio2 = GUICtrlCreateRadio('bbb', 50, 60, 150, 20)
$nRadio3 = GUICtrlCreateRadio('ccc', 50, 90, 100, 20)
$nButton = GUICtrlCreateButton('Go', 50, 120, 100, 40)
TraySetState()
GUISetState()
While 1
    $nMsg = GUIGetMsg()
    $msg = TrayGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            ExitLoop
        Case $nButton
            If BitAND(GUICtrlRead($nRadio1), $GUI_CHECKED) Then
                $PID_1 = _Cycle1('aaa')
            ElseIf BitAND(GUICtrlRead($nRadio2), $GUI_CHECKED) Then
                $PID_1 = _Cycle2('bbb')
            Else
                $PID_1 = _Cycle3('ccc')
            EndIf
    EndSwitch
    Switch $msg
        Case 0
            ContinueLoop
        Case $about
            $PID_2 = Run(@AutoItExe & ' /AutoIt3ExecuteLine  "MsgBox(64, ''OSVersion'', @OSVersion)"')
        Case $exit
            ExitLoop
    EndSwitch
WEnd
_Exit()

Func _Exit()
    If ProcessExists($PID_1) Then ProcessClose($PID_1)
    If ProcessExists($PID_2) Then ProcessClose($PID_2)
    FileDelete(@TempDir & '\Temp123456789.tmp')
    Exit
EndFunc   ;==>_Exit






Func _Cycle1($sTitle)
			        While 1
                        $st=TimerInit()
                        Opt("SendKeyDownDelay", 120000); 
                        Send ('{SPACE}')
                        ConsoleWrite('!time: '& TimerDiff($st)   & @CRLF)
 					WEnd
EndFunc   ;==>_Cycle




Func _Cycle2($sTitle)
			        While 1
                        $st=TimerInit()
                        Opt("SendKeyDownDelay", 120000); 
                        Send ('{SPACE}')
                        ConsoleWrite('!time: '& TimerDiff($st)   & @CRLF)
 					WEnd
EndFunc   ;==>_Cycle
				
				
			
Func _Cycle3($sTitle)
			        While 1
                        $st=TimerInit()
                        Opt("SendKeyDownDelay", 120000); 
                        Send ('{SPACE}')
                        ConsoleWrite('!time: '& TimerDiff($st)   & @CRLF)
 					WEnd
EndFunc   ;==>_Cycle
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
agikon [?]
я в ваш код вместо окон подставил нажатие на клавишу пробел
Неправильно подставили. Внимательно мою функцию _Cycle() посмотрите и сравните с Вашей.
 
Автор
A

agikon

Знающий
Сообщения
789
Репутация
17
всмысле не правильно ?
у вас она одна _Cycle
У Я сделал три _Cycle1 _Cycle2 и _Cycle3
Вобшем я не пойму в чем дело.
 

edward_freedom

Осваивающий
Сообщения
200
Репутация
44
agikon
Код madmasles записывает скрипт в файл и выполняет его типо в отдельном потоке.
И зачем ты поставил параметр $sTitle :scratch:
 
Автор
A

agikon

Знающий
Сообщения
789
Репутация
17
мадмаслес, переделайте пожалуйста ваш код чтобы вместо окошек с временем, просто нажималось на 2 минуты клавиша пробел, и во время нажатия клавиши пробел можно было выйти из скрипта из меню трея . И вот это будет решением этого вопроса и тему можно будет считать решенной.
 
Верх