carbonfiber
Fun Poster
- Messages
- 341
- Joined
- Aug 20, 2011
- Messages
- 341
- Reaction score
- 0
- Points
- 20
jalan punya jalan..terjumpa pulak bnde nie...
sume windows boleh..
hanya perlu notepad..dah bole buat software nie..
follow arahan dbawah..
1. Buka aplikasi Notepad.
2. Copy dan paste kod di bawah ke 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. Simpan fail tersebut dengan nama speak.vbs di desktop komputer anda.
4. Klik pada fail speak.vbs yang anda simpan di desktop tadi. Nanti akan keluar windows seperti di bawah:
Taipkan apa yang anda mahu komputer anda ucapkan ke dalam kotak dan tekan OK.



sumber
sume windows boleh..
hanya perlu notepad..dah bole buat software nie..
follow arahan dbawah..
1. Buka aplikasi Notepad.
2. Copy dan paste kod di bawah ke 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. Simpan fail tersebut dengan nama speak.vbs di desktop komputer anda.
4. Klik pada fail speak.vbs yang anda simpan di desktop tadi. Nanti akan keluar windows seperti di bawah:
Taipkan apa yang anda mahu komputer anda ucapkan ke dalam kotak dan tekan OK.
sumber
