Notepad Otomatis

Kali ini saya akan share kode VB/ VB .Net untuk membuka dan menulis di notepad secara otomatis.

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)

Cara memanggil dan menulis ketikkan :

Const p = "Teks anda"
Set SH = CreateObject("WScript.Shell")
Shell "notepad", vbNormalFocus
For i = 1 To Len(p)
Sleep 80
SH.SendKeys Mid(p, i, 1)
Next

DOWNLOAD PROJECT