Create a Harmless Funny Virus with Notepad-Continuously eject CD/DVD drives

This VBS trick will create a code which will continuously eject all your connected Optical drives. If you put them back in, it will pop them out again. 
Step:1 Press windows + R.

Step:2 Type notepad and hit enter.
Step:3 Write this 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

Note: You can increase or decrease its speed by changing "wscript.sleep value" if you want max spedd of ejection of DVD/CD than don't write this line in your code.

Step:4 Save As. DVD.vbs

Step:5 Goto that file DVD.vbs

Note: Your Laptop or PC show this warning.
But this code has such virus in it. So ignore it. :D

Step:6 Open DVD.vbs or *.vbs


If you to make your friend fool then do these few steps in there PC or Laptops:-
Step:7 Copy DVD.vbs
Note: Select show all hidden folder.
Step:8 Goto C:\User\User_Name\Apps Data\Roaming\Microsoft\Windows\Start Menu\Programs\Start up\and paste that DVD.vbs there.
Every time when he/she log-in windows it will start automatically.

If you have to stop this non-sense thing you have to restart you device.

                                                                    SmartProgrammerOn

Popular posts from this blog

Shutdown Pc

Ellipse using OpenGl

String Comparisons