Что нового

История аватарок Вконтакте

DeLeTeSHift

Знающий
Сообщения
46
Репутация
9
Небольшая однофункциональная утилита, просто открывающая все аватарки пользователя, ID которого вы указали, может кому и пригодится

Исходник:
Код:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 277, 152, 192, 124)
$Label1 = GUICtrlCreateLabel("ID:", 16, 40, 33, 35)
GUICtrlSetFont(-1, 20, 800, 0, "One Stroke Script LET")
$v_Input_1 = GUICtrlCreateInput("", 56, 40, 121, 21)
$Button1 = GUICtrlCreateButton("Открыть историю аватарок", 56, 96, 147, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		 Case $Button1
            Go()
            Exit			
	EndSwitch
WEnd

Func Go()
$v_Input = String(GUICtrlRead($v_Input_1))
ShellExecute("http://vk.com/album" &$v_Input& "_0")
EndFunc
 

MnM

Post-Hardcore
Сообщения
679
Репутация
90
У кого нибудь остался код, а то с форума как всегда нельзя скачать
 

---Zak---

Скриптер
Сообщения
455
Репутация
120
Аватарки пользователя VK хранятся в отдельном альбоме с пометкой "_0"

Полная версия
Код:
http://vk.com/album<ID_User>_0
Мобильная версия
Код:
http://m.vk.com/album<ID_User>_0

В зависимости от версии можно регуляркой перебрать все аватарки VK
PS: Замени <ID_User> на ID пользователя
 
Верх