锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net进程pid vbs查看进程

IT技术窗口

vb.net 如何根据进程名字来取得进程的pid?''' summary
''' 返回某进程PID
''' /summary
''' param name="ProcessName"进程名(不带后缀)/param
''' returns/returns
''' remarks/remarks
Public Function ProcessPidOnly(ByVal ProcessName As String) As String
Dim myProcess As Process() = Process.GetProcessesByName(ProcessName)
Dim pid As String = ""
If myProcess.Length - 1 = 0 Then
pid = myProcess(0).Id
Else
For i As Short = 0 To myProcess.Length - 1
pid = pidmyProcess(i).Id";"
Next
End If
Return pid
End Function
vb.net怎么确定一个pid是否存在？正好我写个一个函数封装在DLL里了，代码是这样的：
''' summary
''' 检查进程是否运行
''' /summary
''' param name="ProcessName"要检查的进程名/param
''' returns/returns
''' remarks/remarks
Public Function CheckProcessByName(ByVal ProcessName As String) As Boolean
Dim MgmtClass As New ManagementClass("Win32_Process")
Dim rtnVal As Boolean = False
Dim mo As New ManagementObject()
For Each mo In MgmtClass.GetInstances()
If mo("Name").ToString().ToLower() = ProcessName.ToLower() Then
rtnVal = True
End If
Next
Return rtnVal
End Function
知道PID的话：
''' summary
''' 返回所有窗口句柄
''' /summary
''' returns/returns
''' remarks/remarks
Public Function ListAllProcessesHandle() As String
Dim sb As New StringBuilder()
Dim p As New Process()
For Each p In Process.GetProcesses(".")
Try
If p.MainWindowTitle.Length0 Then
sb.Append("句柄:"p.MainWindowHandle.ToString()Environment.NewLine)
End If
Catch
End Try
Next
Return sb.ToString()
End Function
窗口隐藏进程总有吧，函数调用的参数是进程名，不是窗口名 。
函数是自己写的没有调用API
VB.net 如何根据pid取得程序窗体句柄你想要的应该就是这个吧
'获取进程id
Dim p As Integer = Shell(TextBox1.Text)
'获取进程id对应的句柄
Dim h As IntPtr = System.Diagnostics.Process.GetProcessById(p).Handle
'显示进程id和对应的句柄
Debug.Print(p)
Debug.Print(h.ToString)
Vb.net中已知某程序的进程id，如果激活该程序并最大化？使用ShowWindow函数，便可轻松控制窗口vb.net进程pid的显隐，最小化，最大化 。
概述
函数功能vb.net进程pid：该函数设置指定窗口的显示状态 。
函数原型：BOOL ShowWindow（HWND hWnd, int nCmdShow）vb.net进程pid；
*/第一个参数为句柄，第二个参数选下面的值
#define SW_HIDE0
#define SW_SHOWNORMAL1
#define SW_NORMAL1
#define SW_SHOWMINIMIZED2
#define SW_SHOWMAXIMIZED3
#define SW_MAXIMIZE3
#define SW_SHOWNOACTIVATE4
#define SW_SHOW5
#define SW_MINIMIZE6
#define SW_SHOWMINNOACTIVE7
#define SW_SHOWNA8
#define SW_RESTORE9
#define SW_SHOWDEFAULT10
#define SW_FORCEMINIMIZE11
#define SW_MAX11
参数含义
hWnd:指窗口句柄 。
nCmdShow：指定窗口如何显示 。如果发送应用程序的程序提供vb.net进程pid了STARTUPINFO结构，则应用程序第一次调用ShowWindow时该参数被忽略 。否则，在第一次调用ShowWindow函数时，该值应为在函数WinMain中nCmdShow参数 。在随后的调用中，该参数可以为下列值之一：
SW_FORCEMINIMIZE：在WindowNT5.0中最小化窗口，即使拥有窗口的线程被挂起也会最小化 。在从其vb.net进程pid他线程最小化窗口时才使用这个参数 。
SW_HIDE：隐藏窗口并激活其他窗口 。
SW_MAXIMIZE：最大化指定的窗口 。
SW_MINIMIZE：最小化指定的窗口并且激活在Z序中的下一个顶层窗口 。
SW_RESTORE：激活并显示窗口 。如果窗口最小化或最大化，则系统将窗口恢复到原来的尺寸和位置 。在恢复最小化窗口时，应用程序应该指定这个标志 。
SW_SHOW：在窗口原来的位置以原来的尺寸激活和显示窗口 。
SW_SHOWDEFAULT：依据在STARTUPINFO结构中指定的SW_FLAG标志设定显示状态，STARTUPINFO 结构是由启动应用程序的程序传递给CreateProcess函数的 。
SW_SHOWMAXIMIZED：激活窗口并将其最大化 。
SW_SHOWMINIMIZED：激活窗口并将其最小化 。
SW_SHOWMINNOACTIVATE：窗口最小化 ， 激活窗口仍然维持激活状态 。
SW_SHOWNA：以窗口原来的状态显示窗口 。激活窗口仍然维持激活状态 。
SW_SHOWNOACTIVATE：以窗口最近一次的大小和状态显示窗口 。激活窗口仍然维持激活状态 。
SW_SHOWNORMAL：激活并显示一个窗口 。如果窗口被最小化或最大化，系统将其恢复到原来的尺寸和大小 。应用程序在第一次显示窗口的时候应该指定此标志 。
不过顺便说一句，SendKeys会偶尔造成指令丢失 ， 不可避免 。不管你激活窗口还是最大化窗口或者锁定都没办法完全避免 。
vb.net如何获取当前进程的cpu和内存使用率？使用wmi
类“Win32_Processor”中LoadPercentage属性为当前的cpu使用率
示例代码： Private Sub Timer1_Timer()
Dim WMI服务 As Object
Dim 对象 As Object
Dim 子对象 As Object
Dim 电脑名 As String
Dim 刷新 As Long
刷新 = 0
电脑名 = "." '表示本地计算机
Set WMI服务 = GetObject("winmgmts://"电脑名"/root/cimv2")
Set 对象 = WMI服务.InstancesOf("Win32_Processor")
Me.CurrentX = 0
Me.CurrentY = 0
For Each 子对象 In 对象
If 刷新 = 0 Then
刷新 = 1
Me.Cls
End If
Me.Print 子对象.Name"["子对象.CurrentClockSpeed"Hz] 使用率:"_
子对象.LoadPercentage"%"
Next
End Sub
求大神指点 vb.net 怎么通过进程pid取所加载的所有模块 路径关于进程的问题你问了多次吧，为何不多看看Process
Dim p As Process() = Process.GetProcessesByName("qq")
If p.Count = 1 Then
Dim p1 As Process = p(0)
Dim m = p1.Modules '进程的所有模块 。
End If
Dim p As Process = Process.GetProcessById(Pid)‘通过pid取进程 。
【vb.net进程pid vbs查看进程】vb.net进程pid的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbs查看进程、vb.net进程pid的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：专业音响如何做新媒体，如何做好音箱

    下一篇：支持mac的单机游戏，支持mac的网络游戏