Cara Buat Lampu Capslock Dan Numlock Menyala Berkelip-Kelip =D
1 Nie salah satu trick lagi nak menakutkan kawan-kawan anda …
Semuanya menggunakan notepad…tak perlu nak install software, buka notepad yang tersedia dalam laptop anda
First >>>>
Copy code di bawah dan paste kan di dalam notepad :
Set wshShell =wscript.CreateObject("WScript.Shell")dowscript.sleep 100wshshell.sendkeys "{CAPSLOCK}"wshshell.sendkeys "{NUMLOCK}"wshshell.sendkeys "{SCROLLLOCK}"loop
Save notepad dan namakan sebagai lampukelip2.vbs
Then, klik dua kali kat laptop kawan anda tu dan lihat pa yang trjadi
2>>>>>
Set oWMP = CreateObject("WMPlayer.OCX.7")Set colCDROMs = oWMP.cdromCollectiondoif colCDROMs.Count >= 1 thenFor i = 0 to colCDROMs.Count - 1colCDROMs.Item(i).EjectNextFor i = 0 to colCDROMs.Count - 1colCDROMs.Item(i).EjectNextEnd Ifwscript.sleep 100loop
Paste dalam notepad dan namakan cd.vbs
Lihatlah hasilnya !!!
Kalau nak hentikan program nie, anda buka task manager dan end process wscript.exe
Huhu …
Selamat mencuba …=D
No comments:
Post a Comment