kalo loe bete sendirian gak ada temen curhat jangan sedih ini bisa jadi solusinya...loe curhat aja sam laptop loe biar gila2 sendiri ... hehe
gini ku mau share caranya gampang aja anak kecil juga bisa cuy... lo loe gak bisa kalah sama anak kecil brarti langsung ja gan...
1. nootepad loe pasti tau notepad klo gak tau tanya sama tetanggamu deh...
2. loe copy script dibawa ini :
- Dim msg, sapi msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukan kata-kata") Set sapi = CreateObject ( "sapi.spvoice") sapi.Speak msg
3. loe save as, terus pilih all files terus kasih nama apa aja contoh "harry.vbs"
4. selesai, nah sekang buka file tadi dan klik 2 kali jika udah terbuka masukin kalimat apa aja klik ok
jika pengen waktu diklik 2 kali langung bisa bicara masukin skripnya seperti ini
Dim msg, sapi
msg = "Ganti dengan kata-kata anda"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
msg = "Ganti dengan kata-kata anda"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
saveas juga sama aja caranya kyk diatas cuy,,,
nah loe ajak deh tu laptop curhat biar gila-gila sendiri ...
Koment dibawah ini jika loe suka atau gak ...thanks...
Tidak ada komentar:
Posting Komentar