易截截图软件、单文件、免安装、纯绿色、仅160KB

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))  
  ' 文


相关问答:

vb - VB / 基础类

我想把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
......

vb读取用word转换成的xml里的数据 - VB / 基础类

Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
  Put #1, , MyRecord ' 读入所有字符到变量中 ......

vb - VB / 基础类

xmlDoc1.loadXML(h)总是返回false,为什么?谢谢帮忙回答一下
h是什么呢。。。。。。。。。

h是xml格式的字符串

你是想打开。XML格式的文件吧?

我是把h放在xmlDoc1里,用xmlDoc1.loadXML(h),然后取xmlDo ......

VB如何获得别的程序上的表格内容? - VB / API

我的要求是:通过抓取别的程序上的表格的句柄,然后读取这个表格的内容。
表格句柄(类名:MSFlexGridWndClass)我已抓到,接下来如何读取表格的内容就不会了?求助。

能把代码发来学习下不?
244326867@qq.com ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号