Автор Тема: Автоматически скачать документы формата .doc с интернет-страницы?  (Прочитано 7282 раз)

0 Пользователей и 2 Гостей просматривают эту тему.

Оффлайн Suppir [?]

  • Продвинутый
  • ***
  • Сообщений: 967
  • Репутация: 62
    • Награды
Подскажите, можно ли с помощью AutoIt скачать документы формата *.doc с этой страницы:
http://www.krd.ru/norma/F3FFE108C5EA21AFC32578B2001C3E08.htm


Русское сообщество AutoIt


Оффлайн CreatoR [?]

  • Администратор
  • *
  • Сообщений: 8082
  • Репутация: 2314
  • Пол: Мужской
  • AutoIt is simple, subtle, elegant
    • CreatoR's Lab
    • Награды
  • Версия AutoIt: 3.3.14.0
Suppir  [?]
Цитировать
можно ли с помощью AutoIt скачать документы формата *.doc с этой страницы
Можно:

Код: AutoIt [Выделить]
InetGet("http://old.krd.ru/www/norma.nsf/8f9751d349198654c3256a7500362825/f3ffe108c5ea21afc32578b2001c3e08/$FILE/105-р.doc", @DesktopDir & "\105-р.doc")



Правила, Поиск, Супер тема


AutoIt is simple, subtle, elegant.


«Не оказываю тех. поддержку через ПМ/ICQ, и по электронной почте - для этого есть форум. (C)»
«Законы Мэрфи неоспоримы!»


Мои работы

Оффлайн madmasles [?]

  • Глобальный модератор
  • *
  • Сообщений: 7790
  • Репутация: 2317
  • Пол: Мужской
  • Награды За модерирование форума
    • Награды
  • Версия AutoIt: 3.3.x.x
Suppir,
Так у меня скачивает все *.doc с этого адреса:
(нажмите для показа/скрытия)

С помощью этого примера можно с окном сделать.
« Последнее редактирование: Июнь 22, 2011, 21:31:35 от madmasles »

Русское сообщество AutoIt


Оффлайн SECTOR [?]

  • Продвинутый
  • ***
  • Сообщений: 389
  • Репутация: 56
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
madmasles опередил меня :(

Мой код:
(нажмите для показа/скрытия)
« Последнее редактирование: Июнь 23, 2011, 11:28:36 от SECTOR »

Оффлайн Suppir [?]

  • Продвинутый
  • ***
  • Сообщений: 967

  • Автор темы
  • Репутация: 62
    • Награды
madmasles
Программа работает великолепно! Сначала у меня ругался на функцию _Encoding_HexToURL, но потом я обновил udf Creator'а и все заработало!

Русское сообщество AutoIt


Оффлайн SECTOR [?]

  • Продвинутый
  • ***
  • Сообщений: 389
  • Репутация: 56
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Suppir, я что зря писал? :whistle:
« Последнее редактирование: Июнь 23, 2011, 09:47:27 от SECTOR »

Оффлайн Suppir [?]

  • Продвинутый
  • ***
  • Сообщений: 967

  • Автор темы
  • Репутация: 62
    • Награды
SECTOR
А можно ли сделать следующую вещь: скачать не с указанной в скрипте страницы, а той страницы, которая у тебя активна в данный момент?  (в IE, для простоты)

Оффлайн SECTOR [?]

  • Продвинутый
  • ***
  • Сообщений: 389
  • Репутация: 56
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Наверно только если IE будет открыт скриптом... Попробую написать :)

Русское сообщество AutoIt


Оффлайн Suppir [?]

  • Продвинутый
  • ***
  • Сообщений: 967

  • Автор темы
  • Репутация: 62
    • Награды
SECTOR
Видел, что в AutoIt есть UDF для работы с IE, но не пользовался никогда ей. Конечно, круто было бы, если б скрипт работал под любым браузером (IE, Chrome, Opera, Firefox), но и если только для IE, то будет здорово!

Оффлайн madmasles [?]

  • Глобальный модератор
  • *
  • Сообщений: 7790
  • Репутация: 2317
  • Пол: Мужской
  • Награды За модерирование форума
    • Награды
  • Версия AutoIt: 3.3.x.x
Suppir  [?]
Цитировать
страницы, которая у тебя активна в данный момент?  (в IE, для простоты)
_IEAttach(), а дальше возможны варианты.

