Question

vb怎样实现某个按钮自动点击

vb窗体上有个按钮command1。同时有个时间部件timer1。设定：
Private Sub Form_Load()
Timer1.Interval = 60000
End Sub
如何让command1在上述时间间隔内自动点击一次？
Timer1.Interval不能超过多少?298秒执行一次按钮点击动作怎样写vb代码

Answer 1

Interval 最大值65535，要实现更长时间，可以这样做：
设置Interval=1000，即一秒钟；定义一个全局变量M，记录分钟值，在Timer事件过程定义一个静态变量，记录秒数：
sub Timer1_Timer()
static n as long
n=n+1
if n>59 then
m=m+1
n=0
end if
’298秒=4分58秒
if m=4 and n>=58 then
command1_Click
m=0
n=0
end if
end sub

追问

应该是Private Sub Timer1_Timer()还是sub Timer1_Timer()。另外：定义一个全局变量M，记录分钟值，在Timer事件过程定义一个静态变量，记录秒数。这个的具体代码怎么写？定义一个全局变量M应该放哪里？

追答

Timer事件可以双击Timer控件自动生成
全局变量定义在窗体模块的开头
Dim m as long
静态变量已经在代码中了，就是：
static n as long
也可以定义成全局变量，作用一样。

Answer 2

1、利用鼠标模拟事件
2、新建工程-----编辑一个按钮和一个文本框和一个定时器
3、在定时器里写每一百毫秒鼠标点击一次
SetCursorPos 500, 500

mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0

mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

Answer 3

计时器 dim a‘定义一个a，a为计时器的时间
if a +60000 then
单击一次按钮
大概就是这样 在上班没VB。。。你自己研究下

Answer 4

双击Timer1，在里面写command1_click

追问

Timer1.Interval不能超过多少?298秒执行一次按钮点击动作怎样写vb代码。好像Timer1.Interval不能等于298000啊

追答

用个计数器

追问

我想让每隔298秒执行一次按钮点击动作，就用Timer1.Interval=298000，提示不行，可能Timer1.Interval有最大数限制。

Answer 5

在timer1的响应时间里面加上方法command1_click()

追问

这个不行的，你测试下

追答

你把command1_click() 方法声明成public然后调用其所在窗体。比如为form1,那就调用form1.command1_click()

我记得VB也是面向对象的啊，这种方法我印象中我用过。

或者这样，你把Command1点击要完成的功能代码都拷贝到Timer1的响应事件里面去就可以了
那样每次时间间隔就都会完成你按钮要完成的功能了