Недавние сообщения

Страницы: 1 ... 8 9 [10]
91
еще раз смотрим в справку, каким по счету идет параметр видимости
92
Добрый вечер имеется рабочая часть кода, но пытаюсь открыть файл в режиме невидимости. Объясните почему не работает, файл открывается в обычном режиме, аргументы вроде как указал верно, где я ошибся?

#include <Excel.au3>
$fVisible = 0
Local $oExcel = _Excel_Open()
Local $oWorkbook = _Excel_BookOpen($oExcel,@ScriptDir & "\main.xlsm",$fVisible);
If @error Then
    _Excel_Close($oExcel)
    Exit
EndIf
93
Дни рождения / С днём рождения XpycT!
« Последний ответ от Представитель Сообщества Отправлен Июнь 15, 2018, 01:03:00 »
От имени всего Русского сообщества AutoIt поздравляем Вас XpycT с днём рождения!



Цитировать
Пусть все мечты исполнятся,
Пусть все желанья сбудутся,
Пусть радости запомнятся,
А горести забудутся.

Здоровье будет крепкое,
В делах всегда согласие,
Любовь навеки верная —
Без ссор и разногласия.

Зарплата только вовремя,
Стабильная, высокая.
Работа будет лёгкая
И не совсем далёкая.

Пусть жизнь Вам дарит самые
Прекрасные мгновения.
Желаем только радости
И счастья, с днем рождения!
94
В предыдущем сообщение, см. выше


Добавлено: Июнь 14, 2018, 23:56:46
Попрошу Tempo выложить, поставлю как лучшее сообщение!
95
Задача выполнена и тема закрыта. Огромное спасибо Tempo, его усилиями взлетел скрипт так как я и хотел изначально. Честно заработанная тысяча будет так же отправлена в ближайшее время) Работающий код выкладываю ниже

#include <GUIToolbar.au3>
Local $sFile = "C:\Users\User\Desktop\abby\123.xls"
Local $sTitle = "[TITLE:ABBYY Hot Folder; CLASS:HotFolder14MainWindow]"
Local $iCommandID = 41157

Local $sExe = "HotFolder.exe"
Local $sPathExe = @ProgramFilesDir & "\ABBYY FineReader 14"

Local $aProcList = ProcessList($sExe)
If Not @error Then
    For $i = 1 To $aProcList[0][0]
        ProcessClose($aProcList[$i][1])
    Next
EndIf
Local $iPID = Run($sPathExe & "\" & $sExe, "", @SW_HIDE)

Local $hWnd = WinWait($sTitle), $hToolbar, $hListView
Do
    Sleep(10)
    $hListView = ControlGetHandle($hWnd, "", "[CLASS:SysListView32; INSTANCE:1]")
Until $hListView And ControlCommand($hWnd, "", $hListView, "IsEnabled")
Do
    Sleep(10)
    $hToolbar = ControlGetHandle($hWnd, "", "[CLASS:ToolbarWindow32; INSTANCE:2]")
Until $hToolbar And ControlCommand($hWnd, "", $hToolbar, "IsEnabled")
ControlListView($hWnd, "", $hListView, "Select", 0, ControlListView($hWnd, "", $hListView, "GetItemCount", 0) - 1)
Local $tRect = _GUICtrlToolbar_GetButtonRectEx($hToolbar, $iCommandID)
Local $tPoint = _WinAPI_PointFromRect($tRect)
ControlClick($hWnd, "", $hToolbar, "left", 1, $tPoint.X, $tPoint.Y)

Do
    Sleep(10)
Until FileExists($sFile)
Sleep(2000)
ProcessClose($iPID)
96
Общие вопросы по AutoIt / Re: бесконечный цикл нажатия клавиш с задержкой
« Последний ответ от Suicide_Loser Отправлен Июнь 14, 2018, 21:09:34 »
Есть     что    то     подобное,    только      для   2018   года?
97
Общие вопросы по AutoIt / Re: ListView Перемещение строк Drag-and-drop
« Последний ответ от Tempo Отправлен Июнь 14, 2018, 14:18:57 »
pvnn, этот UDF и есть обработчик сообщений так что вам нужно редактировать именно его. Какие именно сообщения он обрабатывает вы можете посмотреть в самой функции _GUIListViewEx_MsgRegister()


Добавлено: Июнь 14, 2018, 14:27:18
Но так как конкретных целей вы не озвучили может быть будет достаточно функций что идут в наборе. Например установить клавишу редактирования можно с помощью _GUIListViewEx_SetEditKey
98
Общие вопросы по AutoIt / Re: ListView Перемещение строк Drag-and-drop
« Последний ответ от pvnn Отправлен Июнь 14, 2018, 14:04:41 »
Tempo, а как данную UDF подружить с WM_NOTIFY:
Например, помимо drag and drop, я захочу отследить другие события, например нажатие пр.клавиши мыши итд...
Как только я делаю:
Код: AutoIt [Выделить]
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")

drag and drop перестает работать


(нажмите для показа/скрытия)
99
Общие вопросы по AutoIt / Re: DLL и утечка памяти
« Последний ответ от Tempo Отправлен Июнь 14, 2018, 12:16:00 »
joker2d, что вам мешает не сохранять скриншот в файл, а работать с полученным битмапом с помощью GDI+?

Пример
Код: AutoIt [Выделить]
#include <GDIPlus.au3>
#include <ScreenCapture.au3>

Run("notepad.exe")
Local $hWnd = WinWaitActive("[CLASS:Notepad]"), $sFile = @ScriptDir & "\Test.png"
_GDIPlus_Startup()

Local $hHBMP = _ScreenCapture_CaptureWnd("", $hWnd)
Local $hBMP = _GDIPlus_BitmapCreateFromHBITMAP($hHBMP)
_WinAPI_DeleteObject($hHBMP)
Local $iW = _GDIPlus_ImageGetWidth($hBMP), $iH = _GDIPlus_ImageGetHeight($hBMP)

Local $hIA = _GDIPlus_ImageAttributesCreate()
Local $tColorMatrix = _GDIPlus_ColorMatrixCreateGrayScale()
_GDIPlus_ImageAttributesSetColorMatrix($hIA, 0, True, $tColorMatrix)

Local $hResizeBMP = _GDIPlus_BitmapCreateFromScan0($iW / 2, $iH / 2, $GDIP_PXF08INDEXED)
$hGraphics = _GDIPlus_ImageGetGraphicsContext($hResizeBMP)
_GDIPlus_GraphicsDrawImageRectRect($hGraphics, $hBMP, 0, 0, $iW, $iH, 0, 0, $iW / 2, $iH / 2, $hIA)
_GDIPlus_ImageSaveToFile($hResizeBMP, $sFile)

_GDIPlus_ImageDispose($hBMP)
_GDIPlus_ImageDispose($hResizeBMP)
_GDIPlus_ImageAttributesDispose($hIA)
_GDIPlus_Shutdown()
WinClose($hWnd)
ShellExecute($sFile)
 

100
Общие вопросы по AutoIt / Re: DLL и утечка памяти
« Последний ответ от joker2d Отправлен Июнь 14, 2018, 08:45:23 »
Понятно значит проблема не в AutoIt
Наверно буду делать вызов скриншота из внешнего exe c помощью RunAsWait и прописывать хендл окна в тхт  чтобы exe его прочитал

А в AutoIt кроме
_ScreenCapture_CaptureWnd
нельзя ничем сделать скрин ? нужно чтобы скрин был маленького размера с чернобелыми цветами, в _ScreenCapture_CaptureWnd нельзя установить количество цветов
Страницы: 1 ... 8 9 [10]