Sabtu, 05 Maret 2011

Membuat Tulisan Otomatis Jalan Sendiri di Notepad

Caranya sbb...

copas script berikut ke notepad :

set wshshell = wscript.CreateObject("wscript.shell")
wshshell.run "Notepad"
wscript.sleep 2000
wshshell.AppActivate "Notepad"
WshShell.SendKeys "C"
WScript.Sleep 500
WshShell.SendKeys "Y"
WScript.Sleep 500
WshShell.SendKeys "B"
WScript.Sleep 500
WshShell.SendKeys "E"
WScript.Sleep 500
WshShell.SendKeys "R"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "M"
WScript.Sleep 500
WshShell.SendKeys "E"
WScript.Sleep 500
WshShell.SendKeys "O"
WScript.Sleep 500
WshShell.SendKeys "N"
WScript.Sleep 500
WshShell.SendKeys "G"


Lalu save as dgn ekstensi .vbs


Kalo pengen lebih cepet speed tulisan nya, tinggal edit aja angka 500 pada bagian WScript.Sleep 500, ganti dgn angka yg lebih kecil, misal 100.

2 komentar:

  1. kalo bikin ke bawah tulisannya gimana gan?

    BalasHapus
  2. cara agar tulisannya enter kebawah bagaimana mas ? terima kasih.. ^^

    BalasHapus