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 >
5. Mở các ổ đĩa CROM bằng một cú nhấp chuột
5. 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
Bùi Văn Tiến @ 14:52 22/02/2009
Số lượt xem: 1739
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
Bùi Văn Tiến @ 14:52 22/02/2009
Số lượt xem: 1739
Số lượt thích:
0 người
HOA NGHỆ THUẬT
Các ý kiến mới nhất