Что нового

Скачать все скриншоты рабочих столов с сайта http://www.linux.org.ru/

damien2008

Осваивающий
Сообщения
157
Репутация
30
AutoIt: 3.3.8.1
Версия: 1.0
Лицензия:
Категория: Автоматизация, Интернет, Разное

Описание:
привет всем) вот решил набросать скрипт, который скачивает с сайта http://www.linux.org.ru/ скриншоты рабочих столов.
так, чисто для эксперимента, если кто хочет посмотреть, на чем работали, /работают/ люди.
вся база по состоянию на вчера (11.02.2013) была 2,32 ГБ (2 499 028 683 байт), 8120 шт. ;D
сильно не пинать писалось на скорую руку :smile:

Код/Пример:
Код:
#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
 
Верх