请问高手一个问题。

Question

VB如何实现检测进程是否有QQ.EXE。发现有的话设置在10秒后运行form2窗体?

Answer 1

设置两个时间控件timer1.Interval =1000
timer2.Interval =1用timer2检测进程中是否有QQ.EXE
如果发现了，就将 timer1.Enabled=True
定义一个公共变量 dim A AS Integer 
timer1里的代码，每运行一次A=A+1
if a=10 then 
  timer1.enabled=false
  form2.show
end if找进程的代码BAIDU有都是！

Answer 2

QQ的版本不一样,窗口类名未必一样,这个需要用Spy++一个一个看看都是什么

Answer 3

Private Sub Timer1_Timer()
Dim hn As Long
hn = FindWindow(vbNullString, "QQ2009")
If hn Then ……
End Sub