Question

我创建了这段代码。

Dim msg, sapi
msg=InputBox("Enter your text","Talk it")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg

现在我想把它转换成网站。怎么可能??

Answer 1

此代码的包含非常简单。使用流行的<script>标记完成此任务：

<html>
  <head>
  </head>
  <body>
  <input type="text" name="textinput" size="30">
   <script type="text/vbscript">
    Sub SpeakIt
       Dim msg, sapi
       msg= textinput.Value
       Set sapi=CreateObject("sapi.spvoice")
       sapi.Speak msg
     End Sub
   </script>
   <input type="button" value="speak" onClick="SpeakIt">
  </body>
</html>

请注意提及的script标记，尤其是其他type属性。

请记住，此代码仅在极少数浏览器中执行。其中最着名的是Internet Explorer。

Answer 2

纯粹猜测（未经测试，因为我目前无法访问合适的环境），但您可以做一些事情，比如接受表单中的文本并使用经典ASP然后HTML5 {{1标签播放：

你的表格：

<audio>

你的asp和输出HTML：

<!DOCTYPE html>
<html>
    <head></head>
    <body>
       <form action="speak.asp" method="get">
            <fieldset>
                <legend>Enter your text</legend>
                <input type="text" placeholder="Enter text..." name="line" ><br>
                <input type="submit" value="Talk it" >
            </fieldset>
       </form>
    </body>
</html>

这假设您的Web服务器当然安装了语音API。

我想使用vb脚本作为网站。如何做到这一点

2 个答案: