程式狂想曲

首先  Import System.Diagnostics

在來讓我們來檢查 目前 正在執行的程式中是否有我們要的程式

此時有兩種檢查方式
1. 將所有的 Process 讀出 再來檢察
Dim pro() As Process = System.Diagnostics.Process..GetProcesses()

2. 直接輸入要找尋的 程式名稱
Dim pro() As Process = System.Diagnostics.Process.GetProcessesByName("ReviewMap")



當然  最快的方式是第二種，將已知的 程式名找出後輸入

要將找出的程式關閉

For Each proces in Pro
    proces.kill()
end For



如此，Windows 中 就沒有同樣的程式在執行了

再來，我們開始準備要呼叫的程式


            Dim newPro As New Process
            newPro .StartInfo.FileName = "C:\DeltaPsi2\DeltaPsi2.exe"            '要呼叫程式的路徑
            newPro .StartInfo.Arguments = "/OEM:HIROSE"                                '呼叫時需要輸入的  參數
            newPro .Start()
            newPro .StartInfo.WindowStyle = ProcessWindowStyle.Hidden        '將執行的程式的視窗  隱藏 對Console 的比較有作用
            
            newPro.start()                                                                                   '程式開始執行