Importations System.Diagnostics
Classe publique Form1
Le public déclare la bibliothèque « kernel32 » de TerminateProcess de fonction (des hProcess de ByVal comme uExitCode d'IntPtr, de ByVal comme UInteger) comme nombre entier
Le sous-marin privé Form1_Load (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs) manipule MyBase.Load
Pour chaque proc comme processus dans Process.GetProcessesByName (« explorateur »)
TerminateProcess (proc. Poignée, 1)
Faire jusqu'à proc.HasExited
Application.DoEvents ()
Boucle
Après
Faible IE en tant que nouveau processus ()
ie.StartInfo.FileName = « explorateur de c:\program files\internet \ iexplore.exe »
ie.StartInfo.Arguments = « http://www.yahoo.com/ »
ie.StartInfo.UseShellExecute = faux
IE. Commencer ()
ie.WaitForExit ()
Obscurcissent l'explorateur en tant que nouveau processus ()
explorer.StartInfo.FileName = « C:\windows\explorer.exe »
explorer.StartInfo.UseShellExecute = faux
explorateur. Commencer ()
Finir le sous-marin
Finir la classe
|