Imports System Imports Microsoft.Win32 Public Module modmain Sub Main() 'The KPD-Team 2001 'URL: http://www.allapi.net/dotnet/ 'E-Mail: KPDTeam@Allapi.net 'Create a new registry key ' HKEY_CURRENT_USER\Software\AllAPI.net Dim RegKey as RegistryKey = Registry.CurrentUser.CreateSubKey( _ "Software\AllAPI.net") 'Set the value of 'URL' to 'http://www.allapi.net/' RegKey.SetValue("URL", "http://www.allapi.net/") 'Delete 'URL' RegKey.DeleteValue("URL") 'Delete the subkey AllAPI.net Registry.CurrentUser.DeleteSubKey("Software\AllAPI.net") 'Close the registry key RegKey.Close() End Sub End Module |