Tempat Hacking dan Cracking

Cara Agar Komputer Bisa Bebicara

Cara Agar Komputer Bisa Bebicara

Ane gak nyangka kalo komputer ane ternyata bisa ngomong " I Love U "..
Wahh,, mengesankan banget nih,,,
Nih cara nya..

Buka Notepad dulu
Paste nih Script

Const ForReading = 1

strText = InputBox ( "Masukkan nama file yang akan di baca, harus ekstensi .txt","Baca file txt dengan Notepad by KENTOS.WEB.ID")
Set objFSO = CreateObject( "Scripting.FileSystemObject")


Set objText = objFSO.OpenTextFile(strText + ".txt", ForReading)



strText = objText.ReadAll



objText.Close



Set Sapi = Wscript.CreateObject("SAPI.SpVoice")



Sapi.speak strText<code>

Save vile dengan nama akhir .vbs
Buka' Notepad lagi
Tulis kata ato kalimat yang mau di baca olh komputerSave seperti biasa tanpa merubah ekstensi .vbs
Selesai, buka file .vbs yang tadi anda simpan kemudian masukan nama file .txt yang anda buat ke-2 ( tanpa .txt, contoh ‘baca.txt’ anda hanya menulis ‘baca’ ).

Klik OK dan sudah bica membaca dan berbicara kan ?  )


share this article to: Facebook Twitter Google+ Linkedin Technorati Digg
Posted by Mubasir Alamsah, Published at 14:19 and have 0 komentar

No comments:

Post a Comment

Blog ini merupakan Blog Dofollow, karena beberapa alasan tertentu, sobat bisa mencari backlink di blog ini dengan syarat :
1. Tidak mengandung SARA
2. Komentar SPAM dan JUNK akan dihapus
3. Tidak diperbolehkan menyertakan link aktif
4. Berkomentar dengan format (Name/URL)