程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> Visual Basic語言 >> VB綜合教程 >> 讀取軟硬光盤序列號

讀取軟硬光盤序列號

編輯:VB綜合教程

  獲取序列號是要讀取軟硬光盤的信息,可通過以下函數獲得:

  Public 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。

  現在說明一下這個函數:

  它用於獲取序列號,卷標,盤信息(如:是否壓縮等)以下一個例子:

  先定以一個調用它的自定義函數:

  

Function GetItNum(strDrv As String) As Long
Dim GetNum As Long
Dim Rs As Long
Dim Temp1 As String
Dim Temp2 As String
Temp1 = String$(255, Chr$(0))
Temp2 = String$(255, Chr$(0))
Rs = GetVolumeInformation(strDrv, Temp1, Len(Temp1), GetNum, 0, 0, Temp2, Len(Temp2))
MsgBox "卷標為:"+Temp1
MsgBox "序列號為:"+Hex(SerialNum)
End Function

  以後使用時就調用GetItNum("盤符")就可以了!

  這樣就可以十分順利的來控制鼠標了!

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved