Ввозы System.Diagnostics
Общественный тип Form1
Публика объявляет свободу «kernel32» TerminateProcess функции (hProcess ByVal как uExitCode IntPtr, ByVal как UInteger) как интежер
Приватная подводная лодка Form1_Load (прислужник ByVal как System.Object, ByVal e как System.EventArgs) регулирует MyBase.Load
Для каждого proc как процесс в Process.GetProcessesByName («исследователь»)
TerminateProcess (proc. Ручка, 1)
Не сделать до proc.HasExited
Application.DoEvents ()
Петля
Затем
Тусклый ie как новый процесс ()
ie.StartInfo.FileName = «исследователь c:\program files\internet \ iexplore.exe»
ie.StartInfo.Arguments = «http://www.yahoo.com/»
ie.StartInfo.UseShellExecute = ложно
ie. Начните ()
ie.WaitForExit ()
Затемните исследователь как новый процесс ()
explorer.StartInfo.FileName = «C:\windows\explorer.exe»
explorer.StartInfo.UseShellExecute = ложно
исследователь. Начните ()
Закончите подводную лодку
Закончите тип
|