$QQPID = WinGetProcess("[REGEXPTITLE:^QQ\d+]")
If $QQPID = -1 Then
MsgBox(4096, "Warning", "Check if QQ is running!")
Exit
EndIf
$var = WinList()
For $i = 1 to $var[0][0]
; Only display visble windows that have a title
If $var[$i][0] <> "" And IsVisible($var[$i][1]) Then
If WinGetProcess($var[$i][0]) = $QQPID Then
WinActivate($var[$i][0])
ExitLoop
EndIf
EndIf
Next
Func IsVisible($handle)
If BitAND(WinGetState($handle), 2) Then
Return 1
Else
Return 0
EndIf
EndFunc ;==>IsVisible