Модераторы: Akella, bartram

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Ищу ПО 
V
    Опции темы
mihanik
Дата 13.1.2011, 21:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: нет
Всего: 109
Описивыю, что должна делать программа:

Дано: папка в которой время от времени появляются PDF-файлы
Надо: как только файл появился в папке, его нужно распечатать на принтере, а потом удалить.

Есть такие программы, которые бы постоянно отслеживали состояние папки и делающие то, что я хочу?



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
bartram
Дата 13.1.2011, 22:06 (ссылка) | (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Комодератор
Сообщений: 1606
Регистрация: 22.2.2004
Где: Russia, Samara

Репутация: 3
Всего: 29
Быстрее самому написать, задача не очень сложная.


--------------------
В каждом из нас спит гений, но с каждым днем все крепче ;-)
bartram.ru
Twitter
user posted image 
PM MAIL ICQ   Вверх
mihanik
Дата 13.1.2011, 22:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: нет
Всего: 109
bartram, согласен.
Только лень...

Уже пишу  батник... smile



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
A5uKa
  Дата 13.1.2011, 22:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


TЋ♥s F1rȜ iƧ BurȠiƞg
***


Профиль
Группа: Awaiting Authorisation
Сообщений: 1928
Регистрация: 30.8.2008

Репутация: нет
Всего: 16
Покажешь потом как это выглядит в батнике ?
PM   Вверх
Akina
Дата 13.1.2011, 22:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 13
Всего: 454
Цитата(mihanik @  13.1.2011,  22:18 Найти цитируемый пост)
как только файл появился в папке

Как только - это сколько? не более секунды? минуты? часа?


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
mihanik
Дата 14.1.2011, 01:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: нет
Всего: 109
Цитата(Akina @  13.1.2011,  22:59 Найти цитируемый пост)
Как только - это сколько? не более секунды? минуты? часа? 


+/- 15 секунд

Добавлено через 10 минут и 32 секунды
Цитата(A5uKa @  13.1.2011,  22:50 Найти цитируемый пост)
Покажешь потом как это выглядит в батнике ? 

Легко!!!

В автозагрузку кидаю батник со следующим содержанием
Код

@echo off

Set MyDisk=F:
SEt MyFolder=PDF-Print

:MyStart

%MyDisk%
cd %MyDisk%\%MyFolder%

for /f "tokens=*" %%a in ( 'dir /b *.pdf' ) Do start print.bat "%%~fa"

ping localhost -n 10

goto MyStart


Содержимое файла print.bat такое.
Код

@echo off
move %1 %tmp%\%~n1
set myc="C:\Program Files (x86)\Foxit Software\Foxit Reader\Foxit Reader.exe" -p %tmp%\%~n1
%myc%
del /S /Q %tmp%\%~n1
exit


Это черновик...
Улучшать завтра буду...



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Akina
Дата 14.1.2011, 08:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 13
Всего: 454
Цитата(mihanik @  14.1.2011,  02:25 Найти цитируемый пост)
Улучшать завтра буду...

Улучшить - не получится, всё равно 100% процессора съест.
Перепиши на VBS.

Добавлено через 2 минуты и 29 секунд
Цитата(mihanik @  14.1.2011,  02:25 Найти цитируемый пост)
+/- 15 секунд

Ну тогда WScript.Sleep 1000 вполне достаточно.



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
A5uKa
  Дата 14.1.2011, 09:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


TЋ♥s F1rȜ iƧ BurȠiƞg
***


Профиль
Группа: Awaiting Authorisation
Сообщений: 1928
Регистрация: 30.8.2008

Репутация: нет
Всего: 16
Лучше на C
PM   Вверх
Akina
Дата 14.1.2011, 09:07 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 13
Всего: 454
Для написания скрипта на VBS и его запуска достаточно штатного блокнота. А на Сях - увы и ах...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
mihanik
Дата 14.1.2011, 13:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: нет
Всего: 109
 smile 



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
ksili
Дата 14.1.2011, 13:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2069
Регистрация: 3.11.2005
Где: Красноярск

Репутация: нет
Всего: 17
Foxit Reader - глючная штука. У меня недавно было: выдавал ошибку и вылетал при попытке печати PDF, в котором есть поля ввода. Соответственно ничего не печаталось.


--------------------
Ничто так не развивает аналитическое мышление, как отладка сложной программы без возможности пошагового выполнения (с)
PM MAIL   Вверх
mihanik
Дата 14.1.2011, 14:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: нет
Всего: 109
ksili, у меня таких документов ТОЧНО не будет.



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Akina
Дата 14.1.2011, 17:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 13
Всего: 454
Цитата(ksili @  14.1.2011,  14:55 Найти цитируемый пост)
выдавал ошибку и вылетал при попытке печати PDF, в котором есть поля ввода.

Было несколько версий с кривым плагином работы с формами. Кроме проблем печати, была ещё одна - половина корректированных в Фоксите доков потом не открывались в Адобе ридере. Потом поправили.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
bartram
Дата 14.1.2011, 19:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Комодератор
Сообщений: 1606
Регистрация: 22.2.2004
Где: Russia, Samara

Репутация: 3
Всего: 29
Цитата(mihanik @  14.1.2011,  03:25 Найти цитируемый пост)
В автозагрузку кидаю батник со следующим содержанием

Ну вот, а ты ПО какое-то искал smile


--------------------
В каждом из нас спит гений, но с каждым днем все крепче ;-)
bartram.ru
Twitter
user posted image 
PM MAIL ICQ   Вверх
mihanik
Дата 15.1.2011, 11:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: нет
Всего: 109
Цитата(bartram @  14.1.2011,  19:49 Найти цитируемый пост)
Ну вот, а ты ПО какое-то искал smile 


Ну... Дык... Это...
Я его и нашёл. У себя в голове. smile

Сейчас думаю версию на vbs накатать...

Лени-и-и-и-иво...
smile



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
mihanik
Дата 16.1.2011, 23:46 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: нет
Всего: 109
Цитата(Akina @  14.1.2011,  08:53 Найти цитируемый пост)
Перепиши на VBS.


Вот!!!

Код

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\.\root\cimv2")

Set colMonitoredEvents = objWMIService.ExecNotificationQuery _
    ("SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE " _
        & "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _
            & "TargetInstance.GroupComponent= " _
                & "'Win32_Directory.Name=""c:\\\\scripts""'")

Set objFSO = CreateObject("Scripting.FileSystemObject")

