用VB编写一个光驱保镖

Exit Sub
ErrHandle: '若无则tmrCd无效
tmrCd.Enabled = False

End Sub

Private Sub tmrCd_Timer()

Dim MyStr As String, ReStr As Long

Readcd
MyStr = ReadIni("CDRom", volName)
If Serial <> MyStr Then Call mciSendString("set CDAudio door open", ReStr, 127, 0)
Me.Caption = ReStr
tmrCd.Enabled = False

End Sub

四、运行程序
将工程保存在指定目录，即可运行程序。

以上代码在PWin98、VB6.0中文企业版环境下运行通过。当然，为使程序的可操作性更强，还有许多工作要做；如果您使用以上代码编制了一个完美的光驱保镖，请发给土人一个免费的拷贝，谢谢！

上一篇： 用Visual Basic与MS-Draw开发通用作图软件
下一篇： 趣味撞球--VB5应用程序一例

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!