Page 1 sur 1
[R] Connaitre la fenetre active
Posté : dim. 18 mai 2008 00:48
par bloodwolff
J'aimerais savoir quelques informations svp
1-est-il possible de savoir qu'elle fenetre est active (que se soit nimporte kel fenetre)
Peut-être comme ca
Code : Tout sélectionner
while 1
$nomdelafenetre = (aucne idée comment la trouver)
ACTION A EFFECTUER (pour moi filewrite pour mecrire toute les fenetre qui ont été active) :P
$a = 1
While $a <= 1
if winactive($nomdelafenetre) then
sleep(1)
Else
$a = $a+1
Endif
WEnd
WEnd
Merci de maider a trouver la fenetre active sans rien connaitre sur elle
Re: [..] Connaitre la fenetre active
Posté : dim. 18 mai 2008 11:38
par ani
bonjour,
La réponse à la question est Oui.
Voici un petit bout de code qui renvoie le nom de l'image (exe), son titre et le handle.
en espérant que çà soit çà
Code : Tout sélectionner
$Var = WinList()
ConsoleWrite("Details" & @LF )
For $i = 1 to $Var[0][0]
If $Var[$i][0] <> "" AND IsActive($Var[$i][1]) Then
ConsoleWrite("Nom de l'image = " & _ProcessGetName(WinGetProcess($Var[$i][0], "")) & @LF & _
"Titre de la fenêtre =" & $Var[$i][0] & @LF & "Handle=" & $Var[$i][1] & @LF & @LF)
EndIf
Next
Exit
Func IsActive($handle)
If BitAnd( WinGetState($handle), 8 ) Then
Return 1
Else
Return 0
EndIf
EndFunc
Func _ProcessGetName($i_PID)
If Not ProcessExists($i_PID) Then
SetError(1)
Return ''
EndIf
Local $a_Processes = ProcessList()
If Not @error Then
For $i = 1 To $a_Processes[0][0]
If $a_Processes[$i][1] = $i_PID Then Return $a_Processes[$i][0]
Next
EndIf
SetError(1)
Return ''
EndFunc
Re: [..] Connaitre la fenetre active
Posté : lun. 19 mai 2008 00:44
par bloodwolff
sa a lair bon maisj e vais je vais regarder pluS Tard la jai pas lE temps
merci a toi
PS: je met repondu pour le moment je changerai si sa mArchE pas
Re: [R] Connaitre la fenetre active
Posté : lun. 19 mai 2008 02:48
par bloodwolff
m.... je suis pas fier de moi la -_-, j'ai trouver comment faire et cest tres simple
Ps: ton code donne une chiffre dont je ne connais pas lutiliter :S
Merci quand meme
