This is a little funny trick and you can fool your friend with this trick. We will gonna make the keyboard's LED(of CapsLock, NumLock & ScrollLock) like dancing lights and rapidly disk drive will come in-out. Obviously, also you can scare your buddies at night by executing this program.😜
Keyboard LED Like Dancing Lights :
Step 1 : Open Notepad and copy-paste this code in it.
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop
Step 2 : Save it with .vbs extension like : LED.vbs
When you open that vbs file and you will find LED is blinking.
Now when you open that VBS file-you can see the cd drive is coming in-out rapidly.
When you open that vbs file and you will find LED is blinking.
CD Drive Popping In-Out :
Step 1 : Open Notepad and copy-paste this code in it.
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 5000
loop
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 5000
loop
Step 2 : Save it with .vbs extension like : CD Drive.vbs
Now when you open that VBS file-you can see the cd drive is coming in-out rapidly.
How to stop this :
Step 1 : Open Task Manager.(Ctrl+Shift+Esc or Ctrl+Alt+Del)
Step 2 : Find the process named 'wscript.exe' and click End task.
See also :
See also :