[yukko]

Подскажите пожалуйста.
Как с помощью AutoIt получить информацию из графического приложения в котором AutoIt Window Info ничего не опознает кроме самого окна приложения. Все внутри окна нарисовано, написано и работает автономно. Хочу написать бот для некоторых манипуляций в онлайн игре.

[Creat0R]

yukko,

Как с помощью AutoIt получить информацию из графического приложения в котором AutoIt Window Info ничего не опознает кроме самого окна приложения

Это весьма широкий вопрос - информация бывает разная, что именно требуется?

[Diamond]

Как-то я задавал вопрос по поводу перетаскивания окна за форму ...недавно эксперементировал с GUIRegisterMsg() и совешенно случайно обнаружил способ, думаю это хорошая замена для стиля $GUI_WS_EX_PARENTDRAG:

Код:

#include <GuiConstants.au3>
Global Const $WM_SYSCOMMAND  = 0x0112
Global Const $WM_LBUTTONDOWN = 0x0201
$HWnd = GUICreate("DRAG_COMMAND",240,180,-1,-1,$WS_OVERLAPPEDWINDOW)
GUIRegisterMsg($WM_LBUTTONDOWN,"DRAG_COMMAND")
GUISetState()

While 1
   $msg = GUIGetMsg(0)
   Switch $msg
      Case $GUI_EVENT_CLOSE
         Exit
   EndSwitch
WEnd

Func DRAG_COMMAND($HWnd,$command,$wParam,$lParam)
   If BitAND(WinGetState($HWnd),32) Then Return
   DllCall("user32.dll","long","SendMessage","hwnd",$HWnd,"int",$WM_SYSCOMMAND,"int",0xF009,"int",0)
EndFunc

[Creat0R]

Diamond,
Можно ещё так..

Код:

#include <GuiConstants.au3>

Global Const $WM_NCHITTEST = 0x0084
Global $GUI = GuiCreate("Drag using any place on GUI - Demo", -1, -1, -1, -1, $WS_OVERLAPPEDWINDOW)

GUIRegisterMsg($WM_NCHITTEST, "WM_NCHITTEST")

GUISetState()

While 1
    $Msg = GUIGetMsg()
    Switch $Msg
        Case -3
            Exit
    EndSwitch
WEnd

Func WM_NCHITTEST($hWnd, $iMsg, $iwParam, $ilParam)
    If $hWnd = $GUI And $iMsg = $WM_NCHITTEST Then
        Local $id = _API_DefWindowProc($hWnd, $iMsg, $iwParam, $ilParam)
        If $id = 1 Then
            Return 2
        Else
            Return $id
        EndIf
    EndIf
EndFunc

Func _API_DefWindowProc($hWnd, $iMsg, $iwParam, $ilParam)
    Local $aResult
    $aResult = DllCall("User32.dll", "int", "DefWindowProc", "hwnd", $hWnd, "int", $iMsg, "int", $iwParam, "int", $ilParam)
    Return $aResult[0]
EndFunc

Вопрос только в том, какой метод болшье использует ресурсов, ведь в твоём примере используется Dll'ка (посылая сообщения) при каждом нажатии мышки... а в моём примере при движении мышки ...

[Maza Faka]

Хочу написать скрипт со "сфетофором", что бы при копировании файла отображался прогресс-бар, но почему-то функция AdlibEnable() начинает работать после того как скопируется файл, что я делаю не так:

Код:

Dim $source = "d:\Video\Films\Адреналин.avi", $dest = "c:\Адреналин.avi", $i = 0
ProgressOn("Please wait...", "Now copying file", "", -1, -1, 16)
AdlibEnable("Rename", 500)

FileCopy($source, $dest, 1)

AdlibDisable()
ProgressSet(100, "Done")
Sleep(100)
ProgressOff()

Func Rename()
    $i += 1
    If $i = 100 Then $i = 0
        ProgressSet($i, $i & " percent")
    EndFunc

[Creat0R]

Maza Faka,

Хочу написать скрипт со "сфетофором", что бы при копировании файла отображался прогресс-бар

Тут нужно использовать либо _CallBack функции, либо ещё один скрипт (потому как функции типа FileCopy() останавливают выполнение всего скрипта на момент копирования), но проблема в другом - Как определить сколько уже скопировалось..
Если требуется просто "голый" светофор, тогда будет достаточно вышеупомянутых действии ....

Код:

Dim $source = "d:\Video\Films\Адреналин.avi", $dest = "c:\Адреналин.avi"

$DummyGui = GUICreate("#_Dummy_Gui_#")

$ProgressStr = '#NoTrayIcon' & @CRLF & _
    'ProgressOn("Please wait...", "Now copying file", "", -1, -1, 16)' & @CRLF & _
    'Dim $i = 0' & @CRLF & _
    'While WinExists(Hwnd(' & $DummyGui & '))' & @CRLF & _
    '   $i += 1' & @CRLF & _
    '   If $i = 100 Then $i = 0' & @CRLF & _
    '   ProgressSet($i, $i & " percent")' & @CRLF & _
    '   Sleep(200)' & @CRLF & _
    'Wend' & @CRLF & _
    'ProgressSet(100, "Done")' & @CRLF & _
    'Sleep(1000)' & @CRLF & _
    'ProgressOff()'

FileWrite(@TempDir & "\Temp_au3_Script.tmp", $ProgressStr)

Run(@AutoItExe & ' /ErrorStdOut /AutoIt3ExecuteScript "' & @TempDir & '\Temp_au3_Script.tmp"')

FileCopy($source, $dest)
GUIDelete($DummyGui)

FileDelete(@TempDir & "\Temp_au3_Script.tmp")

[yukko]

Искомая информация - строка, состоящая из английских букв и пробелов (название объекта). Строка известна, может быть такой и никакой другой. Нужно идентифицировать обьект. Так же есть строка поиска, в которую можно поместить название объекта, нажать на кнопку и произойдет поиск обьектов, которые после этого все равно нужно идентифицировать. Обьект - статический прямоугольник. Название в верхней части прямоугольника, по высоте текст приблизительно 1/15 от высоты прямоугольника.

[Creat0R]

yukko,
Нужно видеть приложение (сомневаюсь что видно только заголовок окна, возможно текст элементов скрытый?), а по сути, функции ControlGetText, ControlSetText, ControlCommand и т.п помогут в этой задаче.

[yukko]

Сами обьекты отсканированные/нарисованы, но если есть поиск, то наверное текст где то в клиентской части есть. Утилита не видит ничего кроме заголовка окна. Подскажите пожалуйста где можно поискать текст ?

[Creat0R]

yukko

Сами обьекты отсканированные/нарисованы

Это изображение? Тогда будет сложновато, нужно задействовать OCR.. на оф. форуме кажется есть решение с использованием Microsoft Document Imaging (нужен Office 2003 как минимум), но распознаёт далеко не все виды изображении.

Приведи хотябы снимок приложения