用VB编写一个光驱保镖

编程思路：当光驱里有光盘，立即检测此光盘是否已经注册，如不是，则弹出光驱，从而达到保护光驱的作用。
　　
　　实现方法：
　　一.注册光盘
　　利用INI配置文件记录光盘的卷标号和序列号，比如一张卷标号为Sys、序列号为38972126的光盘，可在INI文件中在[CDRom]下按如下格式记录：ys=38972126。
　　二.检测光盘是否已经注册
　　用一个Timer控件监视光驱里是否有光盘，若有，则激活另一个Timer控件，由它来检测光驱里的光盘是否已经注册，然后进行相关操作。
　　三.获取光盘卷标和序列号
　　用GetDriveType判断光驱盘符、用GetVolumeInformation读取光盘的卷标和序列号。
　　四.弹出光驱
　　用mciSendString可对光驱的开、关进行操作，格式如下：
　　CallmciSendString("setCDAudiodooropen",returnstring,127,0)
　　
　　具体步骤：
　　一.新建标准EXE工程，给窗体绘制如下控件：
　　
　　控件NameCaption
　　TimertmrCheck
　　TimertmrCd
　　命令按钮cmdAdd注册光盘
　　命令按钮cmdUnlock解除保护
　　
　　二、缺省添加一个标准模块
　　
　　三、编写代码如下――
　　
　　'*******模块代码：******
　　
　　OptionExplicit
　　
　　'获取磁盘类型的API
　　PublicDeclareFunctionGetDriveTypeLib"kernel32"Alias"GetDriveTypeA"_
　　(ByValnDriveAsString)AsLong
　　'获取磁盘信息的API
　　PublicDeclareFunctionGetVolumeInformationLib"kernel32"Alias_
　　"GetVolumeInformationA"(ByVallpRootPathNameAsString,ByVal_
　　lpVolumeNameBufferAsString,ByValnVolumeNameSizeAsLong,_
　　lpVolumeSerialNumberAsLong,lpMaximumComponentLengthAsLong,_
　　lpFileSystemFlagsAsLong,ByVallpFileSystemNameBufferAs_
　　String,ByValnFileSystemNameSizeAsLong)AsLong
　　
　　'用于操作光驱的API
　　PublicDeclareFunctionmciSendStringLib"winmm.dll"Alias_
　　"mciSendStringA"(ByVallpstrCommandAsString,ByVal_
　　lpstrReturnStringAsString,ByValuReturnLengthAsLong,_
　　ByValhwndCallbackAsLong)AsLong
　　
　　'读写INI的API
　　PublicDeclareFunctionWritePrivateProfileStringLib_
　　"kernel32"Alias"WritePrivateProfileStringA"_
　　(ByVallpApplicationNameAsString,ByVallpKeyName_
　　AsAny,ByVallpStringAsAny,ByVallpFileNameAs_
　　String)AsLong
　　PublicDeclareFunctionGetPrivateProfileStringLib_
　　"kernel32"Alias"GetPrivateProfileStringA"(ByVal_
　　lpApplicationNameAsString,ByVallpKeyNameAsAny,_
　　ByVallpDefaultAsString,ByVallpReturnedStringAs_
　　String,ByValnSizeAsLong,ByVallpFileNameAsString)_
　　AsLong
　　
　　PublicConstDRIVE_CDROM=5'磁盘类型常量--光驱为5
　　
　　'写INI函数
　　PublicFunctionWriteIni(ByValsectionAsString,ByValkeyAsString,_
　　ByValvalueAsString)AsBoolean
　　DimxAsLong,BuffAsString*128,IAsInteger
　　Buff=value Chr(0)
　　x=WritePrivateProfileString(section,key,Buff,App.Path "cd.ini")
　　WriteIni=x
　　EndFunction
　　
　　'读INI函数
　　PublicFunctionReadIni(ByValsectionAsString,ByValkeyAsString)AsString
　　DimxAsLong,BuffAsString*128,IAsInteger
　　x=GetPrivateProfileString(section,key,"",Buff,128,App.Path "cd.ini")
　　I=InStr(Buff,Chr(0))
　　ReadIni=Trim(Left(Buff,I-1))
　　EndFunction
　　
　　'******窗体代码：******
　　
　　OptionExplicit
　　
　　DimcdNameAsString'光驱盘符
　　DimvolNameAsString'光盘卷标
　　DimSerialAsString'光盘序列号
　　
　　PrivateSubcmdAdd_Click()
　　
　　'添加光盘
　　DimsRAsString
　　
　　OnErrorGoToErrHandle
　　sR=Dir(cdName&"*.*")
　　Readcd'读取光盘信息
　　CallWriteIni("CDRom",volName,Serial)
　　ExitSub
　　ErrHandle:
　　ExitSub
　　
　　EndSub
　　
　　PrivateSubcmdUnlock_Click()
　　
　　'保护/解除保护
　　SelectCasecmdUnlock.Caption
　　Case"解除保护"
　　tmrCheck.Enabled=False
　　cmdUnlock.Caption="保护模式"
　　Case"保护模式"
　　tmrCheck.Enabled=True
　　cmdUnlock.Caption="解除保护"
　　EndSelect
　　
　　EndSub
　　
　　PrivateSubForm_Load()
　　
　　DimDrvNAsInteger'驱动器的ASCII码
　　DimDrvTypeAsInteger'驱动器的类别
　　DimnAsInteger
　　
　　tmrCheck.Enabled=True
　　tmrCheck.Interval=1000
　　tmrCd.Enabled=False
　　tmrCd.Interval=1
　　
　　'获取光驱盘符
　　DrvN=Asc("c")
　　Forn=0To10
　　DrvN=DrvN 1
　　DrvType=GetDriveType(Chr(DrvN)&":")
　　IfDrvType=5Then
　　cdName=Chr(DrvN)&":"
　　EndIf
　　Next
　　
　　IfcdName=""Then'无光驱则退出
　　MsgBox"该计算机没有光驱，即将退出。"
　　End
　　EndIf
　　
　　EndSub
　　
　　PrivateSubReadcd()'读取cd信息
　　
　　DimVolAsString*256'卷标
　　DimFatTypeAsString*256'fat格式
　　DimGetValAsLong'序列号
　　DimTempLon1AsLong
　　DimTempLon2AsLong
　　CallGetVolumeInformation(cdName,Vol,256,_
　　GetVal,TempLon1,TempLon2,FatType,256)
　　
　　volName=Vol:Serial=GetVal'给卷标、序列号赋值
　　
　　EndSub
　　
　　PrivateSubtmrCheck_Timer()
　　
　　DimsRAsString
　　
　　OnErrorGoToErrHandle
　　'用Dir函数检测光驱里是否有光盘
　　sR=Dir(cdName&"*.*")'若有光盘
　　tmrCd.Enabled=True'则tmrCd有效
　　ExitSub
　　ErrHandle:'若无则tmrCd无效
　　tmrCd.Enabled=False
　　
　　EndSub
　　
　　PrivateSubtmrCd_Timer()
　　
　　DimMyStrAsString,ReStrAsLong
　　
　　Readcd
　　MyStr=ReadIni("CDRom",volName)
　　IfSerial<>MyStrThenCallmciSendString("setCDAudiodooropen",ReStr,127,0)
　　Me.Caption=ReStr
　　tmrCd.Enabled=False
　　
　　EndSub
　　
　　四、运行程序
　　将工程保存在指定目录，即可运行程序。
　　
　　以上代码在PWin98、VB6.0中文企业版环境下运行通过。当然，为使程序的可操作性更强，还有许多工作要做；如果您使用以上代码编制了一个完美的光驱保镖，请发给土人一个免费的拷贝，谢谢！->