Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » AutoIT (Часть 2)

Модерирует : gyra, Maz

Widok (01-06-2010 13:08): Лимит страниц. Продолжаем здесь.  Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

   

sproxy



Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору


Код:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Compression=4
#EndRegion
;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <AU3_INTERACT.au3>
AutoItSetOption ('GUIOnEventMode',      1)
;
 
#Region _AutoItSetInteraction() Part
Dim $aFunctions[3][3]
 
$aFunctions[0][0] = 1001
$aFunctions[0][1] = "My_Function_1"
$aFunctions[0][2] = "Some Param1"
 
$aFunctions[1][0] = 1002
$aFunctions[1][1] = "My_Function_2"
$aFunctions[1][2] = "This is parameter for My_Function_2"
 
$aFunctions[2][0] = 1003
$aFunctions[2][1] = "My_Function_3"
$aFunctions[2][2] = "Well, you get the picture "
 
_AutoItSetInteraction("_MYAPP_", $aFunctions)
#EndRegion _AutoItSetInteraction() Part
;
 
$hGUI = GUICreate("_AutoItSetInteraction Demo", 400, 300, -1, -1, -1, $WS_EX_TOPMOST)
GUISetOnEvent($GUI_EVENT_CLOSE,     'exit_pro')
$Edit = GUICtrlCreateEdit("", 10, 10, 380, 180)
 
$lb = GUICtrlCreateLabel(StringFormat("%02d:%02d:%02d", @HOUR, @MIN, @SEC), 10, 250, 150, 20)
 
GUISetState()
 
While 1
    Sleep(100)
    GUICtrlSetData($lb, StringFormat("%02d:%02d:%02d", @HOUR, @MIN, @SEC))
WEnd
Func
exit_pro()
    Exit
EndFunc
 
Func
My_Function_1($vParam)
    GUICtrlSetData($Edit, "Function 1 Fired, with param:    " & $vParam & @CRLF, 1)
    MsgBox(262144+64, "", "Function 1 Fired!")
EndFunc
 
Func
My_Function_2($vParam)
    GUICtrlSetData($Edit, "Function 2 Fired, with param:    " & $vParam & @CRLF, 1)
    MsgBox(262144+64, "", "Function 2 Fired!")
EndFunc
 
Func
My_Function_3($vParam)
    GUICtrlSetData($Edit, "Function 3 Fired, with param:    " & $vParam & @CRLF, 1)
    MsgBox(262144+64, "", "Function 3 Fired!")
EndFunc


Всего записей: 556 | Зарегистр. 21-11-2007 | Отправлено: 00:37 31-01-2009 | Исправлено: sproxy, 08:23 31-01-2009
   

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » AutoIT (Часть 2)
Widok (01-06-2010 13:08): Лимит страниц. Продолжаем здесь.


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru