Что нового

Скрипт для скачки картинок из групп в Вконтакте.

Black_Hole

Знающий
Сообщения
126
Репутация
11
AutoIt: 3.3.9.4
Версия: 1.01a

Категория: Автоматизация, Интернет, Разное
Описание: Скачка картинок из групп в Вконтакте.

Код/Пример:
Код:
#include 'array.au3'
global $x = 33							;Количество скачиваемых картинок XXX шт.
global $s = './'						;В какую папку скачивать картинки.
global $R_group = 'http://vk.com/i4sms'	;Ссылка на группу в VK.
;--------------------------------------------------------------------------------------------
global $R_a = BinaryToString(InetRead($R_group), 4)
global $R_b = StringRegExp($R_a, '(photo\-.*?)\"', 3)
global $R_c = StringRegExpReplace($R_b[0], '.*\-(.*?)\_.*', '$1')
global $R_d = StringRegExpReplace($R_b[0], '.*\_(.*?)\?.*', '$1')
global $R_e = $R_group&'?z=photo-'&$R_c&'_'&$R_d&'%2Falbum-'&$R_c&'_00%2Frev'
;--------------------------------------------------------------------------------------------
global $urlA = $R_e
global $a = BinaryToString(InetRead($urlA), 4)
global $b = StringRegExp($a, '\=\"\/(.*?)\"', 3)
;--------------------------------------------------------------------------------------------
for $i=0 to $x
$urlB = 'http://vk.com/'&StringRegExpReplace($urlA, '.*\.com\/(.*?)\?z.*', '$1')&'?z=photo-'&StringRegExpReplace($b[7], '.*\-(.*?)\_.*', '$1')&'_'&StringRegExpReplace($b[7], '.*\_(.*?)\?.*', '$1')&'%2Falbum-'&StringRegExpReplace($b[7], '.*\-(.*?)\_.*', '$1')&'_00%2Frev'&chr(13)
$a = BinaryToString(InetRead($urlB), 4)
$b = StringRegExp($a, '\=\"\/(.*?)\"', 3)
$c = StringRegExp($a, '\"(.*?)\"', 3)
$d = StringRegExpReplace($c[95], '.*\/\/.*\/(.*?)', '$1')
InetGet($c[95], $s&$d, 1)
$urlB = ""
next
;--------------------------------------------------------------------------------------------
msgbox(0,0,"End")

Источник: autoit-script.ru
Автор(ы): Black_Hole
 
Верх