纯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