Mở và đóng CD từ Excel. (1 người xem)

[handung107]

Có khi nào các bạn muốn mở và đóng CD từ Excel hay không?
Bạn hãy copy đọan mã sau vào module, và tạo nút lệnh từ Worksheet và gọi các thủ tục đóng và mở như sau:

Declare Sub mciSendStringA Lib "winmm.dll" (ByVal lpstrCommand As String, _
ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long)


Sub OpenCDTray()
mciSendStringA "Set CDAudio Door Open", 0&, 0, 0
End Sub


Sub CloseCDTray()
mciSendStringA "Set CDAudio Door Closed", 0&, 0, 0
End Sub

Ai mà trong mạng LAN sử dụng file của mình thì khi mở ra ổ đĩa CD cũng bị mở luôn.

Để làm được điều này các bạn phối hợp với hàm sau :

Function User()
' Tra ve ten cua nguoi dung hien tai'
User = Application.UserName
End Function

Chúc vui vẻ với những gì khám phá được.

Sưu tầm từ Erlandsen Data Consulting
Lê Văn Duyệt​

From ThanhThao:
Công việc này đúng là ngoài tầm suy nghĩ của tôi

Excel ghê gớm thật, học mãi vẫn chưa đâu vào đâu cả

 

[quick87]

Có khi nào các bạn muốn mở và đóng CD từ Excel hay không?
Bạn hãy copy đọan mã sau vào module, và tạo nút lệnh từ Worksheet và gọi các thủ tục đóng và mở như sau:

Declare Sub mciSendStringA Lib "winmm.dll" (ByVal lpstrCommand As String, _
ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long)


Sub OpenCDTray()
mciSendStringA "Set CDAudio Door Open", 0&, 0, 0
End Sub


Sub CloseCDTray()
mciSendStringA "Set CDAudio Door Closed", 0&, 0, 0
End Sub

Ai mà trong mạng LAN sử dụng file của mình thì khi mở ra ổ đĩa CD cũng bị mở luôn.

Để làm được điều này các bạn phối hợp với hàm sau :

Function User()
' Tra ve ten cua nguoi dung hien tai'
User = Application.UserName
End Function

Chúc vui vẻ với những gì khám phá được.

Sưu tầm từ Erlandsen Data Consulting
Lê Văn Duyệt​

Bài viết hay quá, chỉ hơi tiếc với Laptop thì chỉ Mở được ổ CD nhưng lại không Close được !

Có anh chị nào có Code Close ổ CD thực hiện được trên cả Laptop không ạ

Thanks !

 

[ndu96081631]

Bài viết hay quá, chỉ hơi tiếc với Laptop thì chỉ Mở được ổ CD nhưng lại không Close được !

Có anh chị nào có Code Close ổ CD thực hiện được trên cả Laptop không ạ

Thanks !

Cái này không cần suy nghĩ, đơn giản vì ổ CD trong Laptop khi đóng lại nó có dùng ĐIỆN đâu, lấy gì điều khiển?
Nói nôm na 1 chút thì nó cũng gần giống cái cầu dao nhà bạn, có thể tự động tắt (khi sự cố) nhưng làm gì nó có khả năng tự đóng lại? Ẹc... Ẹc...

 

[vitinhduyanh]

hay bổ ích quá mà chưa thử tối về nhà thử