純net擷取開啟進程的視窗控制代碼

 Function getProcessID(ByVal ProcessName As String) As IntPtr        Dim pList() As System.Diagnostics.Process        Dim CHwd As IntPtr 'd當前進程的控制代碼        'Do While CHwd = 0 '沒有擷取控制代碼        '如果開啟檔案的程式已經載入，如已經開啟word.exe 再次開啟doc檔案，將導致進程已經退出的錯誤        '這種情況下，可以 在開啟檔案的開始就擷取到Processname        pList = System.Diagnostics.Process.GetProcessesByName(ProcessName)        For Each Cprocess In pList            If Not Cprocess.HasExited Then '如果進程沒有退出                If Cprocess.MainWindowHandle <> 0 Then '如果有父表單進程，則返回父表單進程                    CHwd = Cprocess.MainWindowHandle                Else                    CHwd = Cprocess.Handle                End If            End If        Next        '  Loop        Return CHwd    End Function