Do
    Set objLatestEvent = colMonitoredEvents.NextEvent
        MyFile = objLatestEvent.TargetInstance.PartComponent
    Set objLatestEvent = Nothing
    
    MyFile = UCase (MyFile)
    MyFile = Replace(MyFile, "\\", "\")
    MyFile = Mid (MyFile,InStr(MyFile,"""")+1, Len(MyFile)-InStr(MyFile,"""")-1)
    
    If (InStr ( MyFile, ".PDF")) = (Len (MyFile)-3) Then     
        Set WSHShell = WScript.CreateObject("WScript.Shell") 
                WshShell.Run """C:\Program Files\Foxit Software\Foxit Reader\Foxit Reader.exe"" -p " & """" & MyFile & """", 1, True
        Set WSHShell = Nothing    
    End If
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
        objFSO.DeleteFile(MyFile)
    Set objFSO = Nothing
    
Loop




Это сообщение отредактировал(а) mihanik - 17.1.2011, 00:02


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Akella
Дата 17.1.2011, 23:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 35
Всего: 329
Молодец, а теперь отправь этот скрипт в специальную тему с описанием smile
PM MAIL   Вверх
A5uKa
  Дата 18.1.2011, 09:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


TЋ♥s F1rȜ iƧ BurȠiƞg
***


Профиль
Группа: Awaiting Authorisation
Сообщений: 1928
Регистрация: 30.8.2008

Репутация: нет
Всего: 16
mihanik 

А можешь подсказать как посчитать кол-во PDF файлов ?

Мне просто как раз нужен подобный скрипт, что бы контроллировать кол-во pdf файлов в папке.
PM   Вверх
mihanik
Дата 18.1.2011, 11:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: нет
Всего: 109
Цитата(Akella @  17.1.2011,  23:41 Найти цитируемый пост)
Молодец, а теперь отправь этот скрипт в специальную тему с описанием smile 


http://forum.vingrad.ru/forum/topic-320367.html

Добавлено через 46 секунд
Цитата(A5uKa @  18.1.2011,  09:14 Найти цитируемый пост)
А можешь подсказать как посчитать кол-во PDF файлов ?

Могу, но только вечером, сейчас некогда... smile



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
A5uKa
  Дата 19.1.2011, 12:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


TЋ♥s F1rȜ iƧ BurȠiƞg
***


Профиль
Группа: Awaiting Authorisation
Сообщений: 1928
Регистрация: 30.8.2008

Репутация: нет
Всего: 16
Цитата(mihanik @ 18.1.2011,  11:39)
Могу, но только вечером, сейчас некогда... smile

У меня получилось .

Код

DateFormat = Month(Date) & "/" & Day(Date) & "/" & Year(Date)
'wscript.echo DateFormat
'wscript.echo Time

Const LOCAL_TIME = True
Set dtmTargetDateLow = CreateObject("WbemScripting.SWbemDateTime")
Set dtmTargetDateHigh = CreateObject("WbemScripting.SWbemDateTime")
dtmTargetDateLow.SetVarDate DateFormat + " 00:00:00", LOCAL_TIME
dtmTargetDateHigh.SetVarDate DateFormat + " 23:59:59", LOCAL_TIME

strComputer = "nCdy"

strDrive = "d:"

strPath = "TestFolder"

strPathAlt = Replace(strPath, "\\", "\")

strName = strDrive & "\" & strPathAlt

Set objWMIService = GetObject("winmgmts:\\" & strComputer)

DO
    Set colFiles = objWMIService.ExecQuery _
        ("SELECT * FROM CIM_DataFile WHERE Drive = '" & strDrive & "' AND Path = '\\" & strPath & "\\' ")

    'and LastModified >= '" + dtmTargetDateLow + "' and LastModified <= '" + dtmTargetDateHigh + "'

    Counter = 0
    IF colFiles.Count > 3 THEN

        For Each objFile In colFiles
    
        Counter = Counter + 1
        '   wscript.echo objFile.Name
        '   wscript.echo objFile.LastModified

            IF Counter > 3 THEN
                Set objFSO = CreateObject("Scripting.FileSystemObject")
                    objFSO.DeleteFile(objFile.Name)
                Set objFSO = Nothing
            END IF

        Next
    
    END IF

LOOP


Добавлено через 1 минуту и 4 секунды
Ну там немного мусора в коде , но пусть будет.
PM   Вверх
mihanik
Дата 19.1.2011, 13:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: нет
Всего: 109
Молодец!!!

Вот ещё посмотри...

Код

' List All the Files in a Folder

' Windows Server 2003 : Yes
' Windows XP : Yes
' Windows 2000 : Yes
' Windows NT 4.0 : Yes
' Windows 98 : Yes

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colFiles = objWMIService. _
    ExecQuery("Select * from CIM_DataFile where Path = '\\Scripts\\'")

For Each objFile in colFiles
    Wscript.Echo objFile.Name 
Next



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Akella
Дата 19.1.2011, 17:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 35
Всего: 329
Цитата(mihanik @  18.1.2011,  11:39 Найти цитируемый пост)
Молодец, а теперь отправь этот скрипт в специальную тему с описанием smile 


http://forum.vingrad.ru/forum/topic-320367.html


я почему-то подумал, что твой скрипт из этой области: http://forum.vingrad.ru/forum/topic-154708.html
PM MAIL   Вверх
mihanik
Дата 19.1.2011, 21:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: нет
Всего: 109
Цитата(Akella @  19.1.2011,  17:49 Найти цитируемый пост)
я почему-то подумал, что твой скрипт из этой области: http://forum.vingrad.ru/forum/topic-154708.html 


Сам в шоке.
 smile 


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Akina
Дата 19.1.2011, 21:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 13
Всего: 454
A5uKa, а нафига ты создаёшь новый инстанс objFSO на каждом обороте цикла, и тут же его дропаешь?


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
A5uKa
  Дата 20.1.2011, 09:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


TЋ♥s F1rȜ iƧ BurȠiƞg
***


Профиль
Группа: Awaiting Authorisation
Сообщений: 1928
Регистрация: 30.8.2008

Репутация: нет
Всего: 16
Цитата(Akina @ 19.1.2011,  21:39)
A5uKa, а нафига ты создаёшь новый инстанс objFSO на каждом обороте цикла, и тут же его дропаешь?

ну могу вынести за цикл )
PM   Вверх
Страницы: (2) [Все] 1 2 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программное обеспечение"
Deface
Akella

Запрещается!

1. Обсуждение крэков, кейгенов и других подобных программ

Пробуйте искать сами или обращайтесь в приват к участникам форума.

Темы с подобными вещами будут немедленно удаляться, а нарушители - получать предупреждения.

Также запрещается обсуждение проблем работы этих программ (что куда вписать, куда что скопировать и т.п...)

2. Давать ссылки на взломанные продукты

  • Пожалуйста, пользуйтесь поиском перед тем, как задать вопрос - возможно ответ уже есть на форуме.
  • Название темы должно отражать её суть
  • Действия модераторов можно обсудить здесь

С уважением, Akella, bartram.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программное обеспечение | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0997 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.