Что нового
Автор:
Фильтры

Отлов заголовка Окна.

Z

ZanMax

Тестер
Сообщения
120
Репутация
5
Всем привет.
Давно интересен вопрос как ловить заголовок окна ?
Хочу написать прогу для отлога заголовка окон ИЕ,Опера,МОзила.
КАк возможно получить такую инфу :smile: Сам тестил много способов но ничего.

Примерно так :
Код: 
if ProcessExists("IE.EXE") Then
	 FileWriteLine("LOG.txt",ЗАГОЛОВОК)

Хочу наблюдать какой пользователь по каких сайтах лазит.
Понимаю что возможн реализовать на стороне ПРОКСИ сервера.
Но всетаки ...
 
Belfigor

Belfigor

Модератор
Локальный модератор
Сообщения
3,608
Репутация
941
Re: [Script] Отлов заголовка Окна.

WinGetTitle("[active]")
Вернет заголовок текущего активного окна.
 
CreatoR

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,673
Репутация
2,486
Re: [Script] Отлов заголовка Окна.

ZanMax « Создано: Сегодня в 10:08:09 »
Хочу написать прогу для отлога заголовка окон ИЕ,Опера,МОзила
Нажмите, чтобы раскрыть...
Для этих трёх так примерно:

Код: 
$sIE_Title = WinGetTitle("[CLASS:IEFrame;REGEXPTITLE:.*?(Microsoft Internet Explorer|).*?]")
$sOpera_Title = WinGetTitle("[CLASS:OpWindow;REGEXPTITLE:.*?(Opera|).*?]")
$sFF_Title = WinGetTitle("[CLASS:MozillaUIWindowClass;REGEXPTITLE:.*?(Mozilla Firefox|).*?]")

ConsoleWrite($sFF_Title & @CRLF)
 
Автор
Z

ZanMax

Тестер
Сообщения
120
Репутация
5
Спасибо большое то что нужно.
А то по цыклу гонять и писать заголовки всех активных окон как-то напгя да и лог ростет очень быстро.

Теперь вопроси почему Chrome не выдает свой заголовок :

Код: 
$sChrome_Title=WinGetTitle("[CLASS:Chrome_WidgetWin_0;REGEXPTITLE:.*?(Google Chrome|).*?]")

MsgBox(0,"",$sChrome_Title);


Спасибо.
 
CreatoR

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,673
Репутация
2,486
Автор
Z

ZanMax

