Взломы среднего и высокого уровня – 2. Секреты, приколы, программирование, знание компьютера. Cборник кодов моих программ. Дмитрий Дмитриевич Деминчук
окошка 550 на 200, 550 длина (горизонталь), 200 высота (вертикаль). Эта строка лишняя впринципе, но если мы будем добавлять больше функций, кнопок или окошек в программе то она может пригодится, так как мы в ней добавляем переменную GUISetBkColor (0x000000, $hGuiWin), которая назначалась глобальной и на неё можно прописывать и кнопки разные и всякие инпуты (строчки для ввода текста). Эта строка не обязательна, но я решил добавить и обьясню вам что она делает!
GUICtrlCreatePic('5.jpg’, 0, 0, 0, 0)
если вы поместите в папку вместе с нашей программой фотографию под названием 5 с расширением jpg, то у вас на фоне программы вместо чёрного цвета появится фотка под названием 5.jpg, дальше идут 4 нуля через запятую, это координаты, означающие, что наша фотография будет размещена по углам программы, тоесть на весь размер нашего окошка программы, который сейчас чёрный. Некоторые строчки я буду пропускать, такие как!
GUICtrlSetState (-1, $GUI_DISABLE)
они впринципе обязательны, но если я начну обьяснять что они делают то это будет очень долго, так что я буду описывать именно те, строчки, которые нам интересные. Следующая строчка в программе!
$Input_1 = GUICtrlCreateInput («Hello, from Deeman!», 35, 55, 480, 40)
создаёт переменную под названием $Input_1 для поля ввода текста, потом создаёт само поле для ввода текста (комманд, которые вы будете вписывать для робота, что б он их говорил), и в поле для ввода текста я напишу для вас уже готовый краткий текст Hello, from Deeman привет от меня кароче ну и размеры этого поля для ввода в 4ре цифры. Следующая строчка
$Button_1 = GUICtrlCreateButton («Start Talk», -150, 30, 70)
создаёт кнопку под названием Start Talk (начать говорить), размеры в 3 цифры ну и спереди приписуется переменная для этой кнопки под названием $Button_1 (кнопка 1).
Слкдующая строка!
GUISetState ()
это начало показа нашей программы (запуск можно сказать).
Следующая строка!
While 1
начало цикла!
Сделующая строка!
$msg = GUIGetMsg ()
программа получает сообщение, и переменная прописуется к этой комманде для дальшейшей работы! Следующая строка!
Select
возможность выборочного режима. Следующая строка!
Case $msg = $GUI_EVENT_CLOSE
2 строки назад мы именно для этого действия и прописали переменную $msg, для того, что б сейчас сказать программе, $GUI_EVENT_CLOSE тоесть когда мы нажмём кнопку справа вверху х крестик в общем для закрытия программы, тогда программа закроется.
ExitLoop
выход из первого цикла. Следующая строка!
Case $msg = $Button_1
тут начало кнопки и переменная, для того что б она понимала комманды по нажатию нашей кнопки под названием Start Talk. Дальше пишем комманды для нашей кнопки, а именно что б после её нажатия наш робот говорил наш вписаный текст тут 4 комманды!
$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 и конец всей программы!
Мы