A voir également:
- Lorsque vous diffusez des annonces sur un moteur de recherche, si votre enchère est identique à celle de votre concurrent et que votre niveau de qualité est supérieur, où votre publicité s'affichera-t-elle par rapport à la sienne ?
- Modele site internet - Conseils pratiques -PHP
- Nombre de visite d un site internet - Forum PHP
- Flashmail club internet - Forum VB.NET
- Vba internet explorer ✓ - Forum Visual Basic 6
- Detection objet camera ✓ - Forum C# / .NET
1 réponse
Salut
En utilisant l'API win 32 comme ceci :
d'abord tu declares dans un mod
Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Public Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Public Const GW_HWNDFIRST = 0
Public Const GW_HWNDNEXT = 2
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
CurrWnd = GetWindow(tafenetre.hwnd,GW_HWNDFIRST)
While CurrWnd <> 0
Parent = GetParent(CurrWnd)
Length = GetWindowTextLength(CurrWnd)
NomTache = Space$(Length + 1)
Length = GetWindowText(CurrWnd, NomTache, Length + 1)
NomTache = Left$(NomTache, Len(NomTache) - 1)
If Length <> 0 Then
If NomTache <> tafenetre.Caption And NomTache <> "" Then
If IsWindowVisible(CurrWnd) Then
taille_tache=len(nom_tache)
if mid (nom_tache,taille_tache-18)="Internet Explorer" then
msgbox ("Internet explorer lance")
end if
End If
End If
End If
CurrWnd = GetWindow(CurrWnd, GW_HWNDNEXT)
DoEvents
Wend
j'espere que ca t'ira...
A++
ShadeBob
En utilisant l'API win 32 comme ceci :
d'abord tu declares dans un mod
Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Public Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Public Const GW_HWNDFIRST = 0
Public Const GW_HWNDNEXT = 2
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
CurrWnd = GetWindow(tafenetre.hwnd,GW_HWNDFIRST)
While CurrWnd <> 0
Parent = GetParent(CurrWnd)
Length = GetWindowTextLength(CurrWnd)
NomTache = Space$(Length + 1)
Length = GetWindowText(CurrWnd, NomTache, Length + 1)
NomTache = Left$(NomTache, Len(NomTache) - 1)
If Length <> 0 Then
If NomTache <> tafenetre.Caption And NomTache <> "" Then
If IsWindowVisible(CurrWnd) Then
taille_tache=len(nom_tache)
if mid (nom_tache,taille_tache-18)="Internet Explorer" then
msgbox ("Internet explorer lance")
end if
End If
End If
End If
CurrWnd = GetWindow(CurrWnd, GW_HWNDNEXT)
DoEvents
Wend
j'espere que ca t'ira...
A++
ShadeBob