Sabtu, 17 September 2011

Membuat Lampu Keyboard Kedip-kedip (joget)

KAli Ini SAYa AKan MemPOsTINg CAra AGAR LampU DI KeYBOarD KItA (LaMpu nUM LOCk, CapS LOcK dAN ScROlL LOck) MeNjAdI kEDip-kEdIp KAyAk SeDaNg DisKo. TAu gAK KENapa tULiSaN Di POstiNgAn iNI AlAy? kARENA scrIpTnyA lAgI bERjAlAn, jADi huRufNYa gK jELaS giNi Deh.. Mau TaU cARAnyA GImANA? LaNgsUNg aJa sImAk cArAnyA BeriKUt InI.


PErTaMa, BuKA DuLU pRogrAm NoTepAD DAn coPY PasTe koDe bERikUt.

Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop


atau boleh juga mengatur waktunya agar lebih lamban seperti ini.


Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wscript.sleep 100
wshshell.sendkeys "{NUMLOCK}"
wscript.sleep 100
wshshell.sendkeys "{SCROLLLOCK}"
loop

Lalu save as namafile.vbs, caranya klik file>save as, kemudian ganti "Save As Type" nya menjadi all files dan ketik namafile.vbs, pokoknya yang penting ada *.vbs

nah, jalankan script tadi. Keyboard anda pun akan berdisko!!!

cara mengakhirinya ada lah dengan menjalankan task manager. Klik kanan pada "Taskbar" pilih "Start Task Manager" dan di tab "Processes" cari yang namanya "wscript.exe" klik kanan pada program tersebut dan pilih "End Process"


Tidak ada komentar:

Posting Komentar