Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
用FINDWINDOW Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Dim hWnd As Long hWnd = FindWindow(vbNullString, "要抓的程序名字") if hWnd <> 0 then '下面的语句你想做什么做什么了
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Dim hWnd As Long
hWnd = FindWindow(vbNullString, "要抓的程序名字")
if hWnd <> 0 then
'下面的语句你想做什么做什么了
我是个初学者,能详细些吗?
谢了!