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
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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024