vb中如何得到usb设备名称

2009-09-21 08:38:27 130 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VB_XP 墨衍会员 · AI 创作全网分发关注 + 加入社区

树莓派pico USB接口实现：设备模式硬件连接说明深入解析树莓派pico如何通过USB接口实现设备模式的硬件连接，帮助开发者快速上手树莓派pico在实际项目中的应用，掌握关键接线与配置要点。阅读详情

vb中如何得到usb设备名称

...全文

如何使用VS2005的VB.net开发WinCE应用程序 Visual Basic .NET属Basic系语言，其语法特点是以极具亲和力的英文单词为基础标识，以及与自然语言极其相近的逻辑表达，有时候你会觉得写VB.NET代码就好像在写英文句子一样，从这个角度来说，VB.NET似乎是最高级的一门编程语言，当然在Basic系语言中VB.NET也确实是迄今为止最强大的一门编程语言.Visual Basic .NET的应用范围包括windows桌面、web以及当阅读详情

VB_XP

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

hanvan 2009-09-28

打赏
举报

读取注册表。。

贝隆 2009-09-28

打赏
举报

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 Sub Command1_Click()

    Dim lpRootPathName As String

    Dim lSerialNum As Long '序列号

    Dim strLabel As String * 255 '磁盘卷标

    Dim strType As String * 255 '文件系统类型

    Dim i As Integer

On Error GoTo errSub

    lpRootPathName = Text1.Text  '此处输入你的磁盘序列号(格式为： C:\)

    Call GetVolumeInformation(lpRootPathName, strLabel, Len(strLabel), lSerialNum, 0, 0, strType, Len(strType))

    i = InStr(strLabel, Chr(0))

    strLabel = Left(strLabel, i - 1)

    i = InStr(strType, Chr(0))

    strType = Left(strType, i - 1)

    MsgBox lpRootPathName & "的磁盘序列号为:" & lSerialNum & Chr(10) & "磁盘卷标为:" & Trim(strLabel) & Chr(10) & "文件系统类型为:" & Trim(strType), vbInformation, "系统信息"

    Exit Sub

errSub:



End Sub

gralei 2009-09-28

打赏
举报

wmi

vb中如何得到usb设备名称

相关推荐