Code:
Dim SchlüsselWin As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductName", Nothing)
Dim Schlüssel03 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of Duty", "codkey", Nothing)
Dim Schlüssel04 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of Duty United Offensive", "key", Nothing)
Dim Schlüssel05 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of Duty 2", "codkey", Nothing)
Dim Schlüssel06 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of Duty 4", "codkey", Nothing)
Dim Schlüssel07 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of Duty WAW", "codkey", Nothing)
' Dim Schlüssel14 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Ahead\Installation\Families\Nero 7\Info", "Serial7_1259337421", Nothing)
Dim Schlüssel17 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Adobe\Photoshop\7.0\Registration", "SERIAL", Nothing)
Dim Schlüssel21 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Sunflowers\Anno 1701", "SerialNo", Nothing)
Dim Schlüssel22 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\ashampoo\Ashampoo WinOptimizer Platinum 3", "Key", Nothing)
Dim Schlüssel23 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\@stake\LC5\Registration", "Unlock Code", Nothing)
Dim Schlüssel24 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA GAMES\Battlefield 1942", "ergc", Nothing)
Dim Schlüssel25 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA GAMES\Battlefield 1942 Secret Weapons of WWII", "ergc", Nothing)
Dim Schlüssel26 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA GAMES\Battlefield 1942 The Road to Rome", "ergc", Nothing)
Dim Schlüssel27 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\Battlefield 2", "ergc", Nothing)
Dim Schlüssel28 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA GAMES\Battlefield 2142", "ergc", Nothing)
Dim Schlüssel29 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Battlefield Vietnam", "ergc", Nothing)
Dim Schlüssel30 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Black and White", "ergc", Nothing)
Dim Schlüssel31 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Black and White 2", "ergc", Nothing)
Dim Schlüssel33 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\Burnout Paradise", "ergc", Nothing)
Dim Schlüssel34 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\TechSmith\Camtasia Studio\4.0", "RegisteredTo", Nothing)
Dim Schlüssel35 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\TechSmith\Camtasia Studio\4.0", "RegistrationKey", Nothing)
Dim Schlüssel38 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA GAMES\Generals", "ergc", Nothing)
Dim Schlüssel39 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA GAMES\Command and Conquer Generals Zero Hour", "ergc", Nothing)
Dim Schlüssel40 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Westwood\Red Alert 2", "Serial", Nothing)
Dim Schlüssel41 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Westwood\Red Alert", "Serial", Nothing)
Dim Schlüssel42 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Westwood\Tiberian Sun", "Serial", Nothing)
Dim Schlüssel43 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\Command and Conquer 3", "ergc", Nothing)
Dim Schlüssel44 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\Electronic Arts\Command and Conquer 3", "ergc", Nothing)
Dim Schlüssel45 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\THQ\Company of Heroes", "CoHProductKey", Nothing)
Dim Schlüssel48 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\Electronic Arts\Crysis", "ergc", Nothing)
Dim Schlüssel53 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\Electronic Arts\The Battle for Middle-earth II", "ergc", Nothing)
Dim Schlüssel54 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\The Sims 2", "ergc", Nothing)
Dim Schlüssel55 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\The Sims 2 University", "ergc", Nothing)
Dim Schlüssel56 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\The Sims 2 Nightlife", "ergc", Nothing)
Dim Schlüssel57 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\The Sims 2 Open For Business", "ergc", Nothing)
Dim Schlüssel58 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\The Sims 2 Pets", "ergc", Nothing)
Dim Schlüssel59 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\The Sims 2 Seasons", "ergc", Nothing)
Dim Schlüssel60 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\The Sims 2 Glamour Life Stuff", "ergc", Nothing)
Dim Schlüssel61 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\The Sims 2 Celebration Stuff", "ergc", Nothing)
Dim Schlüssel62 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\The Sims 2 H M Fashion Stuff", "ergc", Nothing)
Dim Schlüssel63 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\The Sims 2 Family Fun Stuff", "ergc", Nothing)
Dim Schlüssel66 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Sierra\Empire Earth II", "CDKey", Nothing)
Dim Schlüssel67 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Sierra\CDKey", "fear", Nothing)
Dim Schlüssel69 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\CRYTEK\FARCRY\UBI.COM", "CDKey", Nothing)
Dim Schlüssel71 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Sports\FIFA 2002", "ergc", Nothing)
Dim Schlüssel72 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Sports\FIFA 2003", "ergc", Nothing)
Dim Schlüssel73 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Sports\FIFA 2004", "ergc", Nothing)
Dim Schlüssel74 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Sports\FIFA 2005", "ergc", Nothing)
Dim Schlüssel75 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Sports\FIFA 07", "ergc", Nothing)
Dim Schlüssel76 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\Electronic Arts\FIFA 08", "ergc", Nothing)
Dim Schlüssel79 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\THQ\Frontlines: Fuel of War", "ProductKey", Nothing)
Dim Schlüssel84 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\Hellgate: London", "ergc", Nothing)
Dim Schlüssel85 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Illusion Softworks\Hidden & Dangerous 2", "key", Nothing)
Dim Schlüssel92 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA GAMES\James Bond 007 Nightfire", "ergc", Nothing)
Dim Schlüssel94 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Macromedia\Flash\7\Registration", "Serial Number", Nothing)
Dim Schlüssel95 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Macromedia\Fireworks\7\Registration", "Serial Number", Nothing)
Dim Schlüssel96 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Macromedia\Dreamweaver\7\Registration", "Serial Number", Nothing)
Dim Schlüssel100 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA GAMES\Medal of Honor Allied Assault", "ergc", Nothing)
Dim Schlüssel97 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Sports\Madden NFL 07", "ergc", Nothing)
Dim Schlüssel101 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA GAMES\Medal of Honor Allied Assault Breakthrough", "ergc", Nothing)
Dim Schlüssel102 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA GAMES\Medal of Honor Allied Assault Spearhead", "ergc", Nothing)
Dim Schlüssel103 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\Medal of Honor: Heroes 2", "ergc", Nothing)
Dim Schlüssel104 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\mIRC", "UserName", Nothing)
Dim Schlüssel106 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Sports\Nascar Racing 2002", "ergc", Nothing)
Dim Schlüssel105 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\mIRC", "License", Nothing)
Dim Schlüssel108 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Sports\NHL 2002", "ergc", Nothing)
Dim Schlüssel107 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Sports\Nascar Racing 2003", "ergc", Nothing)
Dim Schlüssel109 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Sports\NBA LIVE 2003", "ergc", Nothing)
Dim Schlüssel110 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Sports\NBA LIVE 2004", "ergc", Nothing)
Dim Schlüssel111 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Sports\NBA LIVE 07", "ergc", Nothing)
Dim Schlüssel112 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Sports\NBA Live 08", "ergc", Nothing)
Dim Schlüssel113 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\Electronic Arts\Need for Speed Carbon", "ergc", Nothing)
Dim Schlüssel114 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA GAMES\Need For Speed Hot Pursuit 2", "ergc", Nothing)
Dim Schlüssel115 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA GAMES\Need for Speed Most Wanted", "ergc", Nothing)
Dim Schlüssel116 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\Electronic Arts\Need for Speed ProStreet", "ergc", Nothing)
Dim Schlüssel117 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA GAMES\Need For Speed Underground", "ergc", Nothing)
Dim Schlüssel118 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\Need for Speed Underground 2", "ergc", Nothing)
Dim Schlüssel119 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Ahead\Nero - Burning Rom\Info", "Serial6", Nothing)
Dim Schlüssel122 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Sports\NHL 2002", "ergc", Nothing)
Dim Schlüssel123 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Sports\NHL 2003", "ergc", Nothing)
Dim Schlüssel124 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Sports\NHL 2004", "ergc", Nothing)
Dim Schlüssel125 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Sports\NHL 2005", "ergc", Nothing)
Dim Schlüssel142 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\KONAMI\PES2008", "code", Nothing)
Dim Schlüssel143 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\Red Storm Entertainment\RAVENSHIELD", "CDKey", Nothing)
Dim Schlüssel147 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\ Sim City 4 Deluxe", "ergc", Nothing)
Dim Schlüssel148 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\ Sim City 4", "ergc", Nothing)
Dim Schlüssel152 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\GSC Game World\STALKER-SHOC", "InstallCDKEY", Nothing)
Dim Schlüssel153 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\LucasArts\Star Wars Battlefront II\1.0", "CD Key", Nothing)
Dim Schlüssel154 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\LucasArts\Star Wars Battlefront II\1.1", "CD Key", Nothing)
Dim Schlüssel155 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\Steganos\SIAVPN", "ClientID", Nothing)
Dim Schlüssel157 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\THQ\Gas Powered Games\Supreme Commander", "KEY", Nothing)
Dim Schlüssel158 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\Sierra\CDKey", "swat2", Nothing)
Dim Schlüssel159 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\Sierra\CDKey", "swat3", Nothing)
Dim Schlüssel160 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\Sierra\CDKey", "swat4", Nothing)
Dim Schlüssel170 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\TuneUp\Utilities\6.0", "UserName", Nothing)
Dim Schlüssel171 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\TuneUp\Utilities\6.0", "RegCode", Nothing)
Dim Schlüssel172 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\TuneUp\Utilities\6.0", "Company", Nothing)
Dim Schlüssel173 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\TuneUp\Utilities\7.0", "UserName", Nothing)
Dim Schlüssel174 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\TuneUp\Utilities\7.0", "RegCode", Nothing)
Dim Schlüssel176 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\TuneUp\Utilities\8.0", "UserName", Nothing)
Dim Schlüssel175 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\TuneUp\Utilities\7.0", "Company", Nothing)
Dim Schlüssel177 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\TuneUp\Utilities\8.0", "ProductKey", Nothing)