THCS Quang Trung_Điện Bàn_Quảng Nam

Chào mừng các bạn đến với diễn đàn của Trường THCS Quang Trung_Điện Bàn
 
Trang ChínhCalendarGalleryTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập

Share | 
 

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

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
congtuan_luckyboy1996
Chuyên gia Spamer
Chuyên gia Spamer
avatar

Nam
Tổng số bài gửi : 111
Age : 21
Đến từ : 7/3, THCS Quang Trung, Vĩnh Điện, Điện Bàn, Quãng Nam, Việt Nam, Châu Á, Trái Đất, Ngân Hà hok bit
Registration date : 29/12/2008

Bài gửiTiêu đề: Mở các ổ đĩa CROM bằng một cú nhấp chuột   Sat Jan 10, 2009 7:35 pm

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
Cool Cool Cool
Về Đầu Trang Go down
Xem lý lịch thành viên http://hacker.yourme.net/
 
Mở các ổ đĩa CROM bằng một cú nhấp chuột
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Bài bình luận của thuyền trưởng Tiếu Văn Kinh
» Các tiêu chuẩn đánh giá ổn định nguyên vẹn tàu
» Tóm tắt nội dung công ước SOLAS
» IMO Standard Marine Communication Phrases (SMCP) on CD
» Chuẩn bị giấy tờ thủ tục nhập cảng

Permissions in this forum:Bạn không có quyền trả lời bài viết
THCS Quang Trung_Điện Bàn_Quảng Nam :: Học Tập :: Tin học trẻ-
Chuyển đến