CD Virus

Introduction: CD Virus

.

Step 1: Open Notepad

After opening notepad type the following


Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count = 1 then

for i = 0 to colCDROMS.Count - 1

colCDROMs.Item(i).Eject

colCDROMs.Item(i).Eject

Next ' cdrom

End if


Step 2: Saving the File.

Now WHILE SAVING

name.vbs

and

OPEN IT

Coded Creations

Participated in the
Coded Creations

Be the First to Share

    Recommendations

    • Clocks Contest

      Clocks Contest
    • Block Code Contest

      Block Code Contest
    • Game Design: Student Design Challenge

      Game Design: Student Design Challenge

    5 Comments

    0
    BatchBum
    BatchBum

    6 years ago

    Every body knows how to do that

    0
    JoeSalmi
    JoeSalmi

    7 years ago on Introduction

    As soon as I saved it, it triggers my AVG virus detection.