,有什么办法能让我的程序能够隔一段时间自动运行一次,除开用计划任务,和把自已放到启动中哈.
解决方案 »
- 求VB远程获取,更改MySQL数据库及模拟鼠标点击的方法。
- VB数据库小程序 错误 求教
- 50分求助EXECL导表问题!高手请进!~
- 急啊,哪位大虾帮帮忙!
- 例如:在一个文本框中录入代码,如何检测文本框中录入的代码的合法性.如果合法,那么用MSSCRIP控件执行,如果不合法,报错.
- 如果我用msflexgrid绑定data控件,那么当用户点击msflexgrid的某一行的时候,data控件是否会自动定位在对应的这个记录呢?
- 如何写类似工资软件中的让用户自定义字段及公式?
- 如何动态刷新数据?
- 关于托盘--急急
- 装了VB6,怎么找不到水晶报表啊?
- 关于vb捕获摄像头 WM_CAP_DRIVER_CONNECT
- 求教有关消息机制方面的知识
放在批处理里面循环执行
写成一个系统键盘或系统鼠标钩子
HOOK SOCKET API
写成一个屏幕保护程序
手动插入操作系统进程调度表中
在SQL Server的作业中调用
如果是Linux,还可以把自己的程序直接插入操作系统的代码中编译生成一个自己专用的MyLinux系统
timer1.timer事件中static n as integer '要设为静态变量
n=n+1
if n=1800 then
shell app.path+"\你的文件.exe"
n=0
endif
或者用 用变量记住当前时
先在程序开始定义一定全局变量
dim start_time as integer '开始时间
start_time=now(hour)*60*60+now(minute)*60+now(second)
把开始时间换算成秒赋值给start_time在timer1.timer事件中
dim current_time as integer '当前时间
current_time=now(hour)*60*60+now(minute)*60+now(second)static n as integer
n=1 '倍数if (current_time-start_time)>=1800*n <then '时间差大于 1800 3600 5400 7200
shell "你的程序"
n=n+1 '倍数加1
endif有很多办法,看哪种方便,VB现在用的少了,有些函数记不清楚了