#1. Buka notepad.
#2. Salin ataupun taip semula kod seperti di bawah ini di dalam notepad.
Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
#3. Simpankan fail anda tersebut dengan extension fail vbs.
#4. Selepas itu bukala applikasi tersebut dan taip la apa2 perkataan.
Jangan risau ianya bebas daripada virus bagi sesiapa yang bias dengan perkataan virus.. Selamat mencuba
0 comments:
Catat Ulasan