Нет данных в Basic Control Info и не получить текст окна.

[PACHOM]

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

Есть на работе приложение, которые открывается в Internet Explorer. Мне хотелось бы в форму, отображаемую в этом окне, записать данные, а то руками долго очень.
Данные про это окно выдаются не все: в "Basic Control Info" пусто. Единственное что получается получить, так это класс самого окна - "Internet Explorer_Server"
Есть способ работать с такими окнами - http://autoit-script.ru/index.php/topic,5157.0.html.
Но при запуске скрипта выдаётся ошибка ... Может есть ещё что-нибудь для таких случаев - функции ... методы

ПС: я пробовал с помощью

_IEGetObjServer($a_ECW)

получить данные из аналогичного приложения (чат Lync) и всё получилось, но в этом случае был известен Class отображаемый в "Basic Control Info".

 

[Garrett]

PACHOM [?]

Есть на работе приложение

Что за зверь?

которые открывается в Internet Explorer

Ну, тогда работайте напрямую с IE.

Но при запуске скрипта выдаётся ошибка

Мы её не видим ;)

 

[PACHOM]

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

Программа Aldata Solution (так называемый G.O.L.D).
Скрипт в момент подключения выдаёт ошибку.
Для получения кода страницы использую скрипт:

#Include <WinAPIEx.au3>
#include <IE.au3>

WinActivate("G.O.L.D")
$hWnd = WinGetHandle("G.O.L.D")
$aECW = _WinAPI_EnumChildWindows($hWnd) 
$oIE = _IEGetObjServer($aECW)
If @error Then Exit

; Далее работаем как с обычным объектом.
; Все функции из IE.au3 UDF будут благополучно работать :)

ConsoleWrite(_IEDocReadHTML($oIE))

Func _IEGetObjServer($a_ECW)

    Local $o_IES
    If Not IsArray($a_ECW) Then _
        Return SetError(2, 0, 0)
    For $i = 1 To $a_ECW[0][0]
        If $a_ECW[$i][1] = "Internet Explorer_Server" Then
            $o_IES = __IEControlGetObjFromHWND($a_ECW[$i][0])
            If IsObj($o_IES)Then
                Return SetError(0, 0, $o_IES)
            EndIf
        EndIf
    Next
    Return SetError(1, 0, 0)
EndFunc ;==>_IEGetObjServer

 

[Garrett]

#Include <WinAPIEx.au3>
#Include <Array.au3>

WinActivate("G.O.L.D")
$hWnd = WinGetHandle("G.O.L.D")
$aECW = _WinAPI_EnumChildWindows($hWnd)
If Not IsArray($aECW) Then
	ConsoleWrite('--> WinAPIEx.au3 ERROR ('& _WinAPI_GetLastError() & ') from function _WinAPI_EnumChildWindows: '& _WinAPI_GetLastErrorMessage())
EndIf
_ArrayDisplay($aECW)

Что показывает этот код?

 

[PACHOM]

К сожалению ops: я смогу ответить только 14 вечером: у меня график такой.

ПС: спасибо что уделяете время. :gathering:

 

[PACHOM]

Попробовал на работе - ошибок не выдает, но и массив не выводится на экран :(

 

[Garrett]

PACHOM [?]

ошибок не выдает

@error

То есть ноль? :blink:
Странно.

 

[PACHOM]

Данная функция

_ArrayDisplay($aECW)

вообще не появляется :(

 

[Garrett]

Screenshot окна программы в момент работы можете выложить?
P.S. При активном окне программы Alt+PrintScreen

 

[PACHOM]

Есть ли возможность выслать фото лично Вам на почту, чтобы ко мне никто на работе не придрался?

 

[Garrett]

PACHOM [?]

чтобы ко мне никто на работе не придрался?

Ну, тогда хоть отчёт утилиты CV.exe или Au3Info.exe прикрепите

 

[PACHOM]

Вот высылаю

 

[Garrett]

Так попробуйте..

#Include <WinAPIEx.au3>
#Include <Array.au3>

$sTitle = '[REGEXPTITLE:G.O.L.D]'
WinActivate($sTitle)
$hWnd = WinGetHandle($sTitle)
$aECW = _WinAPI_EnumChildWindows($hWnd)
If @error Then
    ConsoleWrite('--> WinAPIEx.au3 ERROR ('& _WinAPI_GetLastError() & ') from function _WinAPI_EnumChildWindows: '& _WinAPI_GetLastErrorMessage())
	Exit
EndIf
_ArrayDisplay($aECW)

 

[PACHOM]

Нет ничего... все как в первый раз :(

 

[Garrett]

Окно вообще находиться, активируется?

 

[PACHOM]

Да, окно находится и активируется если запускать не правой кнопкой мыши по скрипту, а через Run Script.exe

 

[PACHOM]

Я заметил что при направлении сочетания клавиш данной программе, то они все преобразуются в верхний регистр ... может быть это важно ... А вообще сочетания клавиш не проходят ...
При загрузке используются расширения jar.