Question

VB 如何实现向句柄发送按一次回车键？

如何实现向句柄发送按一次回车键？请给点提示 我该如何写。或者代码如何写呢？请帮忙。谢谢..

Answer 1

VB向句柄发送回车键：

rivate Function SendClick(hwnd As Long, mX As Long, mY As Long)
    '发送点击消息
    Dim I As Long
     
    I = PostMessage(hwnd, WM_LBUTTONDOWN, 0, (mX And &HFFFF) + (mY And &HFFFF) * &H10000)
    I = PostMessage(hwnd, WM_LBUTTONUP, 0, (mX And &HFFFF) + (mY And &HFFFF) * &H10000)
End Function

Answer 2

l = SendMessage(A(i), WM_SETTEXT, 0, strW + c & Chr(0))
Sleep 10
l = PostMessage(A(i), WM_KEYDOWN, vbKeyReturn, 0)
Sleep 10
DoEvents
l = PostMessage(A(i), WM_KEYUP, vbKeyReturn, 0)
Sleep 10