win下一键恶作剧：不停弹出CD光驱的代码

本文主要是介绍win下一键恶作剧：不停弹出CD光驱的代码，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

分享一段一键操作的恶作剧：win下恶作剧不停弹出CD光驱的代码（注意现在很多新计算机上不再有CD光驱了），根据原理和路径，你可随意自行修改替换其他程序。

新建一个txt格式的文本，复制如下代码段。

代码：（可随意复制修改）

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 100
loop

将文本命名为： 随意名称.bat
放置在桌面上，双击一下，恶作剧开始。*_&

这篇关于win下一键恶作剧：不停弹出CD光驱的代码的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---