VB问题！！！！

2025-03-26 05:50:56

推荐回答（1个）

回答1：

Private Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * 1024
End Type
Const TH32CS_SNAPHEAPLIST = &H1
Const TH32CS_SNAPPROCESS = &H2
Const TH32CS_SNAPTHREAD = &H4
Const TH32CS_SNAPMODULE = &H8
Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)
Const TH32CS_INHERIT = &H80000000
Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long
Private Declare Function Process32First Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

'查找进程的函数
Private Function fun_FindProcess(ByVal ProcessName As String) As Long
Dim strdata As String
Dim my As PROCESSENTRY32
Dim l As Long
Dim l1 As Long
Dim mName As String
Dim i As Integer, pid As Long
l = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
If l Then
my.dwSize = 1060
If (Process32First(l, my)) Then
Do
i = InStr(1, my.szExeFile, Chr(0))
mName = LCase(Left(my.szExeFile, i - 1))
If mName = LCase(ProcessName) Then
pid = my.th32ProcessID
fun_FindProcess = pid
Exit Function
End If
Loop Until (Process32Next(l, my) < 1)
End If
l1 = CloseHandle(l)
End If
fun_FindProcess = 0
End Function

Private Sub Form_Load()
if fun_FindProcess("进程名") <> 0 then
Text1.Text=FARPROC(addressof fun_findprocess)
Else
Text1.Text = ""
End If
End Sub
private Function FARPROC(ByVal pfn As Long) As Long

FARPROC = pfn

End Function

最新问答

东方城市花园(一期)怎么样？好不好？值不值得买？

超声波热量表比电磁式热量表有哪些优势

小孩200度近视可以只在上课时戴眼镜吗？宝鸡哪里配眼镜专业？

暮江吟表达了作者怎样的思想感情

51单片机的问题，关于进位与溢出

质检资料预制T梁压浆表格中的第二次压浆是什么意思，正常压浆需要填写吗？怎么填写

小米红米怎么连接安卓？

科目三考试要不要档案

水电安装多少钱一平米？水只有给排水，电不包括弱电穿线，只有预埋弱电管，强电全套，18块一平米，可以做

远途骑行选山地车好还是旅行车好