Visual Basic Forum

bla · Coder Anmeldedatum: 02.05.2008 Beiträge: 267

hi ho,

hat viellt jemand eine sub um unter vista den key auszulesen?

also den cd key, oder activation key oder wie das heißt...^^

n kumpel findet seinen nicht wieder, bzw hat den aufkleber wos drauf steht weggeworfen oder so Very Happy

kann auch in vb6 sein. wär sehr hilfreich Wink

^^kev#### · Verfasst am: 27.07.2008, 22:15

SuFu

Hatte es letztens bei mir auch gebraucht Very Happy

http://www.visual-basic-forum.de/viewtopic.php/2000_20...slesen-279.html

bla · Coder Anmeldedatum: 02.05.2008 Beiträge: 267

jow, das hab ich auch gefunden.

aber is das nicht für XP?
oder kann man das auch für vista nutzen?

BlAcKfINAl.aT · Poster Anmeldedatum: 26.07.2008 Beiträge: 162

Schau mal im Link Wink

/showthread.php/2000_2003_xp_vista_installationsschl_ssel_auslesen-279.html

Smile

^^kev#### · Verfasst am: 27.07.2008, 22:40

Es geht auch bei Vista!
Habs selber bei mir getestet Wink

bla · Coder Anmeldedatum: 02.05.2008 Beiträge: 267

jow danke...^^

tr4st · Überflieger Anmeldedatum: 16.04.2008 Beiträge: 486

Aber damit liest er nicht den CD-Key aus, das ist ein anderer Key der dort ausgegeben wird, habe es bei der Installation getestet!

Lies den Key mal hiermit aus, du wirst merken das es ein anderer ist.

Visual Basic: [code] Imports Microsoft.Win32
Imports System

Public Class Win32
#Region "Properties"
'''

''' Reads the Windows CD key from the registry and returns it as string separated by '-' chars.
'''

Public Shared ReadOnly Property WindowsCDKey() As String
Get
Dim rKey As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWAREMicrosoftWindows NTCurrentVersion")
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) / 24F)) 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

Return strKey
End Get
End Property

'''

''' Reads the Windows CD key from the registry and returns it as string array.
'''

Public Shared ReadOnly Property WindowsCDKeyParts() As String()
Get
Dim strKeyParts As String() = WindowsCDKey.Split("-"C)
Return strKeyParts
End Get
End Property
#End Region
End Class [/code]

bla · Coder Anmeldedatum: 02.05.2008 Beiträge: 267

also ich bekomm damit den selben key raus Surprised

^^
und das scheint auch der richtige zu sein...