SINH VIÊN TRƯỜNG TÂY BẮC

chào mừng bạn đến forum nghành công nghệ thông tin
 
Trang ChínhPortalCalendarGalleryTrợ giúpTìm kiếmNhómĐăng kýĐăng Nhập

Share | 
 

 đóng mở ổ đĩa cd nhanh chóng

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

Tổng số bài gửi : 157
Join date : 01/11/2009
Age : 29
Đến từ : daklak

Bài gửiTiêu đề: đóng mở ổ đĩa cd nhanh chóng   Mon Nov 02, 2009 12:55 am

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >= 1 then

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next ' cdrom

End If
Về Đầu Trang Go down
Xem lý lịch thành viên http://kytucxa9b.forum-viet.net
 
đóng mở ổ đĩa cd nhanh chóng
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Cách làm trắng da mặt nhanh chóng cho nam giới
» Cathy Ha Cooking Express( ngon miệng - nhanh )
» đan và móc cái nào đẹp hơn?
» Bạn đan hay móc?
» Cách cầm kim đan?

Permissions in this forum:Bạn không có quyền trả lời bài viết
SINH VIÊN TRƯỜNG TÂY BẮC :: VÀO DIỄN ĐÀN TRANG CHÍNH :: Thủ Thuật-
Chuyển đến