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))
' 文
相关问答:
我想把word另存为xml之后,用vb读取这个xml的内容,请问如何实现?
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中 ......
xmlDoc1.loadXML(h)总是返回false,为什么?谢谢帮忙回答一下
h是什么呢。。。。。。。。。
h是xml格式的字符串
你是想打开。XML格式的文件吧?
我是把h放在xmlDoc1里,用xmlDoc1.loadXML(h),然后取xmlDo ......
我的要求是:通过抓取别的程序上的表格的句柄,然后读取这个表格的内容。
表格句柄(类名:MSFlexGridWndClass)我已抓到,接下来如何读取表格的内容就不会了?求助。
能把代码发来学习下不?
244326867@qq.com ......