Foxtable(狐表)用户栏目专家坐堂 → 外部应用程序


  共有2058人关注过本帖树形打印复制链接

主题:外部应用程序

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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


 


 回到顶部