VB6 VBA列出指定进程下所有窗体,窗口句柄

逍遥爱迪生

模块名称：列出指定进程下所有窗体

'无法直接用CreateToolhelp32Snapshot列出指定进程的线程 -CSDN博客
'https://blog.csdn.net/xiaoyao961/article/details/143866893?

1. Public Const SMTO_NORMAL = &H0
   
2. 
   
3. Declare Function SendMessageTimeout Lib "user32" Alias "SendMessageTimeoutA" (ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long, ByVal fuFlags As Long, ByVal uTimeout As Long, lpdwResult As Long) As Long
   
4. 
   
5. 
   
6. 
   
7. Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
   
8. 
   
9. Private Type PROCESSENTRY32
   
10. 
    
11.     dwSize As Long
    
12. 
    
13.     cntUsage As Long
    
14. 
    
15.     th32ProcessID As Long
    
16. 
    
17.     th32DefaultHeapID As Long
    
18. 
    
19.     th32ModuleID As Long
    
20. 
    
21.     cntThreads As Long
    
22. 
    
23.     th32ParentProcessID As Long
    
24. 
    
25.     pcPriClassBase As Long
    
26. 
    
27.     dwFlags As Long
    
28. 
    
29.     szExeFile As String * 260
    
30. 
    
31. End Type
    
32. 
    
33. Public Const TH32CS_SNAPTHREAD = &H4
    
34. 
    
35. 
    
36. 
    
37. Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long
    
38. 
    
39. Private Declare Function Thread32First Lib "kernel32" ( _
    
40. 
    
41.                          ByVal hSnapshot As Long, _
    
42. 
    
43.                          ByRef lpte As THREADENTRY32) As Long
    
44. 
    
45. Private Declare Function Thread32Next Lib "kernel32" ( _
    
46. 
    
47.                          ByVal hSnapshot As Long, _
    
48. 
    
49.                          ByRef lpte As THREADENTRY32) As Long
    
50. 
    
51. 
    
52. 
    
53. 
    
54. 
    
55. Private Type THREADENTRY32
    
56. 
    
57.     dwSize              As Long
    
58. 
    
59.     cntUsage            As Long
    
60. 
    
61.     th32ThreadID        As Long
    
62. 
    
63.     th32OwnerProcessID  As Long
    
64. 
    
65.     tpBasePri           As Long
    
66. 
    
67.     tpDeltaPri          As Long
    
68. 
    
69.     dwFlags             As Long
    
70. 
    
71. End Type
    
72. 
    
73. Public Function GetThreadCount(ByVal PID As Long) As Long
    
74. 
    
75. 'codeid=751 /列出指定进程所有线程数量
    
76. 
    
77.     Dim hSnapshot As Long 'dwProcessID is pid
    
78. 
    
79.     Dim te32 As THREADENTRY32
    
80. 
    
81.     '列出所有进程的线程,然后从中判断
    
82. 
    
83.     hSnapshot = CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD, 0)
    
84. 
    
85.     If hSnapshot <> 0 Then
    
86. 
    
87.         te32.dwSize = Len(te32)
    
88. 
    
89.         Dim ThreadCount As Long
    
90. 
    
91.         If Thread32First(hSnapshot, te32) Then
    
92. 
    
93.             Do
    
94. 
    
95. 
    
96. 
    
97.                 If te32.th32OwnerProcessID = PID Then
    
98. 
    
99.                         ThreadCount = ThreadCount + 1
    
100. 
     
101.                 End If
     
102. 
     
103.             Loop While Thread32Next(hSnapshot, te32)
     
104. 
     
105.         End If
     
106. 
     
107.         Debug.Print "ThreadCount=" & ThreadCount
     
108. 
     
109.         CloseHandle (hSnapshot)
     
110. 
     
111.     End If
     
112. 
     
113.     GetThreadCount = ThreadCount
     
114. 
     
115. End Function
     
116. 
     
117. 
     
118. 
     
119. Public Function ListWindowsByProcessID(ByVal PID As Long) As Long
     
120. 
     
121. 'codeid=752 /列出指定进程下所有窗体
     
122. 
     
123.     'NeedVisible=true 'putlic '是否只列出可见的窗体
     
124. 
     
125.     Dim hSnapshot As Long 'dwProcessID is pid
     
126. 
     
127.     Dim te32 As THREADENTRY32
     
128. 
     
129.     FormCount = 0
     
130. 
     
131.     ReDim FormSz(0)
     
132. 
     
133.     '列出所有进程的线程,然后从中判断
     
134. 
     
135.     hSnapshot = CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD, 0)
     
136. 
     
137.     If hSnapshot <> 0 Then
     
138. 
     
139.         te32.dwSize = Len(te32)
     
140. 
     
141.         Dim ThreadCount As Long
     
142. 
     
143.         If Thread32First(hSnapshot, te32) Then
     
144. 
     
145.             Do
     
146. 
     
147. 
     
148. 
     
149.                 If te32.th32OwnerProcessID = PID Then
     
150. 
     
151.                         ThreadCount = ThreadCount + 1
     
152. 
     
153.                         'Debug.Print "线程ID=" & ThreadCount & ",Tid=" & te32.th32ThreadID
     
154. 
     
155.                         Call EnumThreadWindows(te32.th32ThreadID, AddressOf EnumThreadWndProc, te32.th32ThreadID)
     
156. 
     
157.                        
     
158. 
     
159.                 End If
     
160. 
     
161.             Loop While Thread32Next(hSnapshot, te32)
     
162. 
     
163.         End If
     
164. 
     
165.         Debug.Print "ThreadCount=" & ThreadCount
     
166. 
     
167.         CloseHandle (hSnapshot)
     
168. 
     
169.     End If
     
170. 
     
171.     ListWindowsByProcessID = FormCount
     
172. 
     
173. End Function
     
174. 
     
175. 
     
176. 
     
177. 
     
178. 
     
179. Function IsWindowBusy(hwnd As Long, Optional Timeout As Long = 60&) As Boolean
     
180. 
     
181.     If SendMessageTimeout(hwnd, WM_GETTEXTLENGTH, 0&, 0&, SMTO_NORMAL, Timeout, ByVal 0&) = 0 Then
     
182. 
     
183.         IsWindowBusy = True
     
184. 
     
185.         'DoEvents
     
186. 
     
187.     End If
     
188. 
     
189. End Function
     
190. 
     

复制代码