以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  外部应用程序  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=134733)
--  作者：1498351234
--  发布时间：2019/5/5 14:59:00
--  外部应用程序

Dim Proc As New Process \'定义一个新的Process
proc.file = "C:\\Users\\Lenovo\\AppData\\Local\\Google\\Chrome\\Application\\chrome.exe"
proc.Arguments = "http://www.baidu.com"
Proc.Start()
proc.Close
msgbox(1)

 

老师好：如何才能关闭google浏览器呢？以上代码不能关闭google浏览器。
--  作者：有点甜
--  发布时间：2019/5/5 15:07:00
--  

参考代码

 

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