用VB编写一个光驱保镖
2006-02-27 21:11:49 来源:WEB开发网核心提示:编程思路:当光驱里有光盘,立即检测此光盘是否已经注册,用VB编写一个光驱保镖,如不是,则弹出光驱,为使程序的可操作性更强,还有许多工作要做;如果您使用以上代码编制了一个完美的光驱保镖,从而达到保护光驱的作用,实现方法:一.注册光盘利用INI配置文件记录光盘的卷标号和序列号
编程思路:当光驱里有光盘,立即检测此光盘是否已经注册,如不是,则弹出光驱,从而达到保护光驱的作用。
实现方法:
一.注册光盘
利用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中文企业版环境下运行通过。当然,为使程序的可操作性更强,还有许多工作要做;如果您使用以上代码编制了一个完美的光驱保镖,请发给土人一个免费的拷贝,谢谢!->
实现方法:
一.注册光盘
利用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中文企业版环境下运行通过。当然,为使程序的可操作性更强,还有许多工作要做;如果您使用以上代码编制了一个完美的光驱保镖,请发给土人一个免费的拷贝,谢谢!->