Je veux réaliser un VBScript Google Speech, mais j'ai quelques problèmes avec ce code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
input = InputBox("Indiquez un texte à lire","Indiquez un texte à lire")
 
HTTPDownload "http://translate.google.com/translate_tts?ie=UTF-8&tl=fr&q=" &input,"c:\Gspeak.mp3" 
 
Sub HTTPDownload(strFileURL,strHDLocation)
'MsgBox "http://translate.google.com/translate_tts?ie=UTF-8&tl=fr&q=" &input
    Set Ws = CreateObject("WScript.Shell")
    Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    objXMLHTTP.open "GET", strFileURL, false
    objXMLHTTP.send()
If objXMLHTTP.Status = 200 Then
Set objADOStream = CreateObject("ADODB.Stream")
objADOStream.Open
objADOStream.Type = 1 'adTypeBinary
objADOStream.Write objXMLHTTP.ResponseBody
objADOStream.Position = 0    'Set the stream position to the start
Set objFSO = Createobject("Scripting.FileSystemObject")
If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
Set objFSO = Nothing
objADOStream.SaveToFile strHDLocation
objADOStream.Close
Set objADOStream = Nothing
End If
Set objXMLHTTP = Nothing 
Ws.Run strHDLocation
Set WS = Nothing
End Sub
Donc, je reçois cette erreur :
Ligne 10 Caract :5
The system cannot locate the resource specified
Code : 800C0005
msxml3.dll
Alors je cherche à améliorer ce code ou bien peut-être vous me suggérer d'autres méthodes pour atteindre mon but