bikin windows baca dan ngomong tulisan di notepad.

gak pake basa basi, langsung aja...

1.buka notepad terus copas code ini :

Code:

Const ForReading = 1
strText = InputBox("Please type in the name of the file you want to read the file, the file has an extension .txt","Read text files from notepad")
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.

SELAMAT MENCOBA. . .