How To Get The Windows Product Key In VB.NET

Let's get our windows product key from vb.net

Add the function below in your codes

   Public Function ProductKey(ByVal KeyPath As String, ByVal ValueName As String) As String
        Dim HexBuf As Object = My.Computer.Registry.GetValue(KeyPath, ValueName, 0)
        If HexBuf Is Nothing Then Return "N/A"
        Dim tmp As String = ""
        For l As Integer = LBound(HexBuf) To UBound(HexBuf)
            tmp = tmp & " " & Hex(HexBuf(l))
        Next
        Dim Digits(24) As String
        Digits(0) = "B" : Digits(1) = "C" : Digits(2) = "D" : Digits(3) = "F"
        Digits(4) = "G" : Digits(5) = "H" : Digits(6) = "J" : Digits(7) = "K"
        Digits(8) = "M" : Digits(9) = "P" : Digits(10) = "Q" : Digits(11) = "R"
        Digits(12) = "T" : Digits(13) = "V" : Digits(14) = "W" : Digits(15) = "X"
        Digits(16) = "Y" : Digits(17) = "2" : Digits(18) = "3" : Digits(19) = "4"
        Digits(20) = "6" : Digits(21) = "7" : Digits(22) = "8" : Digits(23) = "9"

        Dim HexDigitalPID(15) As String
        Dim Des(30) As String
        Dim tmp2 As String = ""
        Dim StartOffset As Integer = 52, EndOffset As Integer = 67
        For i = StartOffset To EndOffset
            HexDigitalPID(i - StartOffset) = HexBuf(i)
            tmp2 = tmp2 & " " & Hex(HexDigitalPID(i - StartOffset))
        Next
        Dim KEYSTRING As String = ""
        Dim dLen As Integer = 29
        For i As Integer = dLen - 1 To 0 Step -1
            If ((i + 1) Mod 6) = 0 Then
                Des(i) = "-"
                KEYSTRING = KEYSTRING & "-"
            Else
                Dim HN As Integer = 0
                Dim sLen As Integer = 15
                For N As Integer = (sLen - 1) To 0 Step -1
                    Dim Value As Integer = ((HN * 2 ^ 8) Or HexDigitalPID(N))
                    HexDigitalPID(N) = Value \ 24
                    HN = (Value Mod 24)
                Next
                Des(i) = Digits(HN)
                KEYSTRING = KEYSTRING & Digits(HN)
            End If
        Next
        Return StrReverse(KEYSTRING)
    End Function

Now add a button and add this code to button click event.

    MsgBox(ProductKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\", "DigitalProductId"))

Debug and click the button a new message box will pop up with showing your product key.

:)