锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net查u盘序列号 cmd查u盘序列号

序列号IT技术

VB如何获取当前U盘的序列号？For Each啊
你其实已经把所有的U盘都遍历了,CC的内容在循环时被重复修改了N次
找到一个U盘后,去判断U盘的所有盘符,与程序所在盘符相同的就是当前U盘
u盘序列号怎么查询【vb.net查u盘序列号 cmd查u盘序列号】;以“ChipGenius_v4_00_0027_pre2”工具为例;u盘序列号查询的方法如下:
1、首先可以百度一下下载名称为“ChipGenius_v4_00_0027_pre2”的工具;
2、双击ChipGenius_v4_00_0027_pre2运行程序;
3、将要检测的U盘接入电脑 。软件会自动检测新接入的设备 。并跳转到新接入的设备信息 。
U盘vb.net查u盘序列号，全称USB闪存盘vb.net查u盘序列号，英文名“USBflashdisk” 。它是一种使用USB接口的无需物理驱动器的微型高容量移动存储产品vb.net查u盘序列号，通过USB接口与电脑连接vb.net查u盘序列号，实现即插即用 。U盘的称呼最早来源于朗科科技生产的一种新型存储设备vb.net查u盘序列号 ， 名曰“优盘”，使用USB接口进行连接 。U盘连接到电脑的USB接口后，U盘的资料可与电脑交换 。而之后生产的类似技术的设备由于朗科已进行专利注册，而不能再称之为“优盘” ， 而改称谐音的“U盘” 。
u盘序列号怎么查可以在电脑中使用cmd命令查看U盘的序列号 。
1、打开电脑，按住电脑键盘上的“windows键 R ”，打开“运行”，输入命令“cmd”,按下回车键 。
2、在“cmd”中输入命令“DISKPART”，按回车 。
3、输入命令“ list disk ”，按回车 。
4、然后可以看到电脑上的所有磁盘，最后一个磁盘就是U盘 。
5、输入命令“select disk 2” 。按回车，选择磁盘的名称 。
6、最后输入命令“detail disk”，按回车 ， 可以看到磁盘ID，也就是U盘的序列号 。
u盘序列号怎么查，查看u盘序列号的方法你好，
1、可以用芯片精灵检测一下 。
2、它会显示U盘的信息，如果厂商，记忆芯片的信息等 。
3、然后根据检测的信息到网找免费工具查一下就可以了 。
vb(vb.net)能不能修改计算机中指定驱动器的盘符？ 我想在U盘插入时通过序列号识别指定设备并Sub RenameVolume()
'利用Shell函数在命令提示符下执行Diskpart命令的脚本，并存入日志文件
'达到替换逻辑盘符的目的
'在WindowsXp系统下测试成功
'获取临时文件路径
Temp = Environ("TEMP")"\"
'获取命令提示符路径
Cmd = Environ("ComSpec")
'设置脚本文件和日志文件路径
ScriptFile = Temp"DiskpartScript.txt"
ScriptLog = Temp"DiskpartScript.log"
'回车符和换行符
vbLfCr = vbLfvbCr
'脚本文件内容
'选择卷e
'移除盘符e
'分配盘符m
'退出Diskpart
ScriptTxt = "select volume e"vbLfvbCr_
"Remove letter = e"vbLfvbCr_
"assign letter = m"vbLfvbCr_
"exit"vbLfvbCr
'打开脚本文件并读取内容
Open ScriptFile For Output As #1
Print #1, ScriptTxt
Close #1
'打开错误处理
On Error Resume Next
'删除原有日志文件
Kill ScriptLog
'关闭错误处理
On Error GoTo 0
'执行脚本
ShellTxt = Cmd" /c ""diskpart.exe /S "ScriptFile""ScriptLog""""
Shell ShellTxt
'打开错误处理
On Error Resume Next
Do
Err.Number = 0
'打开日志文件并读取内容，因日志文件存取速度慢，必须以锁定方式打开，否则会出错
Open ScriptLog For Input Lock Read Write As #1
DoEvents
Loop Until Err.Number = 0
'关闭错误处理
On Error GoTo 0
'日志文件中含有中文字符 ， 必须以InputB函数以字节方式读取，否则长度会超出
LogTxt = InputB(LOF(1), #1)
Close #1
'转换以字节方式读取的日志文件内容
LogTxt = StrConv(LogTxt, vbUnicode)
'如果日志中出现两次成功 ， 则认为执行成功，否则认为失败
If Len(LogTxt) - Len(Replace(LogTxt, "成功", "", 1)) = 4 Then
MsgBox "盘符替换成功！"
Else
MsgBox "盘符替换失败！"
End If
'删除临时文件
Kill ScriptFile
Kill ScriptLog
End Sub
win7下vb.net 如何获取硬盘序列号Private Function 硬盘序列号() As String
Try
Dim myInfo As Microsoft.Win32.RegistryKey = My.Computer.Registry.LocalMachine.OpenSubKey("HARDWARE\DEVICEMAP\Scsi\Scsi Port 0\Scsi Bus 1\Target Id 0\Logical Unit Id 0")
硬盘序列号 = Trim(myInfo.GetValue("SerialNumber"))
Catch
Try
Dim myInfo As Microsoft.Win32.RegistryKey = My.Computer.Registry.LocalMachine.OpenSubKey("HARDWARE\DEVICEMAP\Scsi\Scsi Port 1\Scsi Bus 1\Target Id 0\Logical Unit Id 0")
硬盘序列号 = Trim(myInfo.GetValue("SerialNumber"))
Catch
硬盘序列号 = ""
End Try
End Try
End Function
试下，如果返回为空，则表示失败 。
在本机win8win8.1有效，不过好像在有些机器上没用 。
关于vb.net查u盘序列号和cmd查u盘序列号的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：如何设置Gmail服务器？ gmail服务器怎么设置

    下一篇：第三方调用接口 从第三方平台获取数据放到redis