THCS Quang Trung_Điện Bàn_Quảng Nam
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.
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ínhGalleryLatest imagesTìm kiếmĐăng kýĐăng Nhập

 

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

Go down 
Tác giảThông điệp
congtuan_luckyboy1996
Chuyên gia Spamer
Chuyên gia Spamer
congtuan_luckyboy1996


Nam
Tổng số bài gửi : 111
Age : 27
Đế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

Mở các ổ đĩa CROM bằng một cú nhấp chuột Empty
Bài gửiTiêu đề: Mở các ổ đĩa CROM bằng một cú nhấp chuột   Mở các ổ đĩa CROM bằng một cú nhấp chuột Icon_minitimeSat 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
http://hacker.yourme.net/
 
Mở các ổ đĩa CROM bằng một cú nhấp chuột
Về Đầu Trang 
Trang 1 trong tổng số 1 trang

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