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
Modifié en dernier par bloodwolff le lun. 19 mai 2008 00:46, modifié 1 fois.
$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