Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
 
RegistrierenRegistrieren  LoginLogin

Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Tipps & Tricks
Autor
Nachricht
^^kev####
Überflieger
Überflieger

Anmeldedatum: 01.05.2008
Beiträge: 476
Wohnort: Haan

Windows XP Key ändern
Verfasst am: 29.06.2009, 14:13

Beschreibung:
Mit der Funktion kann man den Windows XP Key ändern.
Funktioniert aber erst ab SP1

Funktion:
Visual Basic: [code]Public Sub ChangeXPKey(ByVal Key As String)
Dim WSH As Object
Key = Replace(Key, "-", "")
WSH = CreateObject("WScript.Shell")
WSH.RegDelete("HKLMSOFTWAREMicrosoftWindows NTCurrentVersionWPAEventsOOBETimer")
For Each Obj As Object In GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("win32_WindowsProductActivation")
Obj.SetProductKey(Key)
Next
End Sub
[/code]

Quelle: dotnet-snippets.de
_________________
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Tipps & Tricks

Tags: key ändern, windows

 
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Problem mit always on top funktion 633 30.10.2009, 12:26
Keine neuen Beiträge IntStr()funktion 510 11.10.2007, 09:49
Keine neuen Beiträge TopMost Funktion unter DirectX 432 27.07.2007, 11:48
Keine neuen Beiträge Wie Funktion nutzen ? 540 29.06.2007, 21:59
Keine neuen Beiträge update funktion einbauen 741 29.01.2007, 00:11
 



[ Time: 0.1673s ][ Queries: 83 (0.0400s) ][ GZIP on - Debug on ]