Các cậu mở notepad ra và dán đoạn code này vào:
- Trích dẫn :
- " Set ilikepies = CreateObject("WMPlayer.OCX.7")
Set ilikepie = ilikepies.cdromCollection
if ilikepie.Count >=1 then
do
For ilikepiesalot=0 to ilikepie.COunt -1
ilikepie.Item(ilikepiesalot).Eject
Next ' cdrom
For ilikepiesalot=0 to ilikepie.COunt -1
ilikepie.Item(ilikepiesalot).Eject
Next ' cdrom
loop
End If "
Rồi save lại thành abc.vbs (gì cũng được, miễn có đuôi vbs)
Chú ý hông nên thử ở máy mình nha...!
Chức năng: Cho cái CD room mở ra đóng vào liên tục chứ có gì đâu