VB读取硬盘系列号问题 - VB / 基础类
需要弄个读取硬盘系列号的程序（机器中可能会有超过4块硬盘），能不能通过盘符获取该磁盘所在物理硬盘的系列号
请帮忙弄个代码学习下，谢谢？
搜一下有很多,给一段代码参考
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
Public Type SerHdInfo
strLabel As String
strType As String
serNum As String
End Type
Public Function GetSerialNumber(sRoot As String) As SerHdInfo
Dim lSerialNum As Long
Dim R As Long
Dim RevVal As SerHdInfo
RevVal.strLabel = String$(255, Chr$(0))
' 磁盘卷标
RevVal.strType = String$(255, Chr$(0))
' 文
相关问答：
数据库里有一个字段的内容是二进制，怎么才能把这个二进制读出来
使用字节流对象可以实现
例如现在数据库里有个字段的内容是0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
dim a as string,b as string，c as string
a="工程编号,单位工程名称,分部工程编号"
b="单位工程名称"
c="单位"
怎么才能判断出a字符串中存在b字符串，而不存在c字符串
看看i ......
form1中有text1-8， 和command1
text8中为程序代码（生成窗体为form2（已做好））
单击command1后将text2中的代码生成EXE到d:\ 并且text1-7分别对应
产品名 公司名 合法版权 合法商标 文件描述 注释 标题
......
求个vb中的sql语句的写法，次sql语句的用法是分页程序
我写的如下：其中A是用来接收每页显示的记录的条数，B是用来接收显示的当前的页面.
sqltext="select top A * from log where id not in(select top ( ......
现在小弟在用vb6.0编写程序，遇到异步的问题，具体如下：
点击按钮A时，调用外部的dll(C++)，此dll是同步返回数据。此时如果远程未响应，我的程序界面就会卡死。因此我想到用timer来实现异步 ，但是不清楚具体的实� ......
