首页 > 编程相关 > 关闭光驱托盘的代码

关闭光驱托盘的代码

2006年5月30日 G0dspeed 发表评论 阅读评论

今天因为需要找了一个可以关闭光驱的VB Script，把下列代码保存为CloseCDROM.vbs就可使用

Set wmp = CreateObject("WMPlayer.OCX.7")
Set cdrom = wmp.cdromCollection
If cdrom.Count >= 1 then
 For z = 0 to cdrom.Count – 1
  cdrom.Item(z).Eject
 Next
 For z = 0 to cdrom.Count – 1
  cdrom.Item(z).Eject
 Next
End If

该Script有问题，不能使用

分类: 编程相关 标签:
  1. 本文目前尚无任何评论.
  1. 本文目前尚无任何 trackbacks 和 pingbacks.