Chẳng có gì làm quà phúc đáp anh chị và các bạn, xin tặng anh chị và các bạn 2 hàm tôi hay dùng, can thiệp chút xíu đến hệ thống
1- Hàm đọc serial ổ cứng
Public Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Sub GetStringDK() '(StrDK1 As String, StrDK2 As String)
Dim a As String, b As String, C As Long, e As Long, f As Long, g As String, H As Long, D As Long
Dim TxtPass1 As String, TxtPass2 As String
Dim i As Long
b = Space(255)
a = "C:\"
C = 255
D = 255
e = 255
f = 255
H = 255
Call GetVolumeInformation(a, b, C, D, e, f, g, H)
D = Abs(D)
MsgBox D
End Sub
2- Hàm đọc thư mục system của window
Public Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" _
(ByVal LpBuffer As String, ByVal nSize As Long) As Long
Public Function WinSysPath() As String
Dim KQ As Long, LpBuffer As String, nSize As Long
LpBuffer = Space(500)
nSize = 500
KQ = GetSystemDirectory(LpBuffer, nSize)
LpBuffer = Trim(LpBuffer)
WinSysPath = Left(LpBuffer, Len(LpBuffer) - 1)
MsgBox WinSysPath
End Function
'=============================================
Hy vọng hai hàm này có tác dụng ít nhiều đến công việc của mọi người
Chúc mọi người thành công
Hihi...