Тестер
Сообщения
120
Репутация
5
=( Chrome продолжает молчать. Не хочет показать заголовок окна.
Просто возвращает пустой MsgBox()
 
Yashied

Yashied

Модератор
Команда форума
Глобальный модератор
Сообщения
5,379
Репутация
2,724
Я специально не отвечал в этом топике, надеялся, что кто-нибудь все же ответит на этот вопрос, но...

Google Chrome создает одно или несколько скрытых окон (так делают большинство программ), а функция WinGetTitle() возвращает первое подходящее под заданные условия окно (заголовок) в Z-последовательности. Используй WinList() для поиска всех окон данного класса и затем отсей невидимые. Что-то типо этого:

Код: 
$List = WinList('[CLASS:Chrome_WidgetWin_0]')
For $i = 1 To $List[0][0]
    If BitAND(WinGetState($List[$i][1]), 2) Then
        ConsoleWrite('Handle: ' & $List[$i][1] & '   ' & 'Title: ' & $List[$i][0] & @CR)
    EndIf
Next


:smoking:
 
CreatoR

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,673
Репутация
2,486
Да да, я давно как то делал функцию _WinFuncsWrapper():

Код: 
$sTitle = _WinFuncsWrapper("WinGetTitle", "[CLASS:Chrome_WidgetWin_0]")
ConsoleWrite($sTitle & @CRLF)

Func _WinFuncsWrapper($sFuncName, $sTitle, $sText="", $iOnlyVisible=1, $vParam1=0, $vParam2=0, $vParam3=0, $vParam4=0, $vParam5=0)
	If $iOnlyVisible = 1 Then
		If $sText <> "" Then
			$aWinList = WinList($sTitle, $sText)
		Else
			$aWinList = WinList($sTitle)
		EndIf
		
		For $i = 1 To $aWinList[0][0]
			If BitAND(WinGetState($aWinList[$i][1]), 2) = 2 Then
				$sTitle = $aWinList[$i][1]
				ExitLoop
			EndIf
		Next
	EndIf
	
	Switch $sFuncName
		Case "WinActivate"
			Return WinActivate($sTitle, $sText)
		Case "WinActive"
			Return WinActive($sTitle, $sText)
		Case "WinClose"
			Return WinClose($sTitle, $sText)
		Case "WinExists"
			Return WinExists($sTitle, $sText)
		Case "WinFlash"
			Return WinFlash($sTitle, $sText)
		Case "WinGetClassList"
			Return WinGetClassList($sTitle, $sText)
		Case "WinGetClientSize"
			Return WinGetClientSize($sTitle, $sText)
		Case "WinGetHandle"
			Return WinGetHandle($sTitle, $sText)
		Case "WinGetPos"
			Return WinGetPos($sTitle, $sText)
		Case "WinGetProcess"
			Return WinGetProcess($sTitle, $sText)
		Case "WinGetState"
			Return WinGetState($sTitle, $sText)
		Case "WinGetText"
			Return WinGetText($sTitle, $sText)
		Case "WinGetTitle"
			Return WinGetTitle($sTitle, $sText)
		Case "WinKill"
			Return WinKill($sTitle, $sText)
		Case "WinList"
			Return WinList($sTitle, $sText)
		Case "WinMove"
			Return WinMove($sTitle, $sText, $vParam1, $vParam2, $vParam3, $vParam4, $vParam5)
		Case "WinSetOnTop"
			Return WinSetOnTop($sTitle, $sText, $vParam1)
		Case "WinSetState"
			Return WinSetState($sTitle, $sText, $vParam1)
		Case "WinSetTitle"
			Return WinSetTitle($sTitle, $sText, $vParam1)
		Case "WinSetTrans"
			Return WinSetTrans($sTitle, $sText, $vParam1)
		Case "WinWait"
			Return WinWait($sTitle, $sText, $vParam1)
		Case "WinWaitActive"
			Return WinWaitActive($sTitle, $sText, $vParam1)
		Case "WinWaitClose"
			Return WinWaitClose($sTitle, $sText, $vParam1)
		Case "WinWaitNotActive"
			Return WinWaitNotActive($sTitle, $sText, $vParam1)
	EndSwitch
	
	Return SetError(1, 0, -1)
EndFunc
 
B

bistriy

Новичок
Сообщения
22
Репутация
0
Re: Отлов заголовка Окна

Почему вы все не правильно пишите : [CLASS:Chrome_WidgetWin_0].
Надо ведь так писать везде : [CLASS:Chrome_WidgetWin_1]
Работает только так.
Код: 
$sTitle = _WinFuncsWrapper("WinGetTitle", "[CLASS:Chrome_WidgetWin_1]")
ConsoleWrite($sTitle & @CRLF)
 
Func _WinFuncsWrapper($sFuncName, $sTitle, $sText="", $iOnlyVisible=1, $vParam1=0, $vParam2=0, $vParam3=0, $vParam4=0, $vParam5=0)
    If $iOnlyVisible = 1 Then
        If $sText <> "" Then
            $aWinList = WinList($sTitle, $sText)
        Else
            $aWinList = WinList($sTitle)
        EndIf
       
        For $i = 1 To $aWinList[0][0]
            If BitAND(WinGetState($aWinList[$i][1]), 2) = 2 Then
                $sTitle = $aWinList[$i][1]
                ExitLoop
            EndIf
        Next
    EndIf
   
    Switch $sFuncName
        Case "WinActivate"
            Return WinActivate($sTitle, $sText)
        Case "WinActive"
            Return WinActive($sTitle, $sText)
        Case "WinClose"
            Return WinClose($sTitle, $sText)
        Case "WinExists"
            Return WinExists($sTitle, $sText)
        Case "WinFlash"
            Return WinFlash($sTitle, $sText)
        Case "WinGetClassList"
            Return WinGetClassList($sTitle, $sText)
        Case "WinGetClientSize"
            Return WinGetClientSize($sTitle, $sText)
        Case "WinGetHandle"
            Return WinGetHandle($sTitle, $sText)
        Case "WinGetPos"
            Return WinGetPos($sTitle, $sText)
        Case "WinGetProcess"
            Return WinGetProcess($sTitle, $sText)
        Case "WinGetState"
            Return WinGetState($sTitle, $sText)
        Case "WinGetText"
            Return WinGetText($sTitle, $sText)
        Case "WinGetTitle"
            Return WinGetTitle($sTitle, $sText)
        Case "WinKill"
            Return WinKill($sTitle, $sText)
        Case "WinList"
            Return WinList($sTitle, $sText)
        Case "WinMove"
            Return WinMove($sTitle, $sText, $vParam1, $vParam2, $vParam3, $vParam4, $vParam5)
        Case "WinSetOnTop"
            Return WinSetOnTop($sTitle, $sText, $vParam1)
        Case "WinSetState"
            Return WinSetState($sTitle, $sText, $vParam1)
        Case "WinSetTitle"
            Return WinSetTitle($sTitle, $sText, $vParam1)
        Case "WinSetTrans"
            Return WinSetTrans($sTitle, $sText, $vParam1)
        Case "WinWait"
            Return WinWait($sTitle, $sText, $vParam1)
        Case "WinWaitActive"
            Return WinWaitActive($sTitle, $sText, $vParam1)
        Case "WinWaitClose"
            Return WinWaitClose($sTitle, $sText, $vParam1)
        Case "WinWaitNotActive"
            Return WinWaitNotActive($sTitle, $sText, $vParam1)
    EndSwitch
   
    Return SetError(1, 0, -1)
EndFunc
 
Вам необходимо войти или зарегистрироваться, чтобы здесь отвечать.
Автор темы Похожие темы Форум Ответы Дата
L Отловить ошибку Общие вопросы по AutoIt 4
A Помогите отловить плавающую ошибку (BmpSearch.au3) Общие вопросы по AutoIt 4
D Отловить окно копирования файлов (OperationStatusWindow) Общие вопросы по AutoIt 1
zalola181 отловить и кликнуть по ссылке в ютубе Стол заказов 0
zalola181 отлов окна Стол заказов 0
Похожие темы
Отловить ошибку
Помогите отловить плавающую ошибку (BmpSearch.au3)
Отловить окно копирования файлов (OperationStatusWindow)
отловить и кликнуть по ссылке в ютубе
отлов окна
Верх