To create one such talk script sundin ang mga hakbang sa ibaba :)
Mga Hakbang
1.Buksan ang Notepad.
2.Kopyahin at ilagay ang eksaktong code sa ibaba .
3.Mag-click sa File Menu, Save As, select All Types in Save as Type option, and save the file as Speak.vbs or "*.vbs".
4. I-double click sa na-save na file, ang isang window ay bubukas xD ^_^ Enter some text in enter text column and click OK.
Dim Message, Speak
Message=InputBox("Enter text","Speak")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak Message
No comments:
Post a Comment