举个例子,获得exe的是通过下面程序。
Public Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long Dim hwnd As Integer
Dim strAppName As String
strAppName = "app name"
hwnd = FindWindow(vbNullString, strAppName)
If hwnd Then
Call PostMessage(hwnd, 273, 2, 0)
End If
Public Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long Dim hwnd As Integer
Dim strAppName As String
strAppName = "app name"
hwnd = FindWindow(vbNullString, strAppName)
If hwnd Then
Call PostMessage(hwnd, 273, 2, 0)
End If
用FINDWINDOWEX(...,...,...,...)找到第二个窗口
FINDWINDOWEX(HWND,NULL,S,D)
用SPY++找出BUTTON的类名与CAPTION
如果BUTTON太多,可以这样:
FINDWINDOWEX(HWND,NULL,S,D)
SETWINDOWTEXT(HWND,自定义)
再找。
WindowFromPoint 返回鼠标所在位置的窗口句柄