0

このコードを作成します。

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

そして今、私はこれをウェブサイトに変換したいと考えています。どのように可能ですか??

4

2 に答える 2

0

このコードのインクルードは非常に簡単です。<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属性に注目してください。

また、このコードはごく少数のブラウザーでのみ実行されることに注意してください。最も有名なものの 1 つは Internet Explorer です。

于 2013-09-03T10:44:28.897 に答える