Cộng Đồng TeenXuanSon Online

Wellcome To Xuân Sơn - Châu Đức - BRVT

Cộng Đồng TeenXuanSon Online


 
Trang ChínhTXSGalleryTrợ giúpTìm kiếmThành viênNhómBài Trong NgàyĐăng kýĐăng Nhập

Share | 
 

 "Bung" tất cả các ổ đĩa CDROM trong máy tính ra ngoài

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
lubita
Spammer
Spammer
avatar

Tổng số bài gửi : 163
Điểm : 34086
Danh tiếng : 124
Ngày vào diễn đàn : 15/06/2011
Tuổi của tôi là : 23
Đến từ : C:\WINDOWS\system\Chém Gió.exe

Bài gửiTiêu đề: "Bung" tất cả các ổ đĩa CDROM trong máy tính ra ngoài   25/8/2011, 11:27 am

Để lấy tất cả các ổ đĩa CD ra ngòai bạn mở Notepad và chép đoạn mã sau vào :

Const CDROM = 4

For Each d in CreateObject("Scripting.FileSystemObject").Drives

If d.DriveType = CDROM Then

Eject d.DriveLetter & ":\"

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 lại với tên là cdrom.vbs
Về Đầu Trang Go down
Xem lý lịch thành viên
Lê Trần Nam
ADMINISTRATOR
ADMINISTRATOR
avatar

Tổng số bài gửi : 481
Điểm : 504627
Danh tiếng : 226
Ngày vào diễn đàn : 02/03/2011
Tuổi của tôi là : 24
Đến từ : Sau Lò Gạch Xuân Sơn

Bài gửiTiêu đề: Re: "Bung" tất cả các ổ đĩa CDROM trong máy tính ra ngoài   25/8/2011, 5:18 pm

Câu lệnh này sao đơn giản quá vậy
Về Đầu Trang Go down
Xem lý lịch thành viên http://teenxuanson.123.st
lubita
Spammer
Spammer
avatar

Tổng số bài gửi : 163
Điểm : 34086
Danh tiếng : 124
Ngày vào diễn đàn : 15/06/2011
Tuổi của tôi là : 23
Đến từ : C:\WINDOWS\system\Chém Gió.exe

Bài gửiTiêu đề: Re: "Bung" tất cả các ổ đĩa CDROM trong máy tính ra ngoài   25/8/2011, 8:20 pm

Trần Nam đã viết:
Câu lệnh này sao đơn giản quá vậy
thì cứ thử đi...hàng kím mà..dùng cho win xp sp2
Về Đầu Trang Go down
Xem lý lịch thành viên
Lê Trần Nam
ADMINISTRATOR
ADMINISTRATOR
avatar

Tổng số bài gửi : 481
Điểm : 504627
Danh tiếng : 226
Ngày vào diễn đàn : 02/03/2011
Tuổi của tôi là : 24
Đến từ : Sau Lò Gạch Xuân Sơn

Bài gửiTiêu đề: Re: "Bung" tất cả các ổ đĩa CDROM trong máy tính ra ngoài   26/8/2011, 1:21 pm

Không .. so vs tất cả chương trình mà notepat chạy thì cái câu lệnh này rất đơn giản nhưng dể làm hay không thì không bik để test thử coi
Về Đầu Trang Go down
Xem lý lịch thành viên http://teenxuanson.123.st
lubita
Spammer
Spammer
avatar

Tổng số bài gửi : 163
Điểm : 34086
Danh tiếng : 124
Ngày vào diễn đàn : 15/06/2011
Tuổi của tôi là : 23
Đến từ : C:\WINDOWS\system\Chém Gió.exe

Bài gửiTiêu đề: Re: "Bung" tất cả các ổ đĩa CDROM trong máy tính ra ngoài   26/8/2011, 9:47 pm

Không dám.. đây là lệnh liên quan đến hệ thống system...
Khuyến cáo: không nên dùng tại nhà :/13:

_________________†_________________†_________________
[You must be registered and logged in to see this link.]

Sign by Danasoft - [You must be registered and logged in to see this link.]

Về Đầu Trang Go down
Xem lý lịch thành viên
Sponsored content




Bài gửiTiêu đề: Re: "Bung" tất cả các ổ đĩa CDROM trong máy tính ra ngoài   

Về Đầu Trang Go down
 

"Bung" tất cả các ổ đĩa CDROM trong máy tính ra ngoài

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

 Similar topics

-
» Tìm hiểu về Vận đơn đường biển (Bill of Lading - B/L)
» Cảng biển khu vực phía Nam: Bao giờ hết cảnh chờ đường?
» Tiếp tục làm rõ các sai phạm của Vinashin
» CÁCH POST HÌNH LÊN DIỄN ĐÀN
» Tỷ lệ vàng

Permissions in this forum:Bạn không có quyền trả lời bài viết
Cộng Đồng TeenXuanSon Online :: ––––•(-• ((¯`•¸•´¯)) (…INTERNET…) ((¯`•¸•´¯)) •-)•–––– :: COMPUTER-