Buat Tulisan Jalan Sendiri Di Notepad

Dalam Notepad, kita boleh set tulisan kita jalan sendiri


CARA-CARA :

1) Copy dan paste code ni dalam Notepad

Set wshshell = wscript.CreateObject("WScript.Shell")
Wshshell.run "Notepad"
wscript.sleep 200
wshshell.sendkeys "S"
wscript.sleep 200
wshshell.sendkeys "S"



2) Code di atas ini hanya diuji untuk 2 huruf berjalan saja. Tukar huruf 'S' kepada huruf yang anda mahu, begitu juga dengan yang bawah ini. Jika nak tambah banyak lagi, hanya tambah code di bawah ini di dalam Notepad.

wscript.sleep 200
wshshell.sendkeys "S"

*Diingatkan, untuk menjadi satu ayat sempurna, setiap code (yang berwarna biru tu) mewakili satu huruf. Termasuk juga 'space' (sengkang) perlu di letak.

3) Save As kepada fileanda.vbs . Pastikan Save Type: kepada Saves All Files.

4) Selesai.

* 200 = nilai kelajuan. Lagi besar, lagi lambat.

5) Jika mahu lagi cantik, tambah code ini di bawah sekali. Selang sebaris.

lol = msgbox("Taip Message Anda"

More Gadgets