今天,帮人解答问题时,用VB.NET写了段根据进程名称查找PID的方法。
以前用VB6时积累的API发挥了作用,主要在VB.NET处理API声明时注意一下把所有的long改成Integer,同时如果有Any的话也需要改成Object。
VB6的Long对应VB.NET的Integer。如果混了,会报错的。
既然写了,就记录一下,便于后面使用
Module Module1
Private Const GW_HWNDNEXT = 2
Private Const GW_CHILD = 5
Private Declare Function GetDesktopWindow Lib "user32" () As Integer
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Integer) As Integer
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Integer, ByVal wCmd As Integer) As Integer
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Integer, ByRef lpdwProcessId As Integer) As Integer
Public Declare Function Ge