damien2008
Осваивающий
- Сообщения
- 178
- Репутация
- 34
AutoIt: 3.3.8.1
Версия: 1.0
Лицензия:
Категория: Автоматизация, Интернет, Разное
Описание:
привет всем) вот решил набросать скрипт, который скачивает с сайта http://www.linux.org.ru/ скриншоты рабочих столов.
так, чисто для эксперимента, если кто хочет посмотреть, на чем работали, /работают/ люди.
вся база по состоянию на вчера (11.02.2013) была 2,32 ГБ (2 499 028 683 байт), 8120 шт. ;D
сильно не пинать писалось на скорую руку
Код/Пример:
Снимок:
Источник: autoit-script.ru
Автор(ы): damien2008
Версия: 1.0
Лицензия:
Категория: Автоматизация, Интернет, Разное
Описание:
привет всем) вот решил набросать скрипт, который скачивает с сайта http://www.linux.org.ru/ скриншоты рабочих столов.
так, чисто для эксперимента, если кто хочет посмотреть, на чем работали, /работают/ люди.
вся база по состоянию на вчера (11.02.2013) была 2,32 ГБ (2 499 028 683 байт), 8120 шт. ;D
сильно не пинать писалось на скорую руку
Код/Пример:
Код:
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.8.1
Author: damien2008
Script :
Скачать все скриншоты рабочих столов с сайта http://www.linux.org.ru/
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
#include <Array.au3>
#include <Inet.au3>
If Not FileExists(@ScriptDir & '\lor screenshots') Then DirCreate(@ScriptDir & '\lor screenshots')
$_sURL = "http://www.linux.org.ru/gallery/archive/"
$Read = BinaryToString(InetRead($_sURL), 4)
$_ArrUrls = StringRegExp($Read, '"(.*?\/archive\/.*?)"', 3)
For $i = 0 To UBound($_ArrUrls) - 1
$a = 'http://www.linux.org.ru' & $_ArrUrls[$i]
$Read2 = BinaryToString(InetRead($a), 4)
$_ArrUrls2 = StringRegExp($Read2, '(http://.*?\/gallery\/.*?)"\>Просмотр', 3)
For $i2 = 0 To UBound($_ArrUrls2) - 1
$a2 = StringRegExpReplace($_ArrUrls2[$i2], '.*gallery\/', '$1')
InetGet($_ArrUrls2[$i2], @ScriptDir & '\lor screenshots\'& $a2, 1,1)
ConsoleWrite($a2 & @CRLF)
Next
Next
Снимок:
Источник: autoit-script.ru
Автор(ы): damien2008