beo2206
Khoai tây
Tổng số bài gửi : 63
Reputation : 0
Join date : 27/08/2010
Đến từ : cần thơ
 |  Tiêu đề: Mở các ổ đĩa CROM bằng một cú nhấp chuột  Fri 27 Aug 2010, 10:21 am | |
| Máy tính của bạn có rất nhiều ổ CDROM , nếu bạn nhấn nút Eject để lấy từng cái ra thì thật mất thời gian , bạn có thể sử dụng cách sau để mở tất cả các ổ đĩa CDROM bằng một cú nhấp chuột. Để mở tất cã các ổ đĩa CDROM bạn làm như sau :Mở Notepad lên và chép đọan mã sau vào : Const CDROM = 4
For Each d in CreateObject("Scripting.FileSystemObject").Drives
If d.DriveType = CDROM Then
Eject d.DriveLetter & ":"
Welcome To VNECHIP [You must be registered and logged in to see this link.] - Where People Go To Know
VNECHIP – Advanced Technologies , 24/7 Support , Free Fastest Online
End If
Next
Sub Eject(CDROM)
Dim ssfDrives
ssfDrives = 17
CreateObject("Shell.Application")_
.Namespace(ssfDrives).ParseName(CDROM).InvokeVerb( "E&ject")
End SubLưu tập tin này thành cdeject.vbs |
|
