Ce code m’a été fourni par Adrien BONNEL . Je ne l’ai pas testé et ne pourrait en aucun cas être rendu responsable des traitements réalisés dans ce code.


SI SysVersionWindows() = "98" ET Bouton1..Libellé = "Virer le Spy Système" ALORS
LanceAppli("regsvr32.exe -u c:\windows\system\regwizc.dll", exeBloquant)
RegistreSupprimeValeur("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\", "HWID")
RegistreSupprimeValeur("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\", "MSID")
RegistreEcrit("HKEY_LOCAL_MACHINE\SOFTWARE\WinSpy Remover", "SpyOS", "Disabled")
Bouton1 = "Réactiver le Spy Système"
SINON
SI SysVersionWindows() = "ME" ET Bouton1..Libellé = "Virer le Spy Système" ALORS
LanceAppli("regsvr32.exe -u %WinDir%\system\regwizc.dll", exeBloquant)
RegistreSupprimeValeur("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\", "HWID")
RegistreSupprimeValeur("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\", "MSID")
RegistreEcrit("HKEY_LOCAL_MACHINE\SOFTWARE\WinSpy Remover", "SpyOS", "Disabled")
Bouton1 = "Réactiver le Spy Système"
SINON
SI SysVersionWindows() = "NT 5" ET Bouton1..Libellé = "Virer le Spy Système" ALORS
LanceAppli("regsvr32.exe -u %WinDir%\system32\regwizc.dll", exeBloquant)
LanceAppli("regsvr32.exe -u %WinDir%\system32\msident.dll", exeBloquant)
RegistreEcrit("HKEY_LOCAL_MACHINE\SOFTWARE\WinSpy Remover", "SpyOS", "Disabled")
Bouton1 = "Réactiver le Spy Système"
SINON
SI SysVersionWindows() = "XP" ET Bouton1..Libellé = "Virer le Spy Système" ALORS
LanceAppli("regsvr32.exe -u regwizc.dll", exeBloquant)
RegistreEcrit("HKEY_LOCAL_MACHINE\SOFTWARE\WinSpy Remover", "SpyOS", "Disabled")
Bouton1 = "Réactiver le Spy Système"
SINON
SI SysVersionWindows() = "98" ET Bouton1..Libellé = "Réactiver le Spy Système" ALORS
LanceAppli("regsvr32.exe -c %WinDir%\system\regwizc.dll", exeBloquant)
RegistreEcrit("HKEY_LOCAL_MACHINE\SOFTWARE\WinSpy Remover", "SpyOS", "Enabled")
Bouton1 = "Virer le Spy Système"
SINON
SI SysVersionWindows() = "ME" ET Bouton1..Libellé = "Réactiver le Spy Système" ALORS
LanceAppli("regsvr32.exe -c %WinDir%\system\regwizc.dll", exeBloquant)
RegistreEcrit("HKEY_LOCAL_MACHINE\SOFTWARE\WinSpy Remover", "SpyOS", "Enabled")
Bouton1 = "Virer le Spy Système"
SINON
SI SysVersionWindows() = "NT 5" ET Bouton1..Libellé = "Réactiver le Spy Système" ALORS
LanceAppli("regsvr32.exe -c regwizc.dll", exeBloquant)
RegistreEcrit("HKEY_LOCAL_MACHINE\SOFTWARE\WinSpy Remover", "SpyOS", "Enabled")
Bouton1 = "Virer le Spy Système"
SINON
SI SysVersionWindows() = "XP" ET Bouton1..Libellé = "Réactiver le Spy Système" ALORS
LanceAppli("regsvr32.exe -c regwizc.dll", exeBloquant)
RegistreEcrit("HKEY_LOCAL_MACHINE\SOFTWARE\WinSpy Remover", "SpyOS", "Enabled")
Bouton1 = "Virer le Spy Système"
FIN
FIN
FIN
FIN
FIN
FIN
FIN
FIN