Код:
$STR = _UnicodeURLEncode('тестирование голосового движка яндекса')
$STR2 = 'This is a voice emulator script test'
$LANG = 'ru_RU'
$LANG2 = 'en_GB'
InetGet("http://tts.voicetech.yandex.net/tts?format=mp3&quality=hi&platform=web&application=translate&text="&$STR&"&lang="&$LANG, @TempDir & "\voicetechyandex.mp3")
SoundPlay(@TempDir & "\voicetechyandex.mp3", 1)
InetGet("http://tts.voicetech.yandex.net/tts?format=mp3&quality=hi&platform=web&application=translate&text="&$STR2&"&lang="&$LANG2, @TempDir & "\voicetechyandex2.mp3")
SoundPlay(@TempDir & "\voicetechyandex2.mp3", 1)
Func _UnicodeURLEncode($UnicodeURL)
$UnicodeBinary = StringToBinary ($UnicodeURL, 4)
$UnicodeBinary2 = StringReplace($UnicodeBinary, '0x', '', 1)
$UnicodeBinaryLength = StringLen($UnicodeBinary2)
Local $EncodedString
For $i = 1 To $UnicodeBinaryLength Step 2
$UnicodeBinaryChar = StringMid($UnicodeBinary2, $i, 2)
If StringInStr("$-_.+!*'(),;/?:@=&abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890", BinaryToString ('0x' & $UnicodeBinaryChar, 4)) Then
$EncodedString &= BinaryToString ('0x' & $UnicodeBinaryChar)
Else
$EncodedString &= '%' & $UnicodeBinaryChar
EndIf
Next
Return $EncodedString
EndFunc
Как в этом примере можно поменять тип \ тембр голоса, или пол озвучивающего?