-----------------------------------

simon66

Mon Jan 05, 2009 4:00 pm


HELP with HWID

-----------------------------------

hey I would like to know how to get your computer Hard Ware ID (HWID) and vb 6. This is the code I have 

Private 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
Private Sub Form_Load()
    Dim Serial As Long, VName As String, FSName As String
    'Create buffers
    VName = String$(255, Chr$(0))
    FSName = String$(255, Chr$(0))
    'Get the volume information
    GetVolumeInformation "C:\", VName, 255, Serial, 0, 0, FSName, 255
    'Strip the extra chr$(0)'s
    VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1)
    FSName = Left$(FSName, InStr(1, FSName, Chr$(0)) - 1)
    Text1.Text = "Your computer HWID is:" + Trim(Str$(Serial)) + " "
End Sub


and i have a text box

so what is wrong here?


-----------------------------------

DemonWasp

Mon Jan 05, 2009 4:47 pm


RE:HELP with HWID

-----------------------------------

Please use [ syntax = " language " ] and [ / syntax ] tags to make your code easier to read.

Also, a better description of the problem you're encountering goes a long way. Does the program not compile or run? Does the program crash? Does the output not match what you expected, and if so, what were you expecting, and what did you get?

Make it easy for us to help you and we'll be more likely to.


-----------------------------------

simon66

Mon Jan 05, 2009 4:59 pm


Re: HELP with HWID

-----------------------------------

Private 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 
Private Sub Form_Load() 
Dim Serial As Long, VName As String, FSName As String 
'Create buffers 
VName = String$(255, Chr$(0)) 
FSName = String$(255, Chr$(0)) 
'Get the volume information 
GetVolumeInformation "C:\", VName, 255, Serial, 0, 0, FSName, 255 
'Strip the extra chr$(0)'s 
VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1) 
FSName = Left$(FSName, InStr(1, FSName, Chr$(0)) - 1) 
Text1.Text = "Your computer HWID is:" + Trim(Str$(Serial)) + " " 
End Sub 

what I got here is my C drive but what I wanted is my PC HWID so that I could generate a program that runs only in that computer HWID to reduce he user to reproduce and sell it...