Question

VB实现类似一直按键盘上回车键的效果

VB怎么实现类似一直按键盘上回车键的效果？
就是 有个东西 需要我一直按 键盘上回车 ，现在我不详这样 也不想拿根牙签插在回车上 又不想用按键精灵 ，想用VB写个东西代替，
还有.如果我只想对某个窗口发回车，就是网页上弹出的窗口.上面有写 “是否继续？” （类似MSGBOX的消息框） 要怎么弄？具体代码.最好+注释..谢谢了

Answer 1

keybd_event

'模块
Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Public Const KEYEVENTF_EXTENDEDKEY = &H1
Public Const KEYEVENTF_KEYUP = &H2

'窗体
Private Sub Timer1_Timer()
Call keybd_event(13, 0, 0, 0)
Call keybd_event(13, 0, KEYEVENTF_KEYUP, 0)
End Sub

就是我说的这样喽。
Enter的Ascii是13，timer的时间控制间隔长短

准确的方法是FindWindow来寻找窗体，这个肯定是子窗体了。
可能要用FindWindowEx，然后找到的话在SendMessage WM_KeyDown
VK_Enter到找到的HWND。
如果不需要太准确。直接模拟键盘
Call keybd_event(13, 0, 0, 0)
Call keybd_event(13, 0, KEYEVENTF_KEYUP, 0)

Answer 2

什么意思?

Answer 3

Private Sub Timer1_Timer()
DoEvents
SendKeys "{enter}"
End Sub