Importações System.Diagnostics
Classe pública Form1
O público declara o liberal “kernel32” de TerminateProcess da função (hProcess de ByVal como o uExitCode de IntPtr, de ByVal como UInteger) como o inteiro
O submarino confidencial Form1_Load (remetente de ByVal como System.Object, ByVal e como System.EventArgs) segura MyBase.Load
Para cada proc como o processo em Process.GetProcessesByName (“explorador”)
TerminateProcess (proc. Punho, 1)
Fazer até proc.HasExited
Application.DoEvents ()
Laço
Em seguida
IE não ofuscante como o processo novo ()
ie.StartInfo.FileName = de “explorador c:\program files\internet \ iexplore.exe”
ie.StartInfo.Arguments = “http://www.yahoo.com/”
ie.StartInfo.UseShellExecute = falso
IE. Começar ()
ie.WaitForExit ()
Escurecem o explorador como o processo novo ()
explorer.StartInfo.FileName = “C:\windows\explorer.exe”
explorer.StartInfo.UseShellExecute = falso
explorador. Começar ()
Terminar o submarino
Terminar a classe
|