1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
| Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassname As String, ByVal lpWindowName As String) As Long
Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
' ShowWindow() Commands
Public Const SW_HIDE = 0
Public Const SW_SHOWNORMAL = 1
Public Const SW_NORMAL = 1
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_MAXIMIZE = 3
Public Const SW_SHOWNOACTIVATE = 4
Public Const SW_SHOW = 5
Public Const SW_MINIMIZE = 6
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNA = 8
Public Const SW_RESTORE = 9
Public Const SW_SHOWDEFAULT = 10
Public Const SW_MAX = 10
'-----------------------------------
Sub Rafraichir_Fenetre(titre_fenetre As String)
Dim hwnd As Long, Fenetre As String
Fenetre = titre_fenetre '
hwnd = FindWindow(vbNullString, Fenetre)
If hwnd = 0 Then Exit Sub
SetForegroundWindow hwnd
'ShowWindow hwnd, SW_SHOW
SendKeys "{F5}", True
End Sub
Sub Main()
Rafraichir_Fenetre ("Monitoring des services critiques - Google Chrome")
Application.Wait (Now + TimeValue("0:00:05"))
Rafraichir_Fenetre ("La meteo des domaines - Google Chrome")
End Sub |
