De invoer System.Diagnostics
Openbare Klasse Form1
Het publiek verklaart de Lib „kernel32“ van TerminateProcess van de Functie (ByVal hProcess als IntPtr, ByVal uExitCode als UInteger) als Geheel
Privé SubForm1_Load (ByVal afzender als System.Object, ByVal e als System.EventArgs) behandelt MyBase.Load
Voor Elke proc als Proces in Process.GetProcessesByName („ontdekkingsreiziger“)
TerminateProcess (proc. Handvat, 1)
Doe tot proc.HasExited
Application.DoEvents ()
Lijn
Daarna
Verduister d.w.z. als Nieuw Proces ()
ie.StartInfo.FileName = „c:\program files\internet ontdekkingsreiziger \ iexplore.exe“
ie.StartInfo.Arguments = „http://www.yahoo.com/“
ie.StartInfo.UseShellExecute = Vals
d.w.z. Begin ()
ie.WaitForExit ()
Schemerige ontdekkingsreiziger als Nieuw Proces ()
explorer.StartInfo.FileName = „C:\windows\explorer.exe“
explorer.StartInfo.UseShellExecute = Vals
ontdekkingsreiziger. Begin ()
Sub van het eind
De Klasse van het eind
|