Что нового

Отправить текст в переводчик Google для озвучивания

Zaramot

I ♥ AutoIt
Сообщения
1 160
Репутация
657
Версия AutoIt: 3.3.6.1

Описание:
Нужно сделать скрипт который бы отправлял текст в "Переводчик Google" для того что-бы его озвучили.



Примерно так:
Код:
$Text = InputBox('Google Translate', 'Введите текст что-бы его озвучить')
If @error then
	Exit
Else
	;отправка
EndIf
;...


Примечания:
Нужно это всё реадизовать без браузера.

P.S. Это вообще - ВОЗМОЖНО ? :scratch:
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
Zaramot,
Попробуйте так:
Код:
#include <Sound.au3>
#include <File.au3>
#include <Encoding.au3>

$fRus = False
$fEn = False

$sStringRus = 'Это вполне возможно, слушайте.'
$sStringEn = 'It is possible, listen up.'

$sUrlRus = 'http://translate.google.ru/translate_tts?ie=UTF-8&q=' & _Encoding_URLToHex($sStringRus) & '&tl=ru'
$sUrlEn = 'http://translate.google.ru/translate_tts?ie=UTF-8&q=' & _Encoding_URLToHex($sStringEn) & '&tl=en'

$sFileRus = _TempFile(@TempDir, 'rus_', '.mp3')
$sFileEn = _TempFile(@TempDir, 'en_', '.mp3')

$hDownload = InetGet($sUrlRus, $sFileRus, 17, 1)
Do
	Sleep(20)
Until InetGetInfo($hDownload, 2)
If Not InetGetInfo($hDownload, 4) Then $fRus = True
InetClose($hDownload)

$hDownload = InetGet($sUrlEn, $sFileEn, 17, 1)
Do
	Sleep(20)
Until InetGetInfo($hDownload, 2)
If Not InetGetInfo($hDownload, 4) Then $fEn = True
InetClose($hDownload)

If $fRus Then
	$aSoundRus = _SoundOpen($sFileRus)
	If Not @error Then
		_SoundPlay($aSoundRus, 1)
		_SoundClose($aSoundRus)
		Sleep(500)
	EndIf
EndIf
If $fEn Then
	$aSoundEn = _SoundOpen($sFileEn)
	If Not @error Then
		_SoundPlay($aSoundEn, 1)
		_SoundClose($aSoundEn)
	EndIf
EndIf
FileDelete($sFileRus)
FileDelete($sFileEn)

PS
Там, кажется, ограничение до 100 символов.
 
Автор
Zaramot

Zaramot

I ♥ AutoIt
Сообщения
1 160
Репутация
657
Спасибо madmasles, ваш код - то что нужно. :beer:

AZJIO, beliy спасибо...

P.S. madmasles, если бы ещё обойтись без сторонних файлов (запись во временную папку, в mp3 файл). ;)
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
Zaramot [?]
если бы ещё обойтись без сторонних файлов
Этого я не могу сделать. Пробовал, не хватает квалификации. Это, ИМХО, за 5 минут сможет сделать Yashied. :smile:
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8 472
Репутация
2 401
Уже не работает, есть у кого то другая рабочая версия?
 
Верх