Esta funci\u00f3n sirve para utilizar el API Speak de Google, con la cual podemos llevar un texto a voz de m\u00e1quina, esta api s\u00f3lo se limita a cien caracteres, y por supuesto necesitamos de internet para que funcione.
\nEl primer par\u00e1metro es el texto que queremos escuchar, el segundo el idioma o mejor dicho la pronunciaci\u00f3n, en el caso de espa\u00f1ol es \u00abes\u00bb para otros por ejemplo:<\/p>\n
Alem\u00e1n: de
\nDan\u00e9s: da
\nEspa\u00f1ol: es
\nFinlandia: fi
\nFranc\u00e9s: fr
\nIngl\u00e9s: en
\nItaliano: it
\nNeerland\u00e9s: nl
\nPolaco: pl
\nPortugu\u00e9s: pt
\nSueco: sv<\/p>\n
y el tercer par\u00e1metro es para llamar a DoEvents si es que lo deseamos.<\/p>\n
\r\nOption Explicit\r\n'-----------------------------------------------------------------------------------------------------\r\n'Autor: Leandro Ascierto\r\n'Web: www.leandroascierto.com.ar\r\n'Abreviaturas\r\n'de, da, es, fi, fr, en, it, nl, pl, pt, sv"\r\n'Alem\u00e1n , Dan\u00e9s, Espa\u00f1ol, Finlandia, Franc\u00e9s, Ingl\u00e9s, Italiano, Neerland\u00e9s, Polaco, Portugu\u00e9s, Sueco\r\n'----------------------------------------------------------------------------------------------------\r\nPrivate Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long\r\nPrivate Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long\r\n\r\nPublic Function GoogleSpeak(ByVal sText As String, Optional ByVal Language As String = "es", Optional ByVal bDoevents As Boolean) As Boolean\r\n On Error Resume Next\r\n Dim sTempPath As String, ml As String\r\n Dim FileLength As Long\r\n\r\n sText = Replace(sText, vbCrLf, " ")\r\n\r\n If Len(sText) > 100 Then Exit Function\r\n\r\n sTempPath = Environ("Temp") & "\\TempMP3.MP3"\r\n\r\n If URLDownloadToFile(0&, "http:\/\/translate.google.com\/translate_tts?tl=" & Language & "&q=" & sText, sTempPath, 0&, 0&) = 0 Then\r\n\r\n If mciSendString("open " & Chr$(34) & sTempPath & Chr$(34) & " type MpegVideo" & " alias myfile", 0&, 0&, 0&) = 0 Then\r\n\r\n ml = String(30, 0)\r\n Call mciSendString("status myfile length ", ml, 30, 0&)\r\n FileLength = Val(ml)\r\n If FileLength Then\r\n If mciSendString("play myFile", 0&, 0&, 0&) = 0 Then\r\n Do While mciSendString("status myfile position ", ml, 30, 0&) = 0\r\n If Val(ml) = FileLength Then GoogleSpeak = True: Exit Do\r\n If bDoevents Then DoEvents\r\n Loop\r\n End If\r\n End If\r\n Call mciSendString("close myfile", 0&, 0&, 0&)\r\n\r\n End If\r\n\r\n Kill sTempPath\r\n End If\r\n\r\nEnd Function\r\n\r\nPrivate Sub Command1_Click()\r\n Debug.Print GoogleSpeak("Antes era sexo droga y rock and roll, ahora es paja mate y chamame", "es", True)\r\nEnd Sub\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"Esta funci\u00f3n sirve para utilizar el API Speak de Google, con la cual podemos llevar un texto a voz de m\u00e1quina, esta api s\u00f3lo se limita a cien caracteres, y por supuesto necesitamos de internet para que funcione. El primer par\u00e1metro es el texto que queremos escuchar, el segundo el idioma o mejor dicho la […]<\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[42],"tags":[64],"class_list":["post-472","post","type-post","status-publish","format-standard","hentry","category-funciones","tag-google","category-42-id","post-seq-1","post-parity-odd","meta-position-corners","fix"],"_links":{"self":[{"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/posts\/472","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/comments?post=472"}],"version-history":[{"count":3,"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/posts\/472\/revisions"}],"predecessor-version":[{"id":496,"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/posts\/472\/revisions\/496"}],"wp:attachment":[{"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/media?parent=472"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/categories?post=472"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/tags?post=472"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}