Отворете new text document и копирајте го и ставете го ова:
Dim userInput
userInput = InputBox("Write a message for me to say")
Set Sapi = Wscript.CreateObject("SAPI.SpVoice")
Sapi.speak userInput
Зачувајте го како .VBS
Потоа ке ви се отвори нов прозорец каде ке ве праша што сакате да напишете за вашиот компјутер да почне да го изговара напишаниот текст.
Dim userInput
userInput = InputBox("Write a message for me to say")
Set Sapi = Wscript.CreateObject("SAPI.SpVoice")
Sapi.speak userInput
Зачувајте го како .VBS
Потоа ке ви се отвори нов прозорец каде ке ве праша што сакате да напишете за вашиот компјутер да почне да го изговара напишаниот текст.
No comments:
Post a Comment