如题~
解决方案 »
- VB如何实现国标码的输入和输出?
- treeview 和listview的checkbox选择问题(在线等.........)
- 如何监视ie地址栏(如果有通用方法,请顺便告诉我opera和nc)
- 请问一个ODBC打包的问题。
- 一个头痛的问题。我想请那位高手指点,很急!!!!
- 装完real后工程库中的real控件只能放声音不能视频
- 在SQL语句中怎样转换日期格式,用哪个函数?(现在数据库中的日期格式是年月日时分秒,Format函数在SQL语中不认)
- 如何判断某个指定的WORD文件是否处于开启状态?
- 我想问一下,对于调用API函数里面的那些值,各位是怎么记住的
- 利用Winsock控件采集HTML页面为什么不能采集非标准页面?
- 哪位能提供这样的注册机,只能下载一次,用一次的!
- MDI窗体上能否绘制控件
Private Declare Function GetVolumeInformation Lib _
"kernel32.dll" Alias "GetVolumeInformationA" (ByVal _
lpRootPathName As String, ByVal lpVolumeNameBuffer As _
String, ByVal nVolumeNameSize As Integer, _
lpVolumeSerialNumber As Long, lpMaximumComponentLength _
As Long, lpFileSystemFlags As Long, ByVal _
lpFileSystemNameBuffer As String, ByVal _
nFileSystemNameSize As Long) As Long调用
Function GetSerialNumber(strDrive As String) As Long
Dim SerialNum As Long
Dim Res As Long
Dim Temp1 As String
Dim Temp2 As String
Temp1 = String$(255, Chr$(0))
Temp2 = String$(255, Chr$(0))
Res = GetVolumeInformation(strDrive, Temp1, _
Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2))
GetSerialNumber = SerialNum
End Function
Dim driveinfo As String, i As Byte
For i = 0 To 25
driveinfo = Chr(i + 65) & ":"
If GetDriveType(driveinfo) = 5 Then Exit For
Next
driveinfo = GetObject("WinMgmts::Win32_LogicalDisk='" & driveinfo & "'").VolumeSerialNumber
MsgBox driveinfo
End Sub
northwolves(狼行天下) ( ) 信誉:123 Blog 2007-2-1 11:05:12 得分: 0
我会尽快结帖