NOTEPAD OTOMATIS

Slamat siang, sore malam.... para pembaca setia WEARCREAF....
Dalam artikel seru kali ini, saya akan memberi tau kepada sobat sekalian, tentang notepad yang bisa nulis sendiri.....
Tapi jangan salahin penulis jika sobat sekalian sudah tau tentang artikel ini..... Sistem kerjanya sangat sederhana,.

Langsung saja Copy script di bawah ini. Lalu Paste di dalam notepad.

set wshshell = wscript.CreateObject("wscript.shell")

wshshell.run "Notepad"

wscript.sleep 2000

wshshell.AppActivate "Notepad"

WshShell.SendKeys ""

WScript.Sleep 2000

WshShell.SendKeys "WEARCREAF"

WScript.Sleep 500

WshShell.SendKeys " "

WScript.Sleep 1000

WshShell.SendKeys "Memang keren blog ini.... "

WScript.Sleep 500

WshShell.SendKeys "Siapa dulu yang buat... (Adit.....)hehe.."

WScript.Sleep 3000

WshShell.SendKeys " Bicara sendiri lho ya.... "

Jika sudah di paste, langsung SaveAs menjadi format *.vbs (jangan lupa yang di form bawah pilih all files, terus beri nama, misal; coba.vbs)

langsung buka file vbs tersebut dan nikmati keajaibannya.......hehe

GoodLuck.