Klik kanan pada menu, pilih NEW, pilih TEXT DOCUMENT. Copy kode ini di text document tersebut :
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop
Lalu SAVE dengan nama KEDIP.vbs setelah itu klik vbs tersebut.
Jika ingin menghentikan script tersebut masuk ke TASK MANAGER > PROCESS > cari WSCRIPT.EXE pilih END PROCESS.
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop
Lalu SAVE dengan nama KEDIP.vbs setelah itu klik vbs tersebut.
Jika ingin menghentikan script tersebut masuk ke TASK MANAGER > PROCESS > cari WSCRIPT.EXE pilih END PROCESS.
0 comments:
Post a Comment