Hallo,
gibt es eine Möglichkeit bei der Google Bildersuche die Bilder "groß" zu öffnen?
Also quasi die Vollbild Ansicht, damit man die mit InetGet Downloaden kann.
Ich weiß nicht wie ich es anstellen soll.
Hallo,
gibt es eine Möglichkeit bei der Google Bildersuche die Bilder "groß" zu öffnen?
Also quasi die Vollbild Ansicht, damit man die mit InetGet Downloaden kann.
Ich weiß nicht wie ich es anstellen soll.
Bei Google Bilder -> Erweiterte Sucheinstellungen kann man Größen angeben. aber Ich weiß nciht, ob das sich auf die Bilder oder auf das Anzeigen der Bilder bezieht
Im Quellcode der Google-Seite stehen doch auch alle Links zu den orginalen Bildern. Diese filterst du und lädst anschließend per inetget()
du musst einfach an den link der Bildersuche
anfügen.
Bsp.:
"Original Link:" http://images.google.de/images?q=wallpaper&oe=utf-8&rls=org.mozilla:de:official&client=firefox-a&um=1&ie=UTF-8&sa=N&hl=de&tab=wi
"Modifizierter Link:" http://images.google.de/images?q=wallpaper&oe=utf-8&rls=org.mozilla:de:official&client=firefox-a&um=1&ie=UTF-8&sa=N&hl=de&tab=wi#tbo=1&imgsz=l
du kannst doch die links auslesen, sammeln,filtern und dann downloaden oder?
Mein bisheriger Ansatz:
[autoit]#RequireAdmin
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <INet.au3>
#include <String.au3>
#Region ### START Koda GUI section ###
$Form1 = GUICreate("Cover Downloader", 523, 582, 900, 248)
$Name = GUICtrlCreateInput("Name", 88, 72, 345, 21)
$Label1 = GUICtrlCreateLabel("Cover Downloader", 144, 16, 239, 31)
GUICtrlSetFont(-1, 18, 800, 0, "Lucida Fax")
$Suchen = GUICtrlCreateButton("Suchen", 136, 104, 251, 25, $WS_GROUP)
$Next = GUICtrlCreateButton("Nächstes", 208, 200, 115, 49, $WS_GROUP)
$Download = GUICtrlCreateButton("Download", 216, 536, 115, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Suchen
$i = "1"
$Titel = GUICtrlRead($Name)
$Titel = StringReplace ($Titel, " ", "+")
$Link = "http://images.google.de/images?um=1&hl=de&tbs=isch%3A1&sa=1&q="&$Titel&"+Cover&btnG=Suche&aq=f&oq=&start=0"
$Quelltext = _INetGetSource ($Link)
$CoverLink = _StringBetween ($Quelltext, "src=", ".jpg")
InetGet ($CoverLink[$i]&".jpg", @TempDir&"Cover-"&$Titel&".jpg")
$i = $i+1
$Pic1 = GUICtrlCreatePic(@TempDir&"Cover-"&$Titel&".jpg", 120, 272, 292, 244, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Case $Next
GUICtrlDelete ($Pic1)
InetGet ($CoverLink[$i]&".jpg", @TempDir&"Cover-"&$Titel&".jpg")
$i = $i+1
If $i > UBound($CoverLink)-1 Then
$i = "1"
EndIf
$Pic1 = GUICtrlCreatePic(@TempDir&"Cover-"&$Titel&".jpg", 120, 272, 292, 244, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Case $Download
InetGet ($CoverLink[$i]&".jpg", "C:\Cover-"&$Titel&".jpg")
EndSwitch
WEnd
Nur die Bilder sind sehr klein!