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

VB 根据进程PID 激活窗口

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

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

要用到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...

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

没有很直接的办法,我能想到的就是遍历窗口,并用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...

这个方法也挺好。我用记事本程序为例,你先打开记事本程序,添加如下代码,单击窗体即可。 ============== Option Explicit Dim h As OLE_HANDLE, Pid As OLE_HANDLE Private Declare Function FindWindow Lib "user32" Alias "Fi...

一、把下面代码放入一个模块中 Option Explicit Public Declare Function ZwQueryInformationProcess _ Lib "NTDLL.DLL" (ByVal ProcessHandle As Long, _ ByVal ProcessInformationClass As PROCESSINFOCLASS, _ ByVal ProcessInformation As L...

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

Private Sub Command1_Click() Dim Wmi As Object, A As Object Set Wmi = GetObject("Winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") Set A = Wmi.Execquery("Select * From Win32_Process") 'Dim b As Object 'For Each b In A ...

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