VB 自动按回车

VB 自动按回车

新建一个窗体,放一个timer上去,代码如下

每秒发送一次回车到当前窗口(可以是任意窗口)

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
SendKeys "{ENTER}"
End Sub

Private Sub Timer1_Timer()
text1.Text = text1.Text & "n" & Chr(13)
End Sub

'引用API
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
’张志晨：用一个定时器，时间间隔自定义吧，我这里设为1000，即一秒
Private Sub timer1_timer()
Text1.SetFocus‘为了看清效果，加一个文本框
Call keybd_event(78, 0, 0, 0)’为了看清效果，先发送了个字母民n
Call keybd_event(13, 0, 0, 0) '模拟按下"回车"键
End Sub
这样你就会看到在文本框里不断地输入n再回车换行。