纯net获取打开进程的窗口句柄

来源:互联网 发布:python获取上个月月份 编辑:程序博客网 时间:2024/05/14 08:20
 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


	
				
		
原创粉丝点击