Graphics(800,400,16,2)
Loadtcpfile("http://images.google.de/images?q=kirsten%20stewart&oe=utf-8&rls=org.mozilla:de:official&client=firefox-a&um=1&ie=UTF-8&sa=N&hl=de&tab=wi","quell.txt")
file=ReadFile("quell.txt")

Repeat
Linex$=ReadLine(file)


Repeat

picin=Instr(linex$,".jpg",picin+3)


adressin=Instr(linex$,"http",adressin+1)
If picin>pic1 Then
link$=Mid(linex$,adressin,picin-adressin+4)
linkend=Instr(link$,".jpg")
link$=Left(link$,linkend+3)

If Right(link$,3) ="jpg" Then

EndIf

EndIf


Until picin =0


Until Eof(file)

Function LoadTCPfile%(url$,save$)
   host$="www"+Mid$(url$,Instr(url$,"."),Instr(url$,"/",8)-Instr(url$,"."))
   tcp=OpenTCPStream(host$,80)
   
   If Not tcp Then
    Print "Verbindung Fehlgeschlagen"
   Return "no"
   Goto no
   EndIf
      
WriteLine tcp,"GET "+url$+" HTTP/1.0"+Chr(10)
   WriteLine tcp,"Host: "+host$+Chr(10)
   WriteLine tcp,Chr$(10)
   If Eof(tcp) Print "Verbindung Fehlgeschlagen"
   Repeat
      z$=ReadLine$( tcp )

   Until z$=""
   
   dat=WriteFile(save$)
   While Not Eof(tcp)
      byte=ReadByte( tcp )
      WriteByte dat,byte
   Wend
.no
   CloseFile dat
   CloseTCPStream tcp


   
End Function

dyn.setResults([[...],[....],[...]]);

url$="http://images.google.de/images?q=kirsten%20stewart&oe=utf-8&rls=org.mozilla:de:official&client=firefox-a&um=1&ie=UTF-8&sa=N&hl=de&tab=wi"

Graphics(800,400,16,2)
tcp = OpenTCPStream("www.google.de", 80)
If Not tcp Print "Fehlgeschlagen": WaitKey : End

WriteLine tcp, "GET " +url$+ " HTTP/1.0"
WriteLine tcp, Chr$(10)
If Eof(tcp)  End

While Not Eof(tcp)
  la$=la$+ReadLine(tcp)
Wend


Repeat

 httpin=Instr(la$,"imgurl",httpin+1)
jpgin=Instr(la$,"\x26imgrefurl",jpgin+1)




anz=jpgin-10
anz=anz-httpin
 adress$=Mid(la$,httpin+10,anz)
For ASCII=32 To 255 ;Ich weiß nicht, wie weit man das optimieren kann.
If ASCII<>37 ;Das Prozentzeichen darf erst nach allen anderen Zeichen entstehen.
adress$=Replace(adress$,"%"+Right(Hex(ASCII),2),Chr(ASCII))
EndIf
Next
adress$=Replace(adress$,"%"+Right(Hex(37),2),"%")
ExecFile adress$
WaitKey



Until httpin=0