（特急）在win2000下vb6怎么才能得到任务管理器中某个应用程序进程的句柄？

[duranduan]

参数是那个应用程序在任务管理器中进程的名字（如vb6.exe），多谢

[TechnoFantasy]

http://expert.csdn.net/Expert/topic/2193/2193566.xml?temp=.8008386

[射天狼]

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Form_Load()
Dim hwd As Long

hwd = FindWindow(vbNullString, "工程1") '把工程1改为你要找的标题
MsgBox hwd '不为0则找到.

End Sub

[hxy2003]

findwindow("titale",vbnullstring)