[Окна, Диалоги] Как открыть папку, вставить файл из буфера, закрыть окно?

shatto · 20 Сен 2012

Версия: 3
Хотелось решить задачку про копирование файлов в нужную директорию
В буфере находится файл.
Путь к изначальному файлу использовать нельзя. ( файл скопирован из локальной машины при подключении по RDP)
Известно в какую папку надо скопировать этот файл.
Нужно:
-Открыть папку
- Вставить файл
-Закрыть папку

Хочется решить простыми комбинациями Ctrl+v (Shift+Insert),и Alt+F4
Send не срабатывает, экспериментировал с ControlSend, тоже не получилось,
что можете посоветовать?

InnI · 20 Сен 2012

shatto [?]

файл скопирован из локальной машины при подключении по RDP

Не пойму - откуда и куда вы копируете? С удалённой, к которой подключены по RDP, на локальную? Или наоборот?
И какая у вас Windows? На WindowsXP RDP не умеет копировать файлы через буфер обмена.

shatto · 20 Сен 2012

Файл скопирован на локальной машине. Версия ОС Win7.
Пытаюсь скопировать на сервер. ОС Windows2008
Проблему доступности копирования файлов на ХР вроде можно решить обновлением RDP-клиента.

В свойствах RDP подключения с сервером указана доступность буфера обмена и локальных дисков.
Простым кликанием правой кнопки мыши вставить файл из буфера я могу

можно эскпериментировать и без сервера. Просто хочется вставить файл из буфера используя горячие клавиши. Кажется все просто, но.. опыта наверное пока не хватает :smile:

InnI · 20 Сен 2012

Windows2008 у меня нет - проверял на двух "семёрках".
В свойствах подключения установить "Использовать сочетания клавиш Windows" - "На удалённом компьютере". Если выбрано "Только в полноэкранном режиме", то окно подключения должно быть в этом режиме. Папка должна существовать на удалённой машине и файл уже находиться в буфере обмена на локальной машине.

Код:

$dir = "D:\Test" ; папка на удалённой машине
WinActivate("[class:TscShellContainerClass]")
WinWaitActive("[class:TscShellContainerClass]")
Send("#r")
Sleep(1000)
Send($dir & "{enter}")
Sleep(1000)
Send("+{ins}")
Sleep(3000)
Send("!{f4}")

shatto · 20 Сен 2012

Код:

WinActivate("[class:TscShellContainerClass]")
WinWaitActive("[class:TscShellContainerClass]")

а это для чего стесняюсь спросить :-[
Разве окошко уже и так не активно? Только что же открыли его
Тестирую пока. У меня интеграция AutoIt c 1c
тонкое место пока

Код:

Send("+{ins}")

.
Открывается и закрывается, но не вставляется :smile:

InnI · 20 Сен 2012

shatto [?]

а это для чего

Send эмулирует нажатие клавиш в активном окне. Поэтому окну RDP сначала отправляем команду активации, потом ждём его активации.

тонкое место

Попробуйте заменить на

Код:

Send("^v")

Добавлено:
Сообщение автоматически объединено: 20 Сен 2012

shatto [?]

Открывается и закрывается, но не вставляется

Файл большой? Окно копирования успевает появиться? Увеличьте последнюю задержку секунд до десяти...
Добавлено:
Сообщение автоматически объединено: 20 Сен 2012

shatto [?]

Разве окошко уже и так не активно? Только что же открыли его

В моём скрипте оно открыто, но не активно. Поэтому так.
Если вы в своём скрипте его открываете и оно активно, то активировать не нужно.

OffTopic:
Вы так часто редактируете посты, что я не успеваю за ними следить :smile:

shatto · 20 Сен 2012

У меня оно активно,но даже отправка с клавиатуры горячей клавиши вставки не дает результата
Нужно сначала щелкнуть по области
.. :smile:

это похоже означает что оно не активно?
только почему-то 1ска подвисает с этими команадами WinActivate
а как можно эмулировать нажатие мышки по центру этого окошка (D:/test)?

InnI · 20 Сен 2012

Что-то вы меня запутали. При чём тут 1С?
У вас на удалённой машине работает 1С? И к этой машине вы подключаетесь по RDP? А скрипт вы где запускаете? На локальной машине или на удалённой?

shatto · 20 Сен 2012

У меня скрипт запускается через 1с, который стоит на удаленной машине.
Если б сразу написал про это, думаю, это отпугнуло бы сразу.
Но суть от этого не меняется :smile:

Из 1с скрипт прекрасно запускается, вот только еще чуть-чуть! с вставкой б разобраться

___________
Добавлено 17.01
Есть некая уверенность что все получится, если получится программно щелкнуть мышкой в область куда я хочу вставить файл

InnI · 20 Сен 2012

shatto [?]

скрипт запускается через 1с, который стоит на удаленной машине

Файл вы отправляете в буфер на локальной машине. Скрипт выполняется на удалённой машине. В какой момент происходит синхронизация буферов - я не знаю. Может они синхронизируются при активации окна подключения? Т.е. на момент выполнения скрипта в буфере удалённой машины, возможно, ничего и нет. Что вам мешает выполнять данный скрипт на локальной машине при активном сеансе RDP?

shatto · 20 Сен 2012

в буфере удалённой машины, возможно, ничего и нет

Тут все нормально. Буфер локальной машины доступен на удаленной.

Может они синхронизируются при активации окна подключения?

Здесь точно нет. Лучше копать в другую сторону.

Что вам мешает выполнять данный скрипт на локальной машине при активном сеансе RDP?

-это продиктовано условием общей задачи...

Я понял зачем нужно

Код:

WinActivate("[class:TscShellContainerClass]")
WinWaitActive("[class:TscShellContainerClass]")

-это когда копирование происходит из клиентской машины

Мне же нужно активное окно проводника с папкой, куда копируется файл
У меня открытие окна с папкой-приемником происходит другим образом
не так как у вас:

Код:

Send("#r")
Sleep(1000)
Send($dir & "{enter}")

вот из-за этого проблема

Окошко с папкой-приемником открыто, оно даже активно, но ctrl+v не дает ничего...
а вот если щелкнуть мышкой в области, где файлы, тогда все нормально вставляется

________________________________________
добавлено
Если проделывать руками все команды Win-R, ввод имени файла, Enter, ctrl+v, alt+F4,
тогда все отличненько получается
а когда скриптом не очень.
Вопрос:
этот код

Код:

Send($dir & "{enter}")

можно разделить на 2 Send'а?
или как-нибудь по-другому сделать

InnI · 20 Сен 2012

shatto [?]

щелкнуть мышкой в области, где файлы

Код:

ControlClick("[class:CabinetWClass]", "", "DirectUIHWND3")

передать фокус без клика

Код:

ControlFocus("[class:CabinetWClass]", "", "DirectUIHWND3")

Добавлено:
Сообщение автоматически объединено: 20 Сен 2012

shatto [?]

тогда все отличненько получается

Вот именно это делает скрипт, но при условии, если он запущен на локальной машине. А скрипт, работающий на удалённой машине с окном, о котором он ничего не знает, да ещё запускаемый третьим приложением - это не то же самое. И проблема, обозначенная в описании темы, ничего общего не имеет с той, к которой мы пришли ;)
Добавлено:
Сообщение автоматически объединено: 20 Сен 2012

