新手求一个小代码！高手指教下！

就是一个定时按键！指定时间，然后按回车！ sendkeys
在工程里，选择这个，按“F1” 不知道楼主想要什么样的效果，能说清楚点么？

引用 2 楼 dbcontrols 的回复:

不知道楼主想要什么样的效果，能说清楚点么？

指定个时间，例如03：00，时间到自动按下A，然后退出窗口！就是这么简单的！自己的程序吗？

Private Sub Form_Load()

    Timer1.Interval = 1000

    Timer1.Enabled = True

End Sub



Private Sub Timer1_Timer()

    If DateDiff("s", "2011-01-17 15:00:00", Now()) >= 0 Then

        Call Command1_Click

    End If

    

End Sub



Private Sub Command1_Click()

    MsgBox "ok"

End Sub

本帖最后由 bcrun 于 2011-01-20 14:04:12 编辑没那么简单
Timer会在一秒内按很多次
你又不能停止
停止了第二天不运行了
所以应该在Timer按后延时至少1秒再重新启动
只有延时1秒可用的方法很多，404 本帖最后由 bcrun 于 2011-01-20 14:35:40 编辑

引用 7 楼 clear_zero 的回复:

Public Class Form1

  Private Sub Form1_Load()
  Timer1.Enabled = True
  End Sub

  Private Sub Timer1_Tick()
  If DateDiff("s", "2011-01-17 22:02:00", Now()) Then
  Timer1.enablea=false
……

谢谢你的方法，还有两个问题想请教下，如果我想再在一个时间段里按下另一个键，是否还要加多一个IF判断呢？我试了，可是没通过！还有能否不指定日期，就指定时间？

引用 9 楼 y_johnny 的回复:

引用 7 楼 clear_zero 的回复:

Public Class Form1

Private Sub Form1_Load()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Tick()
If DateDiff("s", "2011-01-17 22:02:00", Now()) Then
Timer1.en……

谢谢你的方法，还有两个问题想请教下，如果我想再在一个时间段里按下另一个键，是否还要加多一个IF判断呢？我试了，可是没通过！还有能否不指定日期，就指定时间？

平台vb6，修改如下：

Private Sub Form1_Load()

  Timer1.Enabled = True

  End Sub





  Private Sub Timer1_timer()

static isRuned1 as boolean

static isRuned2 as boolean



  If DateDiff("s", "2011-01-17 22:02:00", Now()) and not isRuned1  Then

  SendKeys.Send("1")

  isRuned1 =true 

  End If

  End Sub



  If DateDiff("s", "2011-01-17 12:55:00", Now()) and not isRuned2  Then

  SendKeys.Send("xxxxxxxxxxx")

  isRuned2 =true 

  End If

  End Sub

End sub

又学到一招....

引用 11 楼 dazhi518 的回复:

又学到一招....

就当我没说....

那个SendKeys.send("1")我试了下怎么样参数不可选..怎么回事,,正想学这个东东.. 百度搜索,一大堆

引用 12 楼 dazhi518 的回复:

引用 11 楼 dazhi518 的回复:
又学到一招....

就当我没说....

那个SendKeys.send("1")我试了下怎么样参数不可选..怎么回事,,正想学这个东东..

补充：VB ,  基础类