Что нового

Перезапуск скрипта с окошком

(-_-)

Новичок
Сообщения
9
Репутация
0
Версия AutoIt: 3.

Описание:
Нужно сделать следуюшее:

имеется вот это:

MouseMove(0,331,100)
MouseMove(1000,331,100)
MsgBox(36, 'Внимание...', 'Скрипт будет перезапушен.')

Нужно следующее
1. Чтоб при нажатии на кнопку да скрипт перезапустился при нажатии на кнопку нет он завершил свою работу
2. Если пользователь не предпринимает ни каких действий в течении 60 секунд то скрипт сам за себя нажал на кнопку да
3. На кнопке Да шол таймер 60 секунд (Время отображалось примерно так: Да(60).......Да(59).....и т.д.)

P.S.: ОЧЕНЬ НУЖНО
 

VladUs

Скриптер
Сообщения
621
Репутация
182
Код:
#include <GUIConstantsEx.au3>

Global  $i = 60

_Mouse()

$hgui = GUICreate('Внимание...', 280,80)
$hlab = GUICtrlCreateLabel("Скрипт будет перезапушен.",50,10)
$hButtonYes = GUICtrlCreateButton("Да", 10,40,120,30)
$hButtonNo= GUICtrlCreateButton("Нет", 140,40,120,30)
GUISetState()

AdlibRegister("_Timer",1000)

While 1
 $msg = GUIGetMsg()
Select
  Case $msg = $GUI_EVENT_CLOSE
      Exit
  Case $msg = $hButtonYes
    AdlibUnRegister("_Timer")
    GUICtrlSetData ( $hButtonYes,"Да")
    _Mouse()
    $i = 60
    AdlibRegister("_Timer",1000)
   Case $msg = $hButtonNo
     Exit
EndSelect
 
WEnd

Func _Timer()
 $i -=1 
 GUICtrlSetData ( $hButtonYes,String( $i ))
 If $i = 0 Then
   GUICtrlSetData ( $hButtonYes,"Да")  
  _Mouse()
  $i = 60
EndIf
EndFunc

Func _Mouse()
MouseMove(0,331,100)
MouseMove(1000,331,100)
EndFunc
 
Автор
?

(-_-)

Новичок
Сообщения
9
Репутация
0
VladUs СПАСИБО ТЕБЕ ОГРОМНОЕ. А можно сделать так чтоб он как перезапустился окошечко закрылось автоматически
 

VladUs

Скриптер
Сообщения
621
Репутация
182
Код:
#include <GUIConstantsEx.au3>

Global  $i = 60

_Mouse()

$hgui = GUICreate('Внимание...', 280,80)
$hlab = GUICtrlCreateLabel("Скрипт будет перезапушен.",50,10)
$hButtonYes = GUICtrlCreateButton("Да", 10,40,120,30)
$hButtonNo= GUICtrlCreateButton("Нет", 140,40,120,30)
GUISetState()

AdlibRegister("_Timer",1000)

While 1
 $msg = GUIGetMsg()
Select
  Case $msg = $GUI_EVENT_CLOSE
      Exit
  Case $msg = $hButtonYes
    
    AdlibUnRegister("_Timer")
    GUICtrlSetData ( $hButtonYes,"Да")
    WinSetState($hgui,"",@SW_HIDE)
    _Mouse()
    WinSetState($hgui,"",@SW_SHOW)
    $i = 60
    AdlibRegister("_Timer",1000)
   Case $msg = $hButtonNo
     Exit
EndSelect
 
WEnd

Func _Timer()
 $i -=1 
 GUICtrlSetData ( $hButtonYes,String( $i ))
 If $i = 0 Then
   GUICtrlSetData ( $hButtonYes,"Да")  
   WinSetState($hgui,"",@SW_HIDE)
  _Mouse()
  WinSetState($hgui,"",@SW_SHOW)
  $i = 60
  
EndIf
EndFunc

Func _Mouse()
MouseMove(0,331,100)
MouseMove(1000,331,100)
EndFunc
 
Верх