- Buka Notepad
Dim Message, Speak
Message=InputBox("Enter text","Speak")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak Message
Contoh copy & paste code tersebut ke dalam notepad |
3. Save as notepad tersebut sebagai speak.vbs
4. Open atau run skrip tersebut melalui tempat anda menyimpan notepad tersebut (Contoh: Desktop).
Sebaiknya save notepad tersebut ke desktop untuk memudahkan mencarinya |
5. Selepas membukanya, letak apa-apa sahaja perkataan yang ingin anda mahu disebut di ruangan input.
6. Komputer berkata-kata selepas anda menekan button OK.
0 comments :
Post a Comment