Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript

Модерирует : ShIvADeSt

ShIvADeSt (12-07-2011 15:12): http://forum.ru-board.com/topic.cgi?forum=33&topic=11963#1  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 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 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112

   

mozers



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Nagual
Я для копирования на FTP долгое время пользовал системный ftp.exe.
(сначала пишешь в файл команды сценария, а затем запускаешь командой
Код:
ftp -s:upload.scr

Потом (когда мне потребовался доступ в passive mode) перешел на cURL (его запустить еще проще -
Код:
curl.exe -v -# -T upload_file.ext ftp://login:passw@ftp.my.org/my_dir/

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

Всего записей: 2187 | Зарегистр. 03-01-2002 | Отправлено: 20:22 24-02-2007
Nagual



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
igor_andreev
спс за инфу, уже скачал, буду попробовать, но опять же, это надо устанавливать и тд а хочется как всегда стандартными средствами, уж очень я это уважаю, ведь не всегда сидишь за своей тачкой и имеешь весь свой инструментарий и тд и тп... отсюда такое рвение к стандартным инструментам
 
Добавлено:
mozers
спасибо, тоже попробую
 
единственное условие -- один поток
файлов три, можно ли их аплодить одной строкой или обязательно прописывать каждый файл в свою строку
как залупить скрипт? можешь привести пример?
планировщиком по некоторым причинам, не удастся воспользоваться

Всего записей: 528 | Зарегистр. 06-01-2006 | Отправлено: 20:26 24-02-2007 | Исправлено: Nagual, 22:17 24-02-2007
igor_andreev

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Nagual

Цитата:
не всегда сидишь за своей тачкой и имеешь весь свой инструментарий и тд и тп... отсюда такое рвение к стандартным инструментам
Не про тебя лично конечно , но меня почему-то всегда умиляла такая позиция. Установить в операционку пару-тройку гигабайт хлама в виде фотошопов-консультантовплюс-дефрагментаторов-архиваторов-текстовыхредакторов и пр. и пр. - это нормально, а добавить в систему консольную утилитку на несколько килобайт - "хочу только стандартными средствами"
Если это не моя тачка и сел я за нее первый и может последний раз, а файл нужно закинуть на фтп - это преспокойно делается руками, нужно только команды консольной ftp.exe вызубрить. И неоднократно я это проделывал. Не надо никаких батников и скриптов.

Цитата:
буду попробовать, но опять же, это надо устанавливать

Если установишь и понравится, то достаточно забрать из Program Files\ЧилкатПапка  chilkatftp.dll и потом при переустановке OC или на другой машине regsvr32 ее...

Цитата:
файлов три, можно ли их аплодить одной строкой или обязательно прописывать каждый файл в свою строку
Ты про curl.exe или ftp.exe?  
Стандартная ftp.exe - смотря какой командой будешь отправлять. Если пользоваться командами SEND или PUT - то каждый файл в одну строчку, MPUT - можно несколько, типа mput *.txt
Про сurl mozers написал же
Цитата:
вместо одного файла можно подсунуть кучу, используя маску
Я curl пользуюсь, но только для некоторых скачиваний, команды закачки не учил толком, по wput могу подсказать, с ней я энное время экспериментировал. Но там на сайте curl-a есть мануал.

Всего записей: 1704 | Зарегистр. 08-12-2004 | Отправлено: 23:51 24-02-2007 | Исправлено: igor_andreev, 23:54 24-02-2007
Nagual



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
igor_andreev

Цитата:
Установить в операционку пару-тройку гигабайт
ну, ты прав, для курла можно сделать исключение
в общем, потестил curl, спс mozers за, таскать, толчок, очень достойно он мне выполнил задачу, правда пришлось три строки с ожиданием каждой предыдущей рисовать, хотя может это не обязательно, но мне важно, чтобы все файлы закачались.
взял его на вооружение, учитывая малый вес, хорошую работоспособность и отсутствие установки и следов
мануал курил по курлу, но результата аплода одной строкой трех файлов пока не добился, по маске не пройдет, все файлы разные, как по названию, так и по расширению, то есть привязаться не к чему
на сайте мануал повторяет схожий в дистрибе проги
насчет regsvr32 chilkatftp.dll -- взято на заметку...
ну и чтобы массовости более понятно было, приведу пример, что ли
Код:
CreateObject("WScript.Shell").Run"curl -v -# -T 1upload.file1 ftp://login:passw@ftp.my.org/my_dir/", 0, True
CreateObject("WScript.Shell").Run"curl -v -# -T 2upload.file2 ftp://login:passw@ftp.my.org/my_dir/", 0, True
CreateObject("WScript.Shell").Run"curl -v -# -T 3upload.file3 ftp://login:passw@ftp.my.org/my_dir/", 0, True
MsgBox "Файлы успешно скопированы на сервер!", , "Обновление файлов чего-то!"

Всего записей: 528 | Зарегистр. 06-01-2006 | Отправлено: 00:46 25-02-2007
igor_andreev

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
мануал курил по курлу, но результата аплода одной строкой трех файлов пока не добился, по маске не пройдет, все файлы разные, как по названию, так и по расширению,

а там в мануале есть такое

Цитата:
You can also upload multiple files in a similar fashion:
 
    curl -T local1 ftp://ftp.com/moo.exe -T local2 ftp://ftp.com/moo2.txt
 


Всего записей: 1704 | Зарегистр. 08-12-2004 | Отправлено: 01:07 25-02-2007
Nagual



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
igor_andreev
ага, спс оно самое
итого, с учетом поправок
Код:
CreateObject("WScript.Shell").Run"curl -v -# -T 1upload.file1 ftp://login:passw@ftp.my.org/my_dir/ -v -# -T 2upload.file2 ftp://login:passw@ftp.my.org/my_dir/ -v -# -T 3upload.file3 ftp://login:passw@ftp.my.org/my_dir/", 0, True
MsgBox "Файлы успешно скопированы на сервер!", , "Обновление файлов чего-то!"

задача решена полностью
 
Добавлено:
кроме зацикливания, его то я и забыл

Всего записей: 528 | Зарегистр. 06-01-2006 | Отправлено: 01:52 25-02-2007
veles79

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
мде...похоже, задачку с имитацией нажатия "Ctrl+Alt+D" никто так и не решил...все предложенные варианты не пашут )))

