Langsung ke konten utama

Script Pembuat Komputer/laptop anda Bersuara

anda ingin mendengar suara asli dari komputer anda atau laptop anda
anda hanya mengcopy script dibawah ini ke notepad
lalu save dengan extensi .VBS
ketikkan kata yang ingin anda dengar dari suara komputer atau laptop anda...

enjoy..

Dim pesan, sapi
pesan = InputBox ( " Para member IH yang Maho silakan Berbicara :p?", "Berbicaralah kepada-Ku")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak pesan


nb:jika ingin mendengar kata-kata yang diucapkan indah ketikakan/masukkan kata dengan berbahasa inggris

Komentar

Posting Komentar

Postingan populer dari blog ini

Kecepatan Cahaya

Kecepatan Cahaya adl kecepatan gelombang elektro magnetic yg tercepat di jagat ini, yaitu: 299792.5 Km/detik, yang baru diketahui di abad 20, tentu saja dengan peralatan super canggih & modern , namun hal ini ternyata telah ditulis Qur’an 1400 Tahun yang lalu... subhanallah... Mungkin saudara saudarai pernah tahu jika konstanta C, atau kecepatan cahaya yaitu kecepatan tercepat di jagat raya ini diukur, dihitung atau ditentukan oleh berbagai institusion berikut: US National Bureau of Standards, C = 299792.4574 + 0. 0011 km/det The British National Physical Laboratory, C = 299792.4590 + 0.0008 km/det Konferensi ke-17 tentang Penetapan Ukuran dan Berat Standar: ”Satu meter adalah jarak tempuh cahaya dalam ruang vacum selama jangka waktu 1/299792458 detik". Sekarang, mari kita perhatikan apa yg Qur’an tulis tentang kecepatan cahaya. Qs. 10 Yunus: 5. Dia-lah yang menjadikan matahari bersinar dan bulan bercahaya dan ditetapkan-Nya manzilah-manzilah (jalan-jalan) bag
Posting Komentar
Baca selengkapnya

Nembak Gebetan Dengan Gaya Anak IT "try this"

Good Night All, Malam Minggu ini Writer sedang gundah hatinya, galau bahasa anak sekarang. tapi tidak menghentikan kreasi Writer untuk membagikan ilmu kepada Reader semua dibawah ini writer membuat sebuah Script yang dapat membantu agan sedikit beda untuk menembak sang gebetan yang lagi P.D.K.T dengan bergaya anak IT untuk mengetahui jawaban Reader diterima jadi pacar doi apa nggak so langsung aja copy text dibawah ini kenotepad lalu save dengan  extensi xxx.VBS tes dan perlihatkan ke.doi dan pastikan doi menjawab dan terimalah jawaban yang keluar Enjoy.. Dim Jika Jika = InputBox ("nama pacar agan", aku sayang banget sama kamu, cinta banget,sejak pertama kali aku kenal sama kamu dan yang pasti, aku  seneng banget bisa kenal kamu... , tapi yang pasti ini aku buat cuman buat buktiin kalo aku sayang bnget sama kamu. Sekarang kamu mau gak jadi pacar aku? ketik Y untuk ya or T untuk tidak.., lalu klik OK ya  ") If UCase(Jika) = "Y" Then MsgBox "Ma
Posting Komentar
Baca selengkapnya