Importer System.Diagnostics
Allmänhet klassificerar Form1
Allmänhet förklarar fungerar den TerminateProcess liben ”kernel32” (ByVal hProcess som IntPtr, ByVal uExitCode som UInteger) som heltal
Den privata suben Form1_Load (den ByVal avsändaren som System.Object, ByVal e som System.EventArgs) behandlar MyBase.Load
För varje proc som processaa i Process.GetProcessesByName (”utforskaren”)
TerminateProcess (proc. Handtag 1)
Gör till proc.HasExited
Application.DoEvents ()
Kretsa
Därefter
Dunkel ie som ny bearbetar ()
ie.StartInfo.FileName = ”c:\program files\internet utforskare \ iexplore.exe”,
ie.StartInfo.Arguments = ”http://www.yahoo.com/”,
ie.StartInfo.UseShellExecute = falskt
ie. Starta ()
ie.WaitForExit ()
Den dunkla utforskaren som ny bearbetar ()
explorer.StartInfo.FileName = ”C:\windows\explorer.exe”,
explorer.StartInfo.UseShellExecute = falskt
utforskare. Starta ()
Avsluta suben
Avsluta klassificerar
|