Question

用vb写一个定时按回车的代码

我需要1分钟或者半分钟定时按一下回车这样一个功能，请高手写个代码，要能够运行并能生成exe的，另外看看下面这个代码的问题所在，能解决的也给分，使用sendkeys就可以。

Option Explicit

Dim s As Integer

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

Private Sub Timer1_Timer()

s = s + 1

If s >= 60 Then
s = 0
SendKeys "{enter}"
End If

End Sub

窗体启动后就开始运行！

解决的好的朋友还给加分
我想是这个回车程序运行起来以后，就最小化，然后打开一个工具，这个工具有个输入框，就对这个输入框回车就ok

提示该问答中所提及的号码未经验证，请注意甄别。

Answer 1

我加了一句话，就是运行时使程序最小化，这样就可实现不停向焦点处按回车键了。
Option Explicit
Dim s As Integer

Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = True
Me.WindowState = 1 '运行后最小化，可以在焦点处实现按键
End Sub

Private Sub Timer1_Timer()
s = s + 1
If s >= 60 Then
s = 0
SendKeys "{enter}"
End If
End Sub

Answer 2

你的这段代码没有问题，问题出在你SendKeys的时候，你的焦点在何处，要知道SendKeys只往有焦点的控件发送 "{enter}" 。

Answer 3

试试这个，就加了一行。
Option Explicit

Dim s As Integer

Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = True
Me.KeyPreview = True
End Sub

Private Sub Timer1_Timer()

s = s + 1

If s >= 60 Then
s = 0
SendKeys "{Enter}"
End If

End Sub

Answer 4

Time

我知道，加我

Answer 5

459205593
联系一下