如何用vb6.0获取usb序列号
Posted
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了如何用vb6.0获取usb序列号相关的知识，希望对你有一定的参考价值。
有高手能给我一段获取U盘序列号的代码吗？？
最好能把相关用到的函数也带上，谢谢了
'编写作者:刘俊宾 QQ:171162612(踏雪无痕)
'作者主页:http://hystudio.ik8.com
'编写日期:2006年12月14日
'示例:
'#######################################
'# MsgBox GetPathInfo("C:\") # 返回C:\盘序列号
'# MsgBox GetUSBPath # USB路径
'#######################################
Option Explicit
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
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Const DRIVE_CDROM = 5
'返回USB路径
Private Function GetUSBPath() As String
Dim I As Integer
On Error Resume Next
For I = 97 To 122 Step 1
If GetDriveType(Chr(I) & ":\") = DRIVE_CDROM Then
GetUSBPath = Chr(I + 1) & ":\"
End If
Next I
End Function
'返回序列号
Private Function GetPathInfo(PathStr As String) As String
Dim MySerial As Long, MyLong As Long, MyType, MyStr
MyStr = String$(255, Chr$(0))
MyType = String$(255, Chr$(0))
MyLong = GetVolumeInformation(PathStr, MyStr, Len(MyStr), MySerial, 0, 0, MyType, Len(MyType))
GetPathInfo = MySerial
End Function
Private Sub Command1_Click()
MsgBox IIf(GetPathInfo(GetUSBPath) = 0, "USB没有连接磁盘", GetPathInfo(GetUSBPath))
End Sub 参考技术A Sub cc()
On Error Resume Next
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_USBHub")
For Each objItem In colItems
a = objItem.DeviceID 'U盘识别为:USB\VID_09A6&PID_800\20040418154911-00，故用VID判别
If a Like "*VID*" Then b = Split(a, "\"): MsgBox b(UBound(b))
'上句亦可:If InStr(a, "VID") Then b = Split(a, "\"): MsgBox b(UBound(b))
Next
End Sub
这么简单 会调用这个过程吧。。
wps如何用开发工具
wps是大多数人都用的办公软件，而wps在默认情况下不会安装开发工具，因此默认情况下，开发工具是灰色的，无法使用，
那么在不重新安装wps情况下如何使用VB编辑器呢？
今天分享给大家一个软件wps2019vba，安装后，VB编辑器，就可以正常使用；安装过程略过；
效果如图；
注意：如果按照后，VB编辑器还是灰色的，只需要关掉wps软件，重新打开就可以了
快速获取软件的方式
直接长按二维码加关注
回复关键字“WPS”
注意：文中所涉及软件来自网络，仅用于学习交流；
以上是关于如何用vb6.0获取usb序列号的主要内容，如果未能解决你的问题，请参考以下文章