Что нового

Как при нажатии паузы скрипта вызвать MsgBox поверх всех окон?

Can

Новичок
Сообщения
59
Репутация
1
Здравствуйте! Подскажите пожалуйста, на моём примере,как сделать так, чтобы при нажатии на кнопку {TAB} (вызов паузы), всплывало окно MsgBox поверх всех окон, а при повторном нажатии на {TAB} (снятие скрипта с паузы), окно MsgBox исчезало?

Пример с паузой:
Код:
HotKeySet ( "{ESC}" ,"_Exit")
Global $Paused
HotKeySet("{TAB}", "TogglePause")
Global $nF = 1

While 1
   Switch $nF
   
 Case 1 
	 Cycle1()  
 Case 2
	 Cycle2()  
 Case 3 
	 Cycle3() 
   EndSwitch 
   Sleep(270)
WEnd


Func _Exit()
    Exit
EndFunc


Func TogglePause()
    $Paused = Not $Paused
    While $Paused
	Sleep(300)
    WEnd
EndFunc 



Func Cycle1()
    ConsoleWrite("Cycle1()" & @CRLF)
	MouseMove(300, 27, 3)	
	Sleep(500)
    
$nF = 2

EndFunc


Func Cycle2()
    ConsoleWrite("Cycle2()" & @CRLF)
    MouseMove(300, 147, 3)
	Sleep(500)
        
	$nF = 3	
		
		
EndFunc


Func Cycle3()
    ConsoleWrite("Cycle3()" & @CRLF)
    MouseMove(485, 310, 3)   
	Sleep(300)
	
	$nF = 1

EndFunc



Заранее благодарю!


В принципе нужно просто, чтобы при нажатии на паузу всплывало окно(пауза), что пауза нажата, а при снятии скрипта с паузы, окно убиралось, если возможно, то поверх других окон, чтобы было видно, остановлен скрипт или нет.
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,320
Can
А зачем MsgBox? Почему не так, например:
Код:
HotKeySet("{ESC}", "_Exit")
Global $Paused
HotKeySet("{TAB}", "TogglePause")

While 1
	Sleep(50)
WEnd

Func _Exit()
	Exit
EndFunc   ;==>_Exit

Func TogglePause()
	$Paused = Not $Paused
	If $Paused Then
		ToolTip('Пауза в работе', 0, 0, 'Супер прога', 1, 5)
		TrayTip('Супер прога', 'Пауза в работе', 3, 1)
	Else
		ToolTip('', 0, 0)
		TrayTip('', '', 0)
	EndIf
	While $Paused
		Sleep(300)
	WEnd
EndFunc   ;==>TogglePause
Или одно, или другое.
 
Автор
C

Can

Новичок
Сообщения
59
Репутация
1
Спасибо большое, то что надо!
 
Верх