Взломы среднего и высокого уровня – 2. Секреты, приколы, программирование, знание компьютера. Cборник кодов моих программ - страница 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 и конец всей программы!

Мы создали программу, которая по вводу вашего текста после нажатия на кнопку будет говорить текст. Чуть не забыл сказать, тут в программе есть еще один ньюанс, настройка в общем, строка!