Eerst mijn beste wensen voor het nieuwe jaar. En dit is mijn eerste probleem.
Ik heb via Google een procedure gevonden om via VB2013 de cd-sleutel van een Windows 10 installatie te vinden. Maar zoals je zult verwachten krijg ik een error bij het uitvoeren.
Mijn code:
En dit is de error: Kan een object van het type System.Int32 niet converteren naar het type System.Byte[].
Hoe kan ik dit oplossen?
Ik heb via Google een procedure gevonden om via VB2013 de cd-sleutel van een Windows 10 installatie te vinden. Maar zoals je zult verwachten krijg ik een error bij het uitvoeren.
Mijn code:
Code:
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim rKey As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion")
Dim rpk As Byte() = rKey.GetValue("DigitalProductId", 0)
Dim strKey As String = ""
Const iRPKOffset As Integer = 52
Const strPossibleChars As String = "BCDFGHJKMPQRTVWXY2346789"
Dim i As Integer = 28
Do
Dim lAccu As Long = 0
Dim j As Integer = 14
Do
lAccu *= 256
lAccu += Convert.ToInt64(rpk(iRPKOffset + j))
rpk(iRPKOffset + j) = Convert.ToByte(Convert.ToInt64(Math.Floor(CSng(lAccu) / 24.0F)) And Convert.ToInt64(255))
lAccu = lAccu Mod 24
j -= 1
Loop While j >= 0
i -= 1
strKey = strPossibleChars(CInt(lAccu)).ToString() + strKey
If (0 = ((29 - i) Mod 6)) AndAlso (-1 <> i) Then
i -= 1
strKey = "-" + strKey
End If
Loop While i >= 0
TextBox1.Text = strKey
End Sub
Hoe kan ik dit oplossen?
Laatst bewerkt door een moderator: