Script Membuat Tulisan di Notepad Menulis Sendiri

Script Membuat Tulisan di Notepad Menulis Sendiri

Sudah lama blog ini gak di update, maaf kepada teman-teman setia blog cilegonit.com 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....!!