Question

VB 根据进程PID 激活窗口

程序起多个进程,窗口句柄都一样,只能通过PID来区分
AppActivate 这个只能根据句柄来激活能否通过进程PID使一个最小化的窗口前置显示

Answer 1

AppActivate 可以根据窗口的标题来激活 也可以PID 枚举进程PID代码 百度下一堆 就不贴了
Dim MyAppID, ReturnValue
AppActivate "Microsoft Word" ' 激活 Microsoft
' Word。

' AppActivate 也可利用 Shell 函数的返回值。
MyAppID = Shell("C:\WORD\WINWORD.EXE", 1) ' 运行 Microsoft Word。
AppActivate MyAppID ' 激活 Microsoft
' Word。

' 您也可使用 Shell 函数的返回值。
ReturnValue = Shell("c:\EXCEL\EXCEL.EXE",1) ' 运行 Microsoft Excel。
AppActivate ReturnValue ' 激活 Microsoft
' Excel。

Answer 2

首先 获取任务栏上的所有窗口，用GetDesktopWindow GetWindow获取任务栏上的窗口句柄，然后 GetWindowText 依次获取窗口标题来筛选自己的进程窗口，在用GetWindowThreadProcessId 获取该窗口的进程 PID，然后和你自己设定的 PID比较，成立就用 ShowWindow SetForegroundWindow 进行还原 和 最前端（前置设置是 setwindowpos 来设置）

Answer 3

AppActivate只能根据窗口标题激活窗口，你可以用API函数SetActiveWindow或者SetForegroundWindow，这两个都可以按窗口句柄来激活窗口，窗口句柄可以通过PID获取

Answer 4

打开系统自带的计算器，当然，你也可以知道PID则AppActivate进程的。
昏暗的WmiService为对象，作为对象的过程，过程作为对象

设置WmiService = GetObject的（“winmgmts：{impersonationLevel冒充}！\ \ \ root \ cimv2中” ;)
设定制程= WmiService.ExecQuery（“SELECT * FROM Win32_Process的WHERE名称=”CALC.EXE“，”“）”后面的程序名

对于每个过程流程中
AppActivate会Process.ProcessId

设置WmiService =无
设定制程=没有
设置过程没有