shatto [?]

разделить на 2 Send'а

Код:

Send($dir)
Send("{enter}")

Можно даже задержку между ними поставить в миллисекундах

Код:

Sleep(1000) ; одна секунда

shatto · 20 Сен 2012

Насчет темы согласен. Как бы ее переименовать?
Кстати в случае с Send при русской раскладке клавиатуры путь к папке -приемнику не тот который нужен передается :smile:

Код:

ControlFocus("[class:CabinetWClass]", "", "DirectUIHWND3")

а в этом операторе параметры такие же передавать?
______________________

InnI · 20 Сен 2012

shatto [?]

Send при русской раскладке клавиатуры

Это известная проблема. Воспользуйтесь поиском по форуму.

параметры такие же передавать?

Запустите утилиту Au3Info.exe, перетащите "Finder Tool" на поле с файлами и отпустите. На вкладке Window найдёте Сlass, на вкладке Control - ClassnameNN. Вот эти данные и подставляйте первым и третьим параметром соответственно. Я брал с окна проводника Windows7.

shatto · 20 Сен 2012

Уррааааааааааааааааааааааа!!! Получилось!
InnI огромное вам спасибо!!!
:IL_AutoIt_1:

Теперь появился еще один вопрос:
Скрипт запускается программно из 1с, при закрытии папки-приемника файла окно 1с становится неактивным, фокус переходит в какое -нибудь другое окно
Вопрос: как сделать активным окно приложения 1с ( заголовок у него: "1с:Предприятие")?

Похоже вот так:

Код:

WinActivate("title")

где title- заголовок окна,
а можно в каком-нибудь операторе использовать название класса окна?
~~а третий параметр откуда брать ("DirectUIHWND3")?~~ вижу, нашел :smile:

Добавлено:
Сообщение автоматически объединено: 20 Сен 2012

... :shok:

недолго длилась радость
проблема: файлы копируются по разному по времени
и неясно как отследить "процесс копирования". Хорошо б, если как только он закончится, закрыть окно. Можно ли?

InnI · 20 Сен 2012

Код:

; ждём появления окна копирования 5 секунд
$winCopy = WinWait("Копирование", "", 5)
; если окно появилось, ждём его закрытия
If $winCopy <> 0 Then
  While WinExists($winCopy)
    Sleep(100)
  WEnd
EndIf
; после закрытия фокус будет передан в окно проводника, которое закрываем
Sleep(500)
Send("!{f4}")
; активируем окно 1с
WinActivate("1с:Предприятие")

Автор темы	Похожие темы	Форум	Ответы	Дата
G	[Окна, Диалоги] Как в диалоговом окне \"Открыть\" задать путь к файлу	Общие вопросы по AutoIt	4	2 Май 2013
S	[Окна, Диалоги] Как открыть explorer с правами Администратора в Windows 7	Общие вопросы по AutoIt	1	1 Окт 2012
A	[Окна, Диалоги] Открыть папку в том же окне	Общие вопросы по AutoIt	9	24 Июл 2012
I	[Окна, Диалоги] Как скрыть основное окно и открыть новое горячей клавишей?	Общие вопросы по AutoIt	2	15 Июл 2012
G	[Окна, Диалоги] Как открыть приложение в окне скрипта и привязать к нему ?	Общие вопросы по AutoIt	8	31 Авг 2011

Поиск

Поиск

[Окна, Диалоги] Как открыть папку, вставить файл из буфера, закрыть окно?

shatto

Новичок

InnI

AutoIT Гуру

shatto

Новичок

InnI

AutoIT Гуру

shatto

Новичок

InnI

AutoIT Гуру

shatto

Новичок

InnI

AutoIT Гуру

shatto

Новичок

InnI

AutoIT Гуру

shatto

Новичок

InnI

AutoIT Гуру

shatto

Новичок

InnI

AutoIT Гуру

shatto

Новичок

InnI

AutoIT Гуру