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
1、利用鼠标模拟事件
2、新建工程-----编辑一个按钮和一个文本框和一个定时器
3、在定时器里写每一百毫秒鼠标点击一次
SetCursorPos 500, 500
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
计时器 dim a‘定义一个a,a为计时器的时间
if a +60000 then
单击一次按钮
大概就是这样 在上班没VB。。。你自己研究下
双击Timer1,在里面写command1_click
在timer1的响应时间里面加上方法command1_click()