Huhu,

Stelle sicher, dass du oben
Imports Microsoft.Win32
stehen hast.

Auszerdem kannst du nach einem Return keine Anweisungen geben, da dort der Ablauf sozusagen Beendet wird.

Ein Beispiel wie so etwas zu benutzen ist:

Du hast deine Funktion fuer Button Click (oder Aehnliches)

CODE
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label11.Text = GetXPKey()
End Sub

darunter (oder darueber, egal) kommt der Rest:

CODE
Public Function GetXPKey() As String

Dim RegKey As RegistryKey = Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows NT\CurrentVersion")

Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows NT\CurrentVersion", False)

Dim bytDPID() As Byte = RegKey.GetValue("DigitalProductID")

Dim bytKey(14) As Byte

Array.Copy(bytDPID, 52, bytKey, 0, 15)

Dim strChar As String = "BCDFGHJKMPQRTVWXY2346789"

Dim strKey As String = ""

For j As Integer = 0 To 24

Dim nCur As Short = 0

For i As Integer = 14 To 0 Step -1

nCur = CShort(nCur * 256 Xor bytKey(i))

bytKey(i) = CByte(Int(nCur / 24))

nCur = CShort(nCur Mod 24)

Next

strKey = strChar.Substring(nCur, 1) & strKey

Next

For i As Integer = 4 To 1 Step -1

strKey = strKey.Insert(i * 5, "-")

Next

Return strKey


Falls du das ganze ohne eigene Funktion haben willst, kannst du das return loeschen und einfach deinem Label zuweisen:

CODE
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim RegKey As RegistryKey = Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows NT\CurrentVersion")
Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows NT\CurrentVersion", False)
Dim bytDPID() As Byte = RegKey.GetValue("DigitalProductID")
Dim bytKey(14) As Byte
Array.Copy(bytDPID, 52, bytKey, 0, 15)
Dim strChar As String = "BCDFGHJKMPQRTVWXY2346789"
Dim strKey As String = ""
For j As Integer = 0 To 24
Dim nCur As Short = 0
For i As Integer = 14 To 0 Step -1
nCur = CShort(nCur * 256 Xor bytKey(i))
bytKey(i) = CByte(Int(nCur / 24))
nCur = CShort(nCur Mod 24)
Next
strKey = strChar.Substring(nCur, 1) & strKey
Next
For i As Integer = 4 To 1 Step -1
strKey = strKey.Insert(i * 5, "-")
Next

Label1.Text = strKey

End Sub


Vorteil beim ersten ist, du kannst die Funktion so oft aufrufen wie du willst, ohne staendig den selben Code neu zu schreiben.

Hier nochmal alles zusammen: pastebin.com/m7c156569

kingzuck schrieb:

würde ungern mit regi machen lieber mit cmd ;)

kingzuck schrieb:

Ich will nicht mit der Regi arbeiten, schreibt bitte einfach wie man das dann mit der cmd auslesen kann

Seppi123 schrieb:

Regi ist auch so eine Sache für sich..
Kannst schnell was kaputt machen, wenn man nicht 100% damit umgehen kann^^

nikeee13 schrieb:

die Ausgabe variiert vielleicht von PC zu PC oder von Version zu Version. Um alles Fehlerfrei abzudecken müsstest du unnötigen Aufwand betreiben.