Печать

[at [?]]

Здравствуйте!

Пожалуйста, подскажите, как одновременно или по очереди активировать два окна, у которых одинаковый TITLE и CLASS.

[Viktor1703 [?]]

Код: AutoIt [Выделить]

For $i = 1 To 2
   $iHandle = WinGetHandle("") ;~ Title или Class
   If WinGetState($iHandle) < 15 Then
      WinActivate($iHandle)
   EndIf
Next
 

[at [?]]

Viktor1703, так только одно окно становиться активным.

[CreatoR [?]]

at  [?]

так только одно окно становиться активным

А два окна не могут быть активными одновременно .

[Viktor1703 [?]]

Код: AutoIt [Выделить]

$sList = WinList()

For $i = 0 To $sList[0][0]
   ConsoleWrite($sList[$i][0] & @CRLF)
   If $sList[$i][0] = 'title' Then
      WinActivate($sList[$i][1])
   EndIf     
Next
 

[at [?]]

CreatoR: А два окна не могут быть активными одновременно

Спасибо, понял, а как сделать, чтобы по очереди ...

Viktor1703, так выводиться в консоль весь перечень открытых и скрытых окон (и так тоже: "title" = "моя программа"). Нужные окна при этом остаются неактивными.

[Viktor1703 [?]]

Сомневаюсь, я тестировал скрипт, открыл 2 папки диска E: и сделал активным окно SciTE, запустил скрипт и 2 окна стали активными по очереди, уберите запись

Код: AutoIt [Выделить]

ConsoleWrite($sList[$i][0] & @CRLF)

и в консоль ничего писаться не будет, и что это (и так тоже: "title" = "моя программа"), покажите пример как вы используете?

[madmasles [?]]

at,
Попробуйте так.

Код: AutoIt [Выделить]

$sTitle = '[Title:My Program; Class:AutoIt v3 GUI]'
$aList = WinList($sTitle)
If $aList[0][0] Then
    For $i = 1 To $aList[0][0]
        WinActivate($aList[$i][1])
        $hTemp = WinWaitActive($aList[$i][1], '', 5)
        If $hTemp Then
            MsgBox(64, 'Info', 'Active: ' & $aList[$i][0] & @TAB & $aList[$i][1])
        Else
            MsgBox(16, 'Error', 'No Active: ' & $aList[$i][0] & @TAB & $aList[$i][1])
        EndIf
    Next
Else
    MsgBox(16, 'Error', 'No Windows: ' & $sTitle)
EndIf

[at [?]]

Viktor1703: покажите пример как вы используете?

Код: AutoIt [Выделить]

$sList = WinList()

For $i = 0 To $sList[0][0]
   If $sList[$i][0] = 'Моя программа' Then
      WinActivate($sList[$i][1])
   EndIf      
Next

Добавлено: Февраль 22, 2012, 16:55:28

madmasles: Попробуйте так.

... так работает.

Спасибо всем большое за помощь.

• running-frag
• Serafim
• CredoC
• Александр
• InnI
• script_ru
• Nazgul666
• Pavel
• MockeR
• madmasles
• dwerf
• britanec74
• GenoTIP
• sl131
• eropov
• SummerLeaf
• nowost
• Kaster
• toter
• Nurgazy
• scanfail
• vnebe
• Nelsy
• Khaibit
• illja
• ---Zak---
• centaur
• chydik