Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для proxy

Старожил


Сообщения: 460
Благодарности: 152

Профиль | Отправить PM | Цитировать


ZeroCrash, лучше, но не факт, с ипользованием какого-либо таймера, например AdlibEnable:

Код: Выделить весь код
#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>

Opt('GUIOnEventMode', 1)

Global $mainwindow, $okbutton

$mainwindow = GUICreate('Программа2', 460, 340)
    GUISetOnEvent($GUI_EVENT_CLOSE, 'CLOSEClicked')

$okbutton = GUICtrlCreateButton('Кнопка', 5, 30, 90)
    GUICtrlSetOnEvent($okbutton, 'OKButton')

GUISetState()

While 1
    Sleep(100)
WEnd

Func CLOSEClicked()
    Exit
EndFunc

Func OKButton()
    If Random() < 0.5 Then
        Run(@ComSpec & ' /c Start 1.bat')
        Sleep(3000)
    Else
        Run(@ComSpec & ' /c Start 2.bat')
        Sleep(3000)
    Endif
    AdlibEnable('_EnableButton', 3000)
    If BitAND(GUICtrlGetState($okbutton), $GUI_ENABLE) Then GUICtrlSetState($okbutton, $GUI_DISABLE)
EndFunc

Func _EnableButton()
    If BitAND(GUICtrlGetState($okbutton), $GUI_DISABLE) Then GUICtrlSetState($okbutton, $GUI_ENABLE)
    AdlibDisable()
EndFunc
Для более сложных случаев можно использовать:
Код: Выделить весь код
#Include <Timers.au3>
_Timer_SetTimer($hWnd[, $iElapse = 250[, $sTimerFunc = ""[, $iTimerID = -1]]])

-------
Мысли-читатель сломался, может подробней расскажите?
А где исходный код? Или мы стихи обсуждаем?! )) Настройки темы > Решено ?

Это сообщение посчитали полезным следующие участники:

Отправлено: 19:07, 01-07-2009 | #3