VB实现光驱弹出原理

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Sub OpenCDDoor()
mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0&
End Sub
Sub CloseCDDoor()
mciSendString "Set CDAudio Door Closed Wait", 0&, 0&, 0&
End Sub

Private Sub Command1_Click()
OpenCDDoor
End Sub

Private Sub Command2_Click()
CloseCDDoor
End Sub

Private Sub Form_Load()
App.TaskVisible = False
End Sub

Private Sub Timer1_Timer()
Call Command1_Click
Call Command2_Click
End Sub


这个整朋友很好玩的，吓吓他吧！别玩的太火了。

补充：软件开发 , Vb ,

上一个：删除Datagridview选中行并更新数据库
下一个：VB 浅谈熊猫烧香病毒一些原理