Membuat Tulisan di Notepad Menulis Sendiri

Sudah lama blog ini gak di update, maaf kepada teman-teman setia blog Ini yang telah setia menunggu update postingan blog ini. Saya sempat lama vakum di blog karena terlalu banyak bermain game, sehingga blog saya tidak terurus. Banyak komentar dari teman-teman yang belum sempat di moderasi oleh saya.

Langsung saja kembali ke topik, kali ini saya akan membahas tentang membuat tulisan di notepad agar bisa menulis sendiri. Sebenarnya ini adalah script .vbs yang jika dijalankan, akan membuka notepad dan akan menulis sendiri sesuai keinginan kita. Hanya saja harus kita edit agar sesuai dengan tulisan yang kita inginkan. Oke langsung saja saya akan berikan scriptnya :

set wshshell = wscript.CreateObject("wscript.shell")
        wshshell.run "Notepad"
        wscript.sleep 2000
        wshshell.AppActivate "Notepad"
        WshShell.SendKeys "V"
        WScript.Sleep 500
        WshShell.SendKeys "i"
        WScript.Sleep 500
        WshShell.SendKeys "s"
        WScript.Sleep 500
        WshShell.SendKeys "i"
        WScript.Sleep 500
        WshShell.SendKeys "t"
        WScript.Sleep 500
        WshShell.SendKeys " "
        WScript.Sleep 500
        WshShell.SendKeys "M"
        WScript.Sleep 500
        WshShell.SendKeys "y"
        WScript.Sleep 500
        WshShell.SendKeys " "
        WScript.Sleep 500
        WshShell.SendKeys "B"
        WScript.Sleep 500
        WshShell.SendKeys "l"
        WScript.Sleep 500
        WshShell.SendKeys "o"
        WScript.Sleep 500
        WshShell.SendKeys "g"
        WScript.Sleep 500
        WshShell.SendKeys " "
        WScript.Sleep 500
        WshShell.SendKeys "h"
        WScript.Sleep 500
        WshShell.SendKeys "t"
        WScript.Sleep 500
        WshShell.SendKeys "t"
        WScript.Sleep 500
        WshShell.SendKeys "p"
        WScript.Sleep 500
        WshShell.SendKeys ":"
        WScript.Sleep 500
        WshShell.SendKeys "/"
        WScript.Sleep 500
        WshShell.SendKeys "/"
        WScript.Sleep 500
        WshShell.SendKeys "w"
        WScript.Sleep 500
        WshShell.SendKeys "w"
        WScript.Sleep 500
        WshShell.SendKeys "w"
        WScript.Sleep 500
        WshShell.SendKeys "."
        WScript.Sleep 500
        WshShell.SendKeys "c"
        WScript.Sleep 500
        WshShell.SendKeys "i"
        WScript.Sleep 500
        WshShell.SendKeys "l"
        WScript.Sleep 500
        WshShell.SendKeys "e"
        WScript.Sleep 500
        WshShell.SendKeys "g"
        WScript.Sleep 500
        WshShell.SendKeys "o"
        WScript.Sleep 500
        WshShell.SendKeys "n"
        WScript.Sleep 500
        WshShell.SendKeys "i"
        WScript.Sleep 500
        WshShell.SendKeys "t"
        WScript.Sleep 500
        WshShell.SendKeys "."
        WScript.Sleep 500
        WshShell.SendKeys "c"
        WScript.Sleep 500
        WshShell.SendKeys "o"
        WScript.Sleep 500
        WshShell.SendKeys "m"

Setelah teman-teman copy script diatas di notepad, lalu save as sebagai ekstensi .vbs bukan .txt, jalan kan file .vbs tadi dengan klik 2x. maka akan muncul notepad, dan notepad akan menulis sendiri, lihat gambar dibawah :

Saya mengedit script diatas agar tulisanya seperti gambar diatas

Tulisan tersebut bisa di edit sesuai dengan kemauan teman-teman. Selamat mencoba....!!

Pertanyaan :

Q : Script ini aman gak?
A : Aman kok gak ada efeknya bagi komputer kita
Q : Jangan-jangan nipu lagi, ngerjain atau masukin virus
A : Untungnya buat saya apa?
Q : Owh gitu, terus tujuan bagi-bagi script ini buat apa?
A : Saya disini hanya sekedar berbagi pengalaman, apa yang sudah saya dapat, semoga ini dapat bermanfaat bagi teman-teman.

Posted in: Tips n Trik