Всего записей: 8 | Зарегистр. 14-06-2006 | Отправлено: 09:42 07-03-2007
Nagual



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
veles79
как же так, я перепроверил несколько раз у меня пашет отлично
***
CreateObject("WScript.Shell").SendKeys"^%D"
***
2all
кто нить сталкивался с задачей копирования из буфера обмена?

Всего записей: 528 | Зарегистр. 06-01-2006 | Отправлено: 09:47 09-03-2007
igor_andreev

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
кто нить сталкивался с задачей копирования из буфера обмена?
Копирования текста? Тырк, тырк...

Всего записей: 1704 | Зарегистр. 08-12-2004 | Отправлено: 13:47 09-03-2007
Nagual



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
igor_andreev
tnx, похоже, что надо, ушел тестить
 
Добавлено:
все пашет

Всего записей: 528 | Зарегистр. 06-01-2006 | Отправлено: 13:56 09-03-2007
ViSiToR



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Nagual

Цитата:
кто нить сталкивался с задачей копирования из буфера обмена?

Если нужно просто получить текст с буфера, можно так:
 

Код:
Set objHTM = CreateObject("htmlfile")  
strTXT = objHTM.ParentWindow.ClipboardData.GetData("text")  
 
If strTXT <> "" Then MsgBox strTXT

 
Это где-то на 7-мой, 8-иой странице я уже задавал подобное.
 
А вот как получить путь к файлу скопированному в буфер обмена (для его перемещения/копирования в другое место), вот это я бы и сам хотел узнать .

----------
ViSiToR a.k.a CreatoR
CreatoR это не ник, CreatoR это стиль жизни!

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 14:28 09-03-2007
igor_andreev

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
А вот как получить путь к файлу скопированному в буфер обмена (для его перемещения/копирования в другое место), вот это я бы и сам хотел узнать
Зачем файл то копировать в буфер, если его нужно отправить в другое место? Отдавай его сразу скрипту, как %1 в батнике :)

Код:

If WScript.Arguments.Count = 1 Then
  sFile= WScript.Arguments.Item(0)
  msgbox sFile
Else
  msgbox "I want file as argument :-("
End If


Всего записей: 1704 | Зарегистр. 08-12-2004 | Отправлено: 14:41 09-03-2007 | Исправлено: igor_andreev, 14:45 09-03-2007
ViSiToR



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
igor_andreev