SECTOR
Код: AutoIt [Выделить]
;...поменяйте у себя
$hOpen = FileOpen($sTempFile, 0)
If Not $hOpen Then
;...на
$hOpen = FileOpen($sTempFile, 0)
If $hOpen = -1 Then
;...и
$iMsg = MsgBox(68, "krd.ru", "Найденно ссылок: " & UBound($aFiles) - 1 & @CRLF & "Начать скачивать?")
;...на
$iMsg = MsgBox(68, "krd.ru", "Найденно ссылок: " & UBound($aFiles) & @CRLF & "Начать скачивать?")

« Последнее редактирование: Июнь 23, 2011, 10:44:28 от madmasles »

Оффлайн Suppir [?]

  • Продвинутый
  • ***
  • Сообщений: 967

  • Автор темы
  • Репутация: 62
    • Награды
« Последнее редактирование: Июнь 23, 2011, 12:49:01 от Suppir »

Оффлайн SECTOR [?]

  • Продвинутый
  • ***
  • Сообщений: 389
  • Репутация: 56
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Цитировать
Код: AutoIt [Выделить]
$iMsg = MsgBox(68, "krd.ru", "Найденно ссылок: " & UBound($aFiles) - 1 & @CRLF & "Начать скачивать?")
;...на
$iMsg = MsgBox(68, "krd.ru", "Найденно ссылок: " & UBound($aFiles) & @CRLF & "Начать скачивать?")


Зачем? Первая ссылка в нулевом элементе массива! :)

Оффлайн RUVATA [?]

  • Осваивающий
  • **
  • Сообщений: 132
  • Репутация: 37
  • Пол: Мужской
  • лучше один раз увидеть, чем десять раз услышать...
    • Награды
Ставьте снифер... (если юзаете FireFox то для него есть вездесущий FireBug - модуль)
Перехватывайте запрос из браузера...
потом при помощи
Код: AutoIt [Выделить]
 $oHTTP = ObjCreate('winhttp.winhttprequest.5.1')

повторяйте запрос
описание методов здесь
Полезный совет? - жми "Полезное сообщение" :) не стесняйся...
И автору приятно, и для соискателей толк.

Оффлайн madmasles [?]

  • Глобальный модератор
  • *
  • Сообщений: 7790
  • Репутация: 2317
  • Пол: Мужской
  • Награды За модерирование форума
    • Награды
  • Версия AutoIt: 3.3.x.x
SECTOR  [?]
Цитировать
Зачем? Первая ссылка в нулевом элементе массива!
Код: AutoIt [Выделить]
Dim $aArray[5] = [1, 2, 3, 4, 5]

MsgBox(64, 'Info', 'Всего элементов в массиве: ' & UBound($aArray) & @LF & _
        'Их индексы от 0 до 4')


Оффлайн SECTOR [?]

  • Продвинутый
  • ***
  • Сообщений: 389
  • Репутация: 56
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
(нажмите для показа/скрытия)

Код немного кривой и заканчивает работу как то "тормознуто", но дело делает :)

PS: Ненавижу IE


Добавлено: Июнь 23, 2011, 12:01:23
RUVATA, заинтересовало... Можно небольшой пример отлова HTML?


Добавлено: Июнь 23, 2011, 12:03:15
Цитировать
ты просто не оставляешь шансов SECTOR'у ! ;D
:rofl:
« Последнее редактирование: Июнь 23, 2011, 12:03:16 от SECTOR, Причина: Объединение сообщений »

Русское сообщество AutoIt


 

Похожие темы

  Тема / Автор Ответов Последний ответ
3 Ответов
3827 Просмотров
Последний ответ Февраль 06, 2012, 14:01:13
от pro100_bear
2 Ответов
2027 Просмотров
Последний ответ Март 01, 2013, 07:30:14
от Zalman1980
1 Ответов
1161 Просмотров
Последний ответ Июль 21, 2015, 18:51:01
от madmasles
0 Ответов
1207 Просмотров
Последний ответ Декабрь 21, 2015, 17:34:13
от Sverx
11 Ответов
1373 Просмотров
Последний ответ Октябрь 04, 2017, 20:24:48
от RipVanWinkel
2 Ответов
559 Просмотров
Последний ответ Январь 11, 2018, 07:11:05
от Boris
2 Ответов
1338 Просмотров
Последний ответ Сентябрь 01, 2018, 04:18:55
от Murikipak
16 Ответов
1518 Просмотров
Последний ответ Март 01, 2018, 01:18:01
от Alofa
4 Ответов
211 Просмотров
Последний ответ Март 23, 2019, 01:54:48
от Bingo888
4 Ответов
422 Просмотров
Последний ответ Июль 16, 2019, 16:10:03
от alex33