Guest User

Convert Text into Audio using Notepad

a guest
Jul 14th, 2016
1,162
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. <html><head><title>Convert Text into Audio using Notepad</title><HTA:APPLICATION
  2. APPLICATIONNAME="Convert Text into Audio using Notepad"
  3. ID="Convert Text into Audio using Notepad"
  4. VERSION="1.0"
  5. MAXIMIZEBUTTON="no"
  6. SCROLL="no"/></head>
  7. <style> td { color: Black; }
  8. caption { color: Black; }
  9. body { font-family: Arial; background-color: #388A9F; color: #808080; }
  10. input { background-color: #202020; color: #808080; }
  11. textarea { background-color: #22374B; color: #D6E1EC; font-style:bold; }
  12. </style>
  13. <script language="VBScript">
  14. Sub Window_OnLoad
  15. Dim width,height
  16. width=470
  17. height=400
  18. self.ResizeTo width,height
  19. End Sub
  20. Function Listen
  21. Dim message
  22. message = tamsg.value
  23. If (message = null) Then
  24. X = MsgBox("Enter your message", 48, "Error Message")
  25. Else
  26. Set sapi=CreateObject("sapi.spvoice")
  27. sapi.Speak message
  28. End If
  29. End Function
  30. </script>
  31. <body bgcolor="white">
  32. <span title=""> <marquee color="white" bgcolor="black" style="font-family= Book Antiqua;"> <font color="cyan"></font></marquee>
  33. </span> <table align="center" width="400"> <caption style="font-family:Book Antiqua; font-size:20;"><hr color="black"><b>Message Speaker</b><hr color="black"></caption>
  34. <tr> <td align="center"> <span title="Enter your Full message here"><textarea id="tamsg" cols="50" rows="10"></textarea></span> </td> </tr>
  35. <td align="right" color="black" style="font-family: Book Antiqua; font-size:18;"> <hr color="black"> <span title="Click here to listen your message">
  36. <input style="width: 130px; height:25px; color: white; background-color: #203040; font-family:Book Antiqua; font-size:15;" type="button" Value="Listen" id="btnsp" onClick="Listen()" onmouseover="btnsp.style.background='#102030'" onmouseout="btnsp.style.background='#203040'"> </span> </td> </tr> <tr>
  37. <td align="right"><hr color="black"> <span title="" style="font-size: 13px; font-family:Book Antiqua;">&copy; </span> </td> </tr> </table> </body> </html>
RAW Paste Data