Skip to content

Instantly share code, notes, and snippets.

@mitaken

mitaken/sample.vbs

Created August 9, 2014 13:46
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save mitaken/80add6cde14fd3227796 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save mitaken/80add6cde14fd3227796 to your computer and use it in GitHub Desktop.
Download ZIP
SAPI.SpVoiceのテスト
Raw
sample.vbs
Option Explicit
Const PROG_ID = "SAPI.SpVoice"
Dim StrMessage
StrMessage = InputBox("しゃべらす文字", PROG_ID)
If Len(StrMessage) = 0 Then
WScript.Quit
End If
Dim ObjSapi
Set ObjSapi = WScript.CreateObject(PROG_ID)
Call ObjSapi.Speak(StrMessage)
Set ObjSapi = Nothing
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment