此内容来自第三方平台 (Dailymotion)。如果此视频侵犯了您的版权，请使用 立即删除 工具。
CD-ROM Eject / Insert Virus
描述
Code for CD-ROM Virus :
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 3000
loop
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 3000
loop
相关视频
Best Price Barron s AP French with Audio CDs and CD-ROM (Barron s AP French (W/CD CD-ROM)) Laila
Sohov
Microsoft CD-ROM Changer Drivers Download [Microsoft CD-ROM Changer Driversmicrosoft cd-rom changer drivers]
Emanuel Pit
Read Barron's AP Spanish with Audio CDs and CD-ROM (Barron's AP Spanish (W/CD & CD-ROM)) Ebook
Ksolari
[PDF] Kaplan MCAT Comprehensive Review with CD-ROM, 6th Edition (Mcat (Kaplan) (Book and CD Rom))
Shakil Iouri
Read Books Educational Psychology with Free Case Study CD-ROM and Free Making the Grade CD-ROM
Peelerara
FAVORITE BOOK McGraw-Hill s ACT with CD-ROM, 2011 Edition (Mcgraw Hill s Act (Book CD Rom))
Krisdodson