根据进程名获取窗口句柄.docVIP

根据进程名获取窗口句柄 这个是百度上有朋友提问的，因为本人之前做过类似研究，所以给出了满意答案。 但看到该问题前边数位高手的回答就会明白，这并非一个简单的问题。因为他们众口一致地说:这是不可能实现的！不幸让我实现思路就是枚举窗口，枚举进程，对各个窗口进行分析，与目标进程名对比，直到找到为止； 多个进程实例的可修改回调函数。 ‘　一模块，一窗体，一文本框（用于输入进程名），一列表框（用于显示所有标题），一命令按钮（开始）模块部分Public Declare Function EnumWindows Lib user32 _(ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long枚举窗口Public Declare Function GetWindowText Lib user32 Alias GetWindowTextA _(ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long获取窗口标题Public Declare Function GetWindowTextLength Lib user32 Alias GetWindowTextLengthA _(ByVal hWnd As Long) As Long获取窗口标题长度Public Declare Function Process32First Lib kernel32 (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As LongPublic Declare Function Process32Next Lib kernel32 (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As LongPublic Declare Function GetWindowThreadProcessId Lib user32 (ByVal hWnd As Long, lpdwProcessId As Long) As LongPublic Declare Function CreateToolhelp32Snapshot Lib kernel32 (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As LongPublic Declare Function IsWindowEnabled Lib user32 (ByVal hWnd As Long) As LongPublic Declare Function IsWindowVisible Lib user32 (ByVal hWnd As Long) As LongPublic Declare Function IsWindow Lib user32 (ByVal hWnd As Long) As LongPublic Declare Function ShowWindow Lib user32 (ByVal hWnd As Long, ByVal nCmdShow As Long) As LongPublic Type PROCESSENTRY32??????? dwSize?? As Long??????? cntUsage?? As Long??????? th32ProcessID?? As Long??????? th32DefaultHeapID?? As Long??????? th32ModuleID?? As Long??????? cntThreads?? As Long??????? th32ParentProcessID?? As Long??????? pcPriClassBase?? As Long??????? dwFlags?? As Long??????? szExeFile?? As String * 1024End TypePublic hwn As Long, SSS As StringPublic Function EnumWindowsProc(ByVal hWnd As Long, ByVal lParam As Long) As Long?? 回调函数??? Dim sSave As String, Ret As Long, windowProcessId As Long???? Ret = GetWindowTextLength(hWnd)???? sSave = Space(Ret)???? GetWindowT