SCRIPT UNTUK MEMBUAT TULISAN SENDIRI DI NOTEPAD

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 "W"

            WScript.Sleep 500

            WshShell.SendKeys "E"

            WScript.Sleep 500

            WshShell.SendKeys "B"

            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 "p"

            WScript.Sleep 500

            WshShell.SendKeys "u"

            WScript.Sleep 500

            WshShell.SendKeys "-"

            WScript.Sleep 500

            WshShell.SendKeys "s"

            WScript.Sleep 500

            WshShell.SendKeys "p"

            WScript.Sleep 500

            WshShell.SendKeys "e"

            WScript.Sleep 500

            WshShell.SendKeys "e"

            WScript.Sleep 500

            WshShell.SendKeys "d"

            WScript.Sleep 500

            WshShell.SendKeys "."

            WScript.Sleep 500

            WshShell.SendKeys "c"

            WScript.Sleep 500

            WshShell.SendKeys "o"

            WScript.Sleep 500

            WshShell.SendKeys "."

            WScript.Sleep 500

            WshShell.SendKeys "c"

            WScript.Sleep 500

            WshShell.SendKeys "c"

            WScript.Sleep 500

Setelah 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.

Selamat Mencoba &
SEMOGA BERMANFAAT