[سؤال] تحويل النص إلى صوت عن طريق جوجل

PHP كود :
Private Sub DownloadAndPlay()
       Try
           'main delecration'
           Dim soundData As Byte()
           Dim url As String = String.Format("http://translate.google.com/translate_tts?tl={0}&q={1}", comboBox1.Text.ToLower(), textBox1.Text.Trim())

           'create requset'
           Dim rq As HttpWebRequest = TryCast(WebRequest.Create(url), HttpWebRequest)
           rq.UserAgent = "Mozilla/5.0 (Windows NT 6.1; rv:27.0) Gecko/20100101 Firefox/27.0"

           'read response'
           Dim response As HttpWebResponse = TryCast(rq.GetResponse(), HttpWebResponse)
           Using stream As New BinaryReader(response.GetResponseStream())
               soundData = stream.ReadBytes(CInt(response.ContentLength))
               stream.Close()
               response.Close()
           End Using


           'create voice file in windows-temprary folder'
           Dim tempFilePath As String = CreateTempFile(soundData)

           'play temprary-file sound'
           PlaySound(tempFilePath)

       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try
   End Sub

   Private Function CreateTempFile(ByVal data As Byte()) As String
       'sound format is mpeg'
       Dim soundFileName As String = System.IO.Path.GetTempPath() & Guid.NewGuid().ToString() & ".mpeg"
       File.WriteAllBytes(soundFileName, data)
       Return soundFileName
   End Function

   Private Sub PlaySound(ByVal file As String)
       'initlize player'
       Dim player As New WMPLib.WindowsMediaPlayer()
       player.settings.volume = 100
       player.settings.autoStart = True
       AddHandler player.PlayStateChange, AddressOf player_PlayStateChange
       player.URL = file
   End Sub

   Private Sub player_PlayStateChange(ByVal NewState As Integer)
       Application.DoEvents()
       If NewState = CInt(WMPLib.WMPPlayState.wmppsMediaEnded) Then
           'release everything'
           toolStripProgressBar1.Style = ProgressBarStyle.Blocks
       End If
   End Sub