VBS prank: Continoually Pop Out the CD drive

This VBS Prank Will 100% Irritate your Friends cause it's make CD Drive Pop out again and again.
Code:

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

Save the above code in Notepad file As "Anything.vbs" (Without Quotes ) but make sure While saving this file select Save as type "All files" and extension must be .vbs.

Note: To Stop Scrip End process  "wscript.exe" from Task Manager.

For More Tricks Stay Connected With us.
Enjoyed this Trick? Share with your friends on Social media. You can use the below sharing buttons to do it immensely faster. It just takes a second! ☺

VBS Tricks: Message box pop up

Message box pop up VBS Script Code:

do
MsgBox (" Type here the text that you want.")
loop

Save the above code in Notepad file As "Anything.vbs" (Without Quotes ) but make sure While saving this file select Save as type "All files" and extension must be .vbs.

- If you set 'do and loop', the message box appear again and again ...
- For one time Message Remove "do" & "loop".

EXAMPLES :

1. Task Failed Successfully.

code:
MsgBox (" Task Failed Successfully   ")

2. I Don't Like you, I'm Shutting Down.

code:
MsgBox ("     I Don't Like you, I'm Shutting Down.  ")
shutdown -s -t 00 

Note: When you Press "OK" PC will Shutdown.

For More Tricks Stay Connected With us.
Enjoyed this Trick? Share with your friends on Social media. You can use the below sharing buttons to do it immensely faster. It just takes a second! ☺