Взломы среднего и высокого уровня – 2. Секреты, приколы, программирование, знание компьютера. Cборник кодов моих программ - страница 2

Шрифт
Интервал


«SetNotifyWin32Event hresult ();" & _

«WaitForNotifyEvent hresult (dword);" & _

«GetNotifyEventHandle hresult ();" & _

«SetInterest hresult (long; long);" & _

«GetEvents hresult (ulong; ptr; ptr)» & _

«GetInfo hresult (ptr);" & _

«SetOutput hresult (ptr; boolean);" & _

«GetOutputObjectToken hresult (ptr);" & _

«GetOutputStream result (ptr);" & _

«Pause hresult ();" & _

«Resume hresult ();" & _

«SetVoice hresult (ptr);" & _

«GetVoice hresult (ptr);" & _

«Speak hresult (wstr; dword; ulong);" & _

«SpeakStream hresult (ptr; dword; ulong);" & _

«GetStatus hresult (ptr; ptr);" & _

«Skip hresult (wstr; long; ulong);" & _

«SetPriority hresult (long);" & _

«GetPriority hresult (ptr);" & _

«SetAlertBoundary hresult (long);" & _

«GetAlertBoundary hresult (ptr);" & _

«SetRate hresult (long);" & _

«GetRate hresult (ptr);" & _

«SetVolume hresult (ushort);" & _

«GetVolume hresult (ptr);" & _

«WaitUntilDone hresult (ulong);" & _

«SetSyncSpeakTimeout hresult (ulong);" & _

«GetSyncSpeakTimeout hresult (ptr);" & _

«SpeakCompleteEvent hresult ();" & _

«IsUISupported hresult (ptr; ptr; ptr; ptr);" & _

«DisplayUI hresult (hwnd; ptr; ptr; ptr; ulong);»

Opt («GUICoordMode», 2)

GUISetBkColor (0X000000)

Global $hGuiWin = GUICreate («Robot from Deeman», 550, 200)

GUISetBkColor (0x000000, $hGuiWin)

GUICtrlCreatePic('5.jpg’, 0, 0, 0, 0)

GUICtrlSetState (-1, $GUI_DISABLE)

$Input_1 = GUICtrlCreateInput («Hello, from Deeman!», 35, 55, 480, 40)

$Button_1 = GUICtrlCreateButton («Start Talk», -270, 30, 70)

GUISetState ()

While 1

$msg = GUIGetMsg ()

Select

Case $msg = $GUI_EVENT_CLOSE

ExitLoop

Case $msg = $Button_1

$oSpVoice = ObjCreateInterface ($CLSID_SpVoice, $IID_ISpVoice, $sSpVoice)

$oSpVoice.SetRate (-3)

$text = GUICtrlRead ($Input_1)

$oSpVoice. speak ($text, $SPF_DEFAULT, 0)

EndSelect

WEnd

EndFunc;==> Deeman

В общем первые строки вам уже знакомы из первой книги, это подключение некоторых модулей. Дальше мы декларируем функцию под названием Deeman строчкой!

Deeman ()

функцию вы можете назвать как хотите, название даётся для того, что б вы запоминали, что выполняет каждая функция в программе, если их больше чем одна. После декларации мы активируем функцию строчкой!

Func Deeman ()

Дальше 4 строчки, которые назначают константы локальными, это как набор символов или алфавит, чтото постоянное в общем!