Importaciones System.Diagnostics
Clase pública Form1
El público declara la liberación “kernel32” de TerminateProcess de la función (los hProcess de ByVal como uExitCode de IntPtr, de ByVal como UInteger) como número entero
El submarino privado Form1_Load (remitente de ByVal como System.Object, ByVal e como System.EventArgs) dirige MyBase.Load
Para cada proc como proceso en Process.GetProcessesByName (“explorador”)
TerminateProcess (proc. Manija, 1)
Hacer hasta proc.HasExited
Application.DoEvents ()
Lazo
Después
IE dévil como nuevo proceso ()
ie.StartInfo.FileName = “explorador \ iexplore.exe de c:\program files\internet”
ie.StartInfo.Arguments = “http://www.yahoo.com/”
ie.StartInfo.UseShellExecute = falso
IE. Comenzar ()
ie.WaitForExit ()
Amortiguan a explorador como nuevo proceso ()
explorer.StartInfo.FileName = “C:\windows\explorer.exe”
explorer.StartInfo.UseShellExecute = falso
explorador. Comenzar ()
Terminar el submarino
Terminar la clase
|