Public s_outlook_exe As String
Public s_your_prog As String
Public b1 As Boolean
Public wmi
Private Sub Form_Load()
Set wmi = GetObject("winmgmts:")
s_outlook_exe = "outlook.exe" 'заменить на имя exe аутглюка
s_your_prog = "winmine.exe" 'заменить на путь к проге, которую надо запустить
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Dim oQ, o
Set oQ = wmi.ExecQuery("select * from Win32_Process")
Dim b As Boolean
For Each o In oQ
If LCase$(o.Name) = LCase$(s_outlook_exe) Then
b = True
End If
Next
If b Then
If b1 Then
Shell s_your_prog, vbNormalFocus
b1 = False
End If
Else
b1 = True
End If
End Sub
Сейчас этот форум просматривают: Google-бот и гости: 44