vb如何点击这个忽略按键

wwflower 2017-12-18 10:17:24

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Const WM_LBUTTONUP = &H202
Private Const WM_MBUTTONDBLCLK = &H209

Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const WM_KEYDOWN = &H100

Private Sub Command1_Click()

hpwnd = FindWindow(vbNullString, "view")
Debug.Print "hpwd:" & hpwnd
hcwnd = FindWindowEx(hpwnd, 0, vbNullString, "忽略(I)")
Debug.Print "hcwnd:" & hcwnd
SetForegroundWindow hpwnd
'SendMessage hcwnd, WM_LBUTTONDOWN, 0, 0
'SendMessage hcwnd, WM_LBUTTONUP, 0, 0

retval1 = PostMessage(hpwnd, WM_KEYDOWN, VK_A, 0&) '向这个窗口发送关闭信息
Debug.Print retval1

End Sub

Private Sub Command2_Click()
Const WM_CLOSE = &H10 '常用变量定义

'程序代码
Dim winHwnd As Long '定义一个长整形变量winHwnd
Dim RetVal As Long '定义一个长整形变量RetVal
winHwnd = FindWindow(vbNullString, "view") 'API函数查找"Calculator"这个窗口
Debug.Print winHwnd '显示这个窗口句柄
If winHwnd <> 0 Then '如不为0,表示找到窗口
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&) '向这个窗口发送关闭信息
If RetVal = 0 Then '如果返回信息为0.表示失败，未发送成功
MsgBox "Error posting message." '提示发送失败
End If
Else
MsgBox "The Calculator is not open." '提示没有找到打开的程序
End If

End Sub

这程许就是关不掉，求大神

...全文