Private Sub form_load()   
If exitproc("QQ.exe") Then '检测QQ.exe进程是否存在   
labal1.caption="QQ已运行"   
Else   
labal1.caption="QQ未运行"   
End If   
End Sub  

我就是想让这个程序每隔几秒钟检测一次某个进程
起初我用
Dim 1 as string
while i = 1
````
````
wend
结果是死循环

请问我这个问题怎样解决

[ 本帖最后由 allites 于 2010-4-5 02:37 编辑 ]

不知道。。。。问问

用timer控件，将interval属性设置为你要的秒数，单位为毫秒，1秒的话设为1000.
Private Sub Timer1_Timer()
  form_load
End Sub

可以用timer试试

想第隔几秒就运行一次，当然用Timer

应该用API函数
QQ 308749442

可以用while循环检测，
只是需要在循环里加入doevent，

在一个就是用timer控件。在timer的事件里写入检测代码。

菜鸟刚学,不懂,路过

看不懂   菜鸟

我也不懂