4 Jom kna kn member ! hehehe....

Share

Aq ade idea klu korang sje nk menakutkan kwn2 korang yg agak2 noob ckit psl laptop nie..hihihi

Sumenye menggunakan notepad..x perlu nk install software pape..korang bkk je notepad yg dh tersedia ada kt dlm laptop korang..

Ade 2 care....

    1st >>>>

Korang akan wt lampu capslock n numlock kt laptop kwn korang menyala berkelip2..

care-carenye...... p/s : dh mcm rancangan msk2 lak..hehehe

Korang copy code yg aq bg nie..

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

>> Paste kt dlm notepad n save sebagai lampukelip2.vbs

>> then korang double klik kt laptop kwn korang..tgk la ape yg berlaku......hehehe

   2nd >>>>

Korang akan wt dvd drive laptop kwn korang terbukak sepanjang mase..

Stepnye.......

Korang copy code ni...

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 100
loop

>> Paste kt dlm notepad n save sebagai cd.vbs

>> pas 2..cm bese la..bukak kt laptop kwn..lihat lah hasil nye !

Kalau nk hentikan code kt atas nie..

korang bkk task manager..dan end prosess wscript.exe