Vb6 Hwıd Sistemi ?

'[COLOR=SeaGreen]text1 ve bir buton ekle[/COLOR]
Private Declare Function GetVolumeSerialNumber Lib "kernel32.dll" 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

Public Function HardwareID() As String
    Dim sVolLabel As String, sSerial As Long, sName As String
    Dim objCPUItem As Object, objCPU As Object
    Dim objBaseBoard As Object, objBoard As Object

    If GetVolumeSerialNumber(Left(Environ("windir"), 3), sVolLabel, 0, sSerial, 0, 0, sName, 0) Then
        HardwareID = Hex(sSerial)
    Else
        HardwareID = "00000000"
    End If
  
    Set objCPUItem = GetObject("winmgmts:").InstancesOf("Win32_Processor")

    If Err.Number = 0 Then
        For Each objCPU In objCPUItem
            HardwareID = HardwareID & objCPU.MaxClockSpeed
            HardwareID = HardwareID & objCPU.ProcessorId
        Next
        Set objCPUItem = Nothing
    End If

    Set objBaseBoard = GetObject("WinMgmts:").InstancesOf("Win32_BaseBoard")

    For Each objBoard In objBaseBoard
        HardwareID = HardwareID & objBoard.SerialNumber
        Exit For
    Next
  
    For i = 1 To Len(HardwareID)
        If IsNumeric(Mid(HardwareID, i, 1)) = True Then
            sTmp = sTmp + Mid(HardwareID, i, 1)
        End If
    Next
  
    For i = 1 To Len(sTmp)
        sResult = sResult & Mid(sTmp, i, 1) Mod 12
    Next
  
    HardwareID = StrReverse(sResult)
End Function

Private Sub Command1_Click()
Text1.Text = HardwareID
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "http://siteismi.com/hwıd.html" 'hwıd git
End Sub
Private Sub WebBrowser1_d o c u m e n tComplete(ByVal pDisp As Object, URL As Variant)
If WebBrowser1.d o c u m e n t.body.innerhtml = "1234" Then 'eğer hwıd html 1234 ise
MsgBox "Hwıd Doğru",vbInformation,"Hwıd" 'doğru de programı aç
else 'değilse
msgbox "Yanlış Hwıd" 'yanlış de
unload me  'kapat
End If
End Sub