VentaFax - [18] :: Программы :: Компьютерный форум Ru.Board

Так никто и не ответил на мой вопрос

Опишу способ благодаря которому я решил свою проблему.

Пользователь от которого происходит отправка факсов должен быть в интерактивном режиме (залогиненым на пк).
Создал три командных файла: start.cmd, fax.cmd, print.cmd. А также файл print.au3.
start.cmd - происходит вызов двух последующих *.cmd.
fax.cmd - запуск венты с автоматическим помещением задания в расписание и отправкой. При запуске первого файла ему задаются параметры: номер, путь к файлу для отправки, кому отправлять (фирма), кому отправлять (имя).
print.cmd - запуск print.au3
print.au3 - Кликанье на кнопку Печать в окне Печать (если к примеру документ для распечатки в html). Для кликанья используется AutoIt - необходимо установить на пк.

Документы в формате doc, xls без установленного на пк MSO, либо вьюверов (бесплатных) от m$ не отправляются.

start.cmd

start /min fax.cmd %1 %2 %3 %4
start /min print.cmd
exit

fax.cmd

"%ProgramFiles%\Venta\VentaFax & Voice 5\ventafax.exe" /t:%1 /f:%2 /c:%3 /n1:%4 /s /grfx[+] /a2[+]
exit

print.cmd

"%ProgramFiles%\AutoIt3\AutoIt3.exe" print.au3
exit

print.au3

#cs
----------------------
Кликанье на кнопку Печать в программе VentaFax

Делает следующее:
1.     Ждет появления окна Печать
2.     Нажимает на кнопку печать
3.     Если окна нет завершает свою работу через определенное время
----------------------
Автор скрипта: storm (ICQ#: 222-212-387)
----------------------
#ce

;предотвращение возможности множественного запуска скрипта
If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)
;скрыть в системной панели индикатор AutoIt
;AutoItSetOption("TrayIconHide", 1)
;Отображать текущую строку сценария с помощью индикатора системной панели в режиме отладки.
AutoItSetOption("TrayIconDebug", 1)
AutoItSetOption("SendKeyDelay", 10)
If ProcessExists ( "ps.exe" )<>0 Then
    ProcessClose ( "ps.exe" )
    ProcessWaitClose ( "ps.exe" )
EndIf

#cs
----------------------
объявление переменных
----------------------
#ce

;$Title - заголовок окна
Global    $Title='Печать'

;Ожидание окна
WinWait($Title, "", 30)
;Проверка ниличия окна
If WinExists($Title) Then
    WinActivate($Title)
    WinWaitActive($Title)
    ControlClick ($Title,"",'Button13')
EndIf

Модерирует : gyra, Maz
Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38