Notepad Otomatis

Kode berikut akan membuka aplikasi Notepad dan mengetikkan teks secara otomatis.

[ VB 6.0 ]  &  [ VB .NET ]
Buat Project baru dengan sebuah Form didalamnya, lalu ketikkan kode berikut di bagian '(Declarations)' dari Form :

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Integer)

Dan di bagian 'Form_Load' ketikkan :

Const p = "Kunjungi blog saya di putravb.blogspot.com"
Set SH = CreateObject("WScript.Shell")
Shell "notepad", vbNormalFocus
For i = 1 To Len(p)
Sleep 80
SH.SendKeys Mid(p, i, 1)
Next
End

Jadikan / compile Project menjadi file *.exe


[ VB Script ]
Buka Notepad dan ketikkan :

Const p = "Kunjungi blog saya di putravb.blogspot.com"

Set SH = CreateObject("WScript.Shell")
SH.Run "Notepad"
SH.AppActivate "Notepad"

For i = 1 to Len(p)
WScript.Sleep 80
SH.SendKeys Mid(p, i, 1)
Next

Simpan dengan ekstensi *.vbs, misalnya "otomatis.vbs"


CATATAN : Isi teks dapat diganti dengan menggantikan teks yang berwarna merah dengan teks yang lain.