参考代码
Dim Proc As New Process '定义一个新的Process
proc.file = "C:\Program Files\Google\Chrome\Application\chrome.exe"
proc.Arguments = "http://www.baidu.com"
Proc.Start()
msgbox(1)
Dim ps As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcesses()
For Each p As System.Diagnostics.Process In ps
output.show(p.processName)
If ("chrome" = p.ProcessName)
msgbox(p.MainWindowTitle)
p.kill
End If
Next