Добрый День
я не знаю куда уже копать прошу вас помочь есть программа СКД Guard Light
код работает и выполняет функции но не работает на RDP сервере под администратором через планировщик задач
exe показывает что запущен и не чего не происходит
я не знаю куда уже копать прошу вас помочь есть программа СКД Guard Light
код работает и выполняет функции но не работает на RDP сервере под администратором через планировщик задач
exe показывает что запущен и не чего не происходит
Код:
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <WinAPI.au3>
#include <Date.au3>
AutoItSetOption ('MouseCoordMode', 0)
Run("C:\Program Files (x86)\RF Enabled\Guard Light\GuardLight.exe")
WinWaitActive("Guard Light", "Сегодня")
ControlClick("Guard Light", "Сегодня", "TButton5")
WinWaitActive("Guard Light - Отчеты")
MouseClick("primary", 440, 90, 2, 0)
MouseClick("primary", 440, 90, 2, 0)
MouseClick("primary", 436, 105, 2, 0)
MouseClick("secondary", 705, 228, 1, 0)
MouseClick("primary", 733, 240, 1, 0)
WinWaitActive("Книга1 - Excel")
; Получаем дескриптор окна Excel
Local $hWnd = WinGetHandle("Книга1 - Excel")
; Если окно не найдено, то выходим
If Not $hWnd Then
MsgBox(0, "Ошибка", "Окно Excel не найдено.")
Exit
EndIf
; Активируем окно Excel
WinActivate($hWnd)
; Получаем текущую дату
Local $sCurrentDate = @YEAR & @MON & @MDAY
; Имитируем нажатие клавиши Ctrl + S для сохранения
Send("{F12}")
; Дожидаемся появления диалога "Сохранить как"
WinWaitActive("Сохранение документа")
; Указываем путь для сохранения
Local $sSavePath = "D:\Учет раб времени\" & $sCurrentDate & "_.xlsx"
ControlSetText("Сохранение документа", "", "Edit1", $sSavePath)
; Нажимаем "Сохранить"
ControlClick("Сохранение документа", "Сохранить", "Button7")
; Дожидаемся, пока файл будет сохранен, и закрываем окно "Сохранить как"
WinWaitClose("Сохранение документа")
; Закрываем приложение Excel
WinClose($hWnd)
ControlClick("Guard Light - Отчеты", "Закрыть", "TButton1")