[原创]vb实现光驱开关

这是学习API时写的
没什么技术性可言  可以用来明白API函数的使用方法
本来我用vc改写成一个整人程序 可天不如人意  我的系统有些问题
导致vc无法使用 这也就不了了之了 这几天用vb写程序  感觉非常好用
不想往上说的vb效率低等等  个人觉得成天讨论语言而忽略程序设计
是学习编程的一大障碍
对于黑客来说 编程只是为了达到自己的某个目的的手段而已
关键在于目的 ；编程也关键在于程序设计而非语言

以上只是个人看法  欢迎指正
//////////////////////////////////////////////////////////////////////////////
网上也有类似的代码  
下面的代码稍微修改一下便可以做出个整人小软件来
还可以播放cd等等 大家可以查看MSDN的说明
这留给读者吧！

Option Explicit
Private Declare Function CD Lib "winmm.dll" Alias "mciSendStringA" _
( _
ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, _
ByVal hwndCallback As Long _
) As Long
'这里的CD你可以改成其他名字
'这是mci指令编程 在vc中除了要包含相应头文件
'还要申明使用的dll库的 即加上#pragma comment(lib, "winmm.lib")
Dim CDOpen As Boolean



Private Sub Command1_Click()
On Error Resume Next
If CDOpen = False Then
Call CD("set CDAudio door open", 0, 0, 0)
CDOpen = True
Command1.Caption = "关闭光驱"
Else

Call CD("set CDAudio door closed", 0, 0, 0)
CDOpen = False
Command1.Caption = "打开光驱"
End If
End Sub

Private Sub Form_Load()
CDOpen = False
Call CD("set CDAudio door closed", 0, 0, 0)
End Sub