sub main()


hs.SpeakToFile "Le programme télé de ce soir: sur TF1 à " & hs.DeviceString("T41") & ". " & "Sur France 2 à " & hs.DeviceString("T42") & ". " & "Sur France 3 à " & hs.DeviceString("T43") & ". " & "Sur M6 à " & hs.DeviceString("T46") & ". ","ScanSoft Virginie_Full_22kHz" , "S:\programmetv.wav" 


  path = hs.GetAppPath & "\foobar\5\foobar2000.exe"
   hsp.waitms 500
   hs.Launch path, "/hide"
   hsp.waitms 500
   hs.Launch path, "/command:Playlist/Clear"
   hsp.waitms 500
   hs.Launch path, "/add ""S:\programmetv.wav"""
   hsp.waitms 500
   hs.WaitSecs 3
   hs.Launch path, "/play"
   hs.WaitSecs 90
   hs.Launch path, "/command:Playlist/Clear"
   hsp.waitms 500
   hs.Launch path, "/exit"

end sub