wlbk.net
当前位置:首页 >> VB 根据进程PID 激活窗口 >>

VB 根据进程PID 激活窗口

AppActivate 可以根据窗口的标题来激活 也可以PID 枚举进程PID代码 百度下一堆 就不贴了 Dim MyAppID, ReturnValue AppActivate "Microsoft Word" ' 激活 Microsoft ' Word。 ' AppActivate 也可利用 Shell 函数的返回值。 MyAppID = Shell("C:\...

要用到2个API函数 1.Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long 从窗口句并获取进程PID 2.Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassNa...

你要先明白一点进程名称不是唯一的.PID才是唯一的.所以从进程名来获取pid其实是不准确的. 比如上图的iexplore.exe这个进程名.对应有168 7064 7368 7544这里有4个pid所以是没办法准确获取的. 当然并不是说不能获取.只是获取的不准确. Dim WmiServ...

窗体上添加一个 text 一个按钮 只需在text中输入进程名单击一下按钮 就可以 只需要三个api Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long Private Declare ...

返回值是进程句柄,至于进程的PID,本身就是openprocess函数的参数。

没有很直接的办法,我能想到的就是遍历窗口,并用GetWindowThreadProcessID函数获取pID,并与你的pID进行比对,相同则这个窗口就是你要的窗口,请参考http://www.newxing.com/Tech/Program/VisualBasic/608.html

用API获取, GetWindowThreadProcessId ihwnd, pid 得到进程IDhProcess = OpenProcess(&H1F0FFF, False, pid) 获得进程句柄 例子: Option ExplicitPrivate Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Lon...

Private Sub Command1_Click()Dim WmiFor Each Wmi In GetObject("winmgmts:\\.\root\cimv2:win32_process").instances_ '循环进程 If Wmi.ProcessID = Text1.Text Then MsgBox Wmi.NameNextEnd Sub

在win98时代,要隐藏进程很容易实现,但自winxp起,普通软件要想隐藏进程就不太容易,可能是出于安全性的考虑吧。要在驱动程序级才能实现了。不过如果不是隐藏进程,只是在任务管理器的应用程序中的窗口列表中隐藏,这个倒是容易实现的,VB6本身...

新建个模块然后加入以下代码 Option Explicit Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long Private Declare Function Process32First Lib "kernel32" (By...

网站首页 | 网站地图
All rights reserved Powered by www.wlbk.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com