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 编辑 ]

谢谢 各位 问题已解决