Bikin windows baca dan ngomong tulisan di notepad..

1.buka notepad terus copas code ini :

 

Code:

 

Const ForReading = 1
strText = InputBox("Masukkan nama file yang akan di baca, harus ekstensi .txt","Baca file txt dengan Notepad by INTIFADHA")
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

2. terus save dengan akhiran .vbs, nama file bebas. (misal : robot.vbs)
3. beres deh...

4. nah selanjutnya buka notepad baru,..terus ketik kalimat ato apa kek (misal : troy cowo ).terus save gak usah pake vbs klo yang ini mah..biasa aja, akhiran nya pake .txt, nama file bebas (misal : 1.txt)

5. klo dah selesai.. buka file vbs tadi, terus ketik disitu nama file notepad yang akan dibaca tadi,yang ada troy cowo nya (contoh nama filenya : 1)

6. selesai deh..bisa ngomong kan..