Bạn có biết cách đưa các khay đĩa ra bằng một cú nhấp chuột không?
Hoàng Đăng Vịnh check gia
Trả lời 16 năm trước
Máy tính của bạn có rất nhiều ổ đĩa CDROM , ổ nào củng có cả CDR/CDRW đều đủ cả không
thiếu mặt một “nhân tài” nào hết . Mổi lần muốn lấy các ổ đĩa này ra muốn “mệt xĩu” .
Bạn mở Notepad lên và chép đọan mã sau vào :
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If
Lưu tập tin này lại , bạn đặt tên cho tập tin này là cd.vbs