Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Здравствуйте. Есть скрипт:
LWin:
Send, #{PrintScreen}
ReturnПо умолчанию он сохраняет сделанные скриншоты в папку Снимки экрана.
Вопрос: можно ли сделать так, чтобы скрипт сохранял скриншоты, сделанные с его помощью, в какую-нибудь другую папку? Например, D:\Рабочая папка\Изображения. А скриншоты, сделанные просто с помощью Win+PrtSc, когда скрипт не был запущен, продолжили сохраняться в папку Снимки экрана.
Самый очевидный (но не самый оптимальный) алгоритм такой:
Перед отправкой #{PrintScreen} перечисляете все файлы, находящиеся в данный момент в папке Снимки экрана
Отправляете #{PrintScreen}
Через небольшое время перечисляете файлы ещё раз, тот, которого раньше не было — новый
Перемещаете новый файл в другую папку с нужным названием
Если с этим справитесь, подскажу, как проще.
teadrinker, расписываюсь в своей некомпетентности... Честно говоря, даже не представляю, как это реализовать.
Там 4 пункта, какой именно вызывает затруднения?
teadrinker, все, кроме второго...
И что, даже последний? Не знаете, как файл переместить?
Перечислить файлы можно с помощью Loop, Files.
teadrinker, ладно, последнее знаю (наверное...):
FileMove, C:\Пользователи\User1\Изображения\Снимки экрана\, D:\Рабочая папка\Изображения\Но я понятия не имею, как с помощью Loop, Files можно перечислить скриншоты, появившиеся за последние несколько секунд/минут.
Можете просто перечислить все, что есть, сначала до получения скриншота, потом после. После будет файл, которого не было раньше.
teadrinker, можно пример для особо одаренных, как это делать?..
marusa122 На форуме были неоднократно показаны примеры скриншотеров. Можно было бы просто скопировать код, немного изменить да запускать при включении компа.
marusa122
По ссылке, которую я дал выше, есть примеры. Я бы хотел здесь видеть хотя бы ваши попытки.
folderPath := "C:\Users\mi\Pictures\Screenshots" ; укажите свой путь к папке скриншотов
existing := {} ; сюда будем записывать существующие файлы
Loop, Files, %folderPath%\*.png
{
existing[A_LoopFileName] := ""
}
Send #{PrintScreen}
Sleep, 2000
Loop, Files, %folderPath%\*.png
{
if !existing.HasKey(A_LoopFileName) {
newFilePath := A_LoopFilePath
break
}
}
MsgBox % newFilePathСтраницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
