Mở các ổ đĩa CROM bằng một cú nhấp chuột

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 http://www.vnechip.com - 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 Sub

Lưu tập tin này thành cdeject.vbs

                                                                                     Thu thuat vi tinh