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

«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)