Chào mừng quý vị đến với WEBSITE-Bùi Văn Tiến-thpt Buôn Ma Thuột.
Quý vị chưa đăng nhập hoặc chưa đăng ký làm thành viên, vì vậy chưa thể tải được các tư liệu của Thư viện về máy tính của mình.
Nếu chưa đăng ký, hãy đăng ký thành viên tại đây hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay ô bên phải.
Gốc > Tin học tổng hợp >
26. Đưa các khay đĩa ra bằng một cú nhấp chuột
26. Đưa các khay đĩa ra bằng một cú nhấp chuột
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
Bùi Văn Tiến @ 06:56 28/02/2009
Số lượt xem: 1465
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
Bùi Văn Tiến @ 06:56 28/02/2009
Số lượt xem: 1465
Số lượt thích:
0 người
- 25. Mất chức năng Start Menu trong Taskbar Properties (28/02/09)
- 24. Mất các biểu tượng trong Programs (26/02/09)
- 23. Luôn cho phép hiện nút Hibernate trong Turn Off Computer (26/02/09)
- 22. Liệt kê tất cả các ứng dụng đang chạy trong Windows XP bằng dòng lệnh (26/02/09)
- 21. Làm thế nào nhận biết USB 2.0 có trên máy tính (25/02/09)
HOA NGHỆ THUẬT
Các ý kiến mới nhất