Trik Rahasia Membuat tulisan berjalan di Notepad

Postingan kali ini adalah postingan dari temanku IDOEN pemilik blog brengkolspirit.7ruh.com N bagi sobat blogger yg ingin berbagi artikel bisa menghubungiku........

Pernahkah kamu bikin tulisan jalan pada Notepad, kalau kamu pnasaran gimana caranya lagsung aja Begini caranya :

1. Buatlah new notepad ( .txt )

2. copy script berikut ke notepad :

Code:

set wshshell = wscript.CreateObject("wscript.shell")
        wshshell.run "Notepad"
        wscript.sleep 2000
        wshshell.AppActivate "Notepad"
        WshShell.SendKeys "C"

        WScript.Sleep 300
        WshShell.SendKeys "r"
        WScript.Sleep 300
        WshShell.SendKeys "a"
        WScript.Sleep 300
        WshShell.SendKeys "t"
        WScript.Sleep 300

        WshShell.SendKeys "e"
        WScript.Sleep 300
        WshShell.SendKeys "d"
        WScript.Sleep 300
        WshShell.SendKeys " "
        WScript.Sleep 500
        WshShell.SendKeys "b"

        WScript.Sleep 300
        WshShell.SendKeys "y"
        WScript.Sleep 300
        WshShell.SendKeys " "
        WScript.Sleep 500
        WshShell.SendKeys "i"
        WScript.Sleep 300

        WshShell.SendKeys "d"
        WScript.Sleep 300
        WshShell.SendKeys "o"
        WScript.Sleep 300
        WshShell.SendKeys "e"
        WScript.Sleep 300
        WshShell.SendKeys "n"

        WScript.Sleep 300
        WshShell.SendKeys "b"
        WScript.Sleep 300
        WshShell.SendKeys "r"
        WScript.Sleep 300
        WshShell.SendKeys "e"
        WScript.Sleep 300

        WshShell.SendKeys "n"
        WScript.Sleep 300
        WshShell.SendKeys "g"
        WScript.Sleep 300
        WshShell.SendKeys "k"
        WScript.Sleep 300
        WshShell.SendKeys "o"

        WScript.Sleep 300
        WshShell.SendKeys "l"
        WScript.Sleep 300
        WshShell.SendKeys " "
        WScript.Sleep 500
        WshShell.SendKeys "h"
        WScript.Sleep 300

        WshShell.SendKeys "a"
        WScript.Sleep 300
        WshShell.SendKeys "."
        WScript.Sleep 300
        WshShell.SendKeys "."
        WScript.Sleep 300
        WshShell.SendKeys "h"

        WScript.Sleep 300
        WshShell.SendKeys "a"
        WScript.Sleep 300
        WshShell.SendKeys "."
        WScript.Sleep 300
        WshShell.SendKeys "."
        WScript.Sleep 300

3. lalu save as dgn ekstensi .vbs

4. klik file tsb, dan liat keajaiban pun terjadi...