1. Buka Notepad
2. Copas script kode dibawah ini:
Dim msg, sapi
msg = InputBox ( "Apa yang Anda ingin saya katakan? Masukkan aja kata-katanya", "Masukan kata-kata")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
msg = InputBox ( "Apa yang Anda ingin saya katakan? Masukkan aja kata-katanya", "Masukan kata-kata")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
3. Save As. Pilih All Files, Beri nama eaglemypc.vbs
4. Klik 2X Notepad yang disimpan tadi dengan nama mypc.vbs. Keren kan? sobat pasti bisa mencobanya sendiri.
Dim msg, sapi
msg = InputBox ( "ganti dengan kata-kata sobat", "Masukan kata-kata")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
Pasti bekerja 100%, telah teruji oleh saya :)
11 komentar:
wakakkakak.....kunjungan balik sob! ini software seu juga ya....download ah...thx 4 share
hahahah lucu-lucu, ok ane testing juga ya sob
dari aguestri.co.cc
@Yudan Fahmie: ini bukan software sob. Hanya sebuah trick berupa script yang dimasukkan ke Notepad ^_^
@agus: Yupz, testing aj :) bekerja 100%
zaman yg semakin canggih harus di imbangi nh...
@etam grecek: ^_^ betul sob. Jangan mau ketinggalan
mantap sob
Mangstab gan!!!
Keren cuy..
sank you
Tips saya : Setelah saya perhatikan, komputernya berbicara dengan bahasa inggris. Kalau sobat kreatif, kenapa gak jadiin software ini lebih berguna? Gimana kalo dijadikan sebagai software kecil yang bisa mengajari kita cara ngomong bahasa inggris dengan benar. Misalnya kita tulis "eat" lalu komputer berbicara dengan bahasa inggris yang benar. Gimana, bagus kan? Lumayan buat sobat yang mau belajar ngomong inggris. Semoga tips ini membantu!
kunjungi blogku ya : http://cool-ninja.blogspot.com/
mantaap bagus
Posting Komentar