在VB中如何实现程序启动时会自动按下按钮进行数据的发送

Question

比如一个程序有三个按钮,command1、command2、command3，那怎样用VB实现这个程序一旦启动，它会自动按顺序点击这三个按钮进行数据的发送，这三个按钮被按下的时间间隔大概五秒钟，而不是同时被按下。
麻烦各位老师啦谢谢哦

Answer 1

有两个解决办法：
１、调系统函数，自动移动鼠标至按纽，并自动单击；
２、在程序启动时，依次调用三个command_button对应的程序，也可以实现。

Answer 2

只要你的按钮里执行的都是同步程序，那在Form_Load事件里依次调用command1_click、command2_click、command3_click就可以了

Answer 3

再配上Timer就可以非同步了,也可以判断系统时间

Answer 4

'如果要精确点则改用 GetTickCount的API
'添加Command1 Command2 Command3Dim starttm&, i%
Private Sub Form_Activate()
   Command1_Click
   starttm = Timer
   Do
      DoEvents
      If Timer >= starttm + 5 Then
         If i = 0 Then
            Command2_Click
            starttm = Timer: i = i + 1
         Else
            Command3_Click
            Exit Do
         End If
      End If
   Loop
End Sub
Private Sub Command1_Click()
   Print "按纽1被按下----" & Time$
End Sub
Private Sub Command2_Click()
   Print "按纽2被按下----" & Time$
End Sub
Private Sub Command3_Click()
   Print "按纽3被按下----" & Time$
End Sub

Answer 5

呵呵你干脆用 Sleep算了,但是Sleep 会让你启动时有死机的感觉,要不然使用Timer控件也行.

Answer 6

cmb666老师,你用Timer控件的那种方法启动时也会死机哦

Answer 7

Dim i%
Private Sub Form_Load()
   Timer1.Interval = 5000
End Sub
Private Sub Form_Activate()
   Command1_Click
   Timer1.Enabled = True
End Sub
Private Sub Command1_Click()
   Print "按钮1被按下----" & Time$
End Sub
Private Sub Command2_Click()
   Print "按钮2被按下----" & Time$
End Sub
Private Sub Command3_Click()
   Print "按钮3被按下----" & Time$
End SubPrivate Sub Timer1_Timer()
   If i = 0 Then
      Command2_Click
      i = 1
   Else
      Command3_Click
      Timer1.Enabled = False
   End If
End Sub

Answer 8

CMB666老师,真不好意思,自己对timer这个控件不熟悉,查了资料还是有点不明白它的使用,你上面的程序是可以实现command1被按下5秒之后command2就被按下,但是command3就不是在command2被按下5秒后按下.
因为我是想实现command1,command2,command3这三个控件每隔5秒钟被启动.

Answer 9

cmb老师,我做出来了,是我搞错了,太谢谢你啦

Answer 10

Timer控件是VB自带的,  你可以不用了解它太多,你只要知道:1.Enabled...动作或不动作2.Interval..间隔时间(注意,第一次刚开始时,你没啥感觉,因为要等你设定的5秒后才会开始每隔5秒动作.)8F代码我不知道你是怎么用的?? 你看看下图的时间吧.