Цитата:
Зачем файл то копировать в буфер, если его нужно отправить в другое место? Отдавай его сразу скрипту, как %1 в батнике

Не, я допустим в проводнике копирнул файл (правой кнопкой по нём и пункт “Копировать”), тепреь я хочу получить этот путь (к файлу который хочу скопировать) в переменную, чтобы потом работать с ней/с ним, с файом (перемещать/копировать в другое место, или просто прописывать где надо путь к нему).

----------
ViSiToR a.k.a CreatoR
CreatoR это не ник, CreatoR это стиль жизни!

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 17:24 09-03-2007
igor_andreev

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ViSiToR

Цитата:
Не, я допустим в проводнике копирнул файл

Ну ты же не путь к файлу копирнул, ты копирнул в буфер обмена кучку бинарных данных. Я батники-скрипты часто пишу, посему давно уже пользуюсь вот этим http://myfreeware.narod.ru/products/Path2Clipboard.htm

Всего записей: 1704 | Зарегистр. 08-12-2004 | Отправлено: 19:48 09-03-2007
ViSiToR



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
igor_andreev

Цитата:
Ну ты же не путь к файлу копирнул, ты копирнул в буфер обмена кучку бинарных данных. Я батники-скрипты часто пишу, посему давно уже пользуюсь вот этим http://myfreeware.narod.ru/products/Path2Clipboard.htm

Ты меня не понял (я для копирования пути/имени сделал утилитку на AutoIT, а также есть FileMenu Tools очень класная утилита), мне нужно управлять фйлами из скрипта, т.е не просто коипровать/перемещать файлы, а именно используя те самые бинарные данные из буфера обмена.
 
Я в проводнике копирую файл (без всяких утилит), и хочу иметь возможность из скрипта просто управлять этим файлом (иметь к нему доступ, будь то из переменной, или расшифрованного бинарного кода).
 
А было бы совсем не плохо, если бы можно было копировать в буфер обмена файл, т.е помещать туда теже бинарные данные (основываясь на пути к файлу), и чтобы из проводника было возможно потом вставить этот файл (из буфера обмена).

----------
ViSiToR a.k.a CreatoR
CreatoR это не ник, CreatoR это стиль жизни!

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 20:45 09-03-2007
Nagual



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ViSiToR
Function BuildPath(ByVal Path As String, ByVal Name As String) As String
 
Generate a path from an existing path and a name

Всего записей: 528 | Зарегистр. 06-01-2006 | Отправлено: 10:17 14-03-2007
ViSiToR



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Nagual

Цитата:
Function BuildPath(ByVal Path As String, ByVal Name As String) As String  
 
Generate a path from an existing path and a name

Это не то.

----------
ViSiToR a.k.a CreatoR
CreatoR это не ник, CreatoR это стиль жизни!

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 14:16 14-03-2007
MezzoForte

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всем привет!
Подскажите, а можно ли отловить событие внешнего приложения?
К примеру, надо отловить событие ворда на открытие документа.
 
На VBA всё достаточно просто - простейшее withevents, а вот на VBS совсем не получается  
Я понимаю, что надо использовать цикл while.... do..
В вот что написать внутри ?
 
Заранее спасибо
 
Добавлено:
да, извиняюсь, что сразу не сказал - использование wscript запрещено

Всего записей: 4 | Зарегистр. 15-03-2007 | Отправлено: 12:22 15-03-2007
AndVGri

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
MezzoForte
 
Option Explicit
Dim wrd, curCount
Set wrd = GetObject(,"Word.Application")
curCount = wrd.Documents.Count
Do Until curCount <> wrd.Documents.Count
Loop
msgbox wrd.Documents.Count
 
Только, проц не жалко?

Всего записей: 750 | Зарегистр. 14-12-2005 | Отправлено: 13:42 15-03-2007
jONES1979



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
MezzoForte

Цитата:
использование wscript запрещено  

а что разрешено? cscript ? если да, то какая разница между ними в контексте данного вопроса?

Всего записей: 324 | Зарегистр. 20-05-2005 | Отправлено: 14:59 15-03-2007 | Исправлено: jONES1979, 15:02 15-03-2007
   

Страницы: 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 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript
ShIvADeSt (12-07-2011 15:12): http://forum.ru-board.com/topic.cgi?forum=33&topic=11963#1


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru