;Netlog Photo Downloader

;By Red Skull 92

;Www.RedSkull92.Wordpress.Com

;RedSkull92 AT gmail DOT com

#include <ie.au3>

Dim $trov

$stringa=InputBox("URL","Inserisci l'url dal quale scaricare la foto"&@crlf&"ESEMPIO : http://it.netlog.com/napulegnadoc/phot"&@crlf&"o/photoid=28804914#photos")

If @error Then

   MsgBox(48,"Attenzione","errore numero : "&@error)

   Exit

EndIf

$creo=_IECreate($stringa,0,0)

$leggo=_IEBodyReadHTML($creo)

$levo=StringStripWS($leggo,8)

$cerco=StringRegExp($levo,'http://it.netlogstatic.com//p/oo(.+?)["]',2)

For $i=1 to UBound($cerco) - 1

$trov = $cerco[$i]

Next

$scarico=InetGet("http://it.netlogstatic.com//p/oo"&$trov,@DesktopCommonDir&"\immagine_downloadata.jpg")

If $scarico = 0 Then

   MsgBox(48,"Attenzione","Impossibile trovare e scaricare l'immagine.")

   Exit

EndIf

MsgBox(64,"Info","Download completato !"&@crlf&" L'immagine scaricata si trova sul desktop con il nome : 'immagine_downloadata.jpg'")

_IEQuit($creo)