window=Centerwindow("Google",1024,768)
textfeld=CreateTextArea(5,5,1024-15,(768-35)/2-5,window)
Global response$=""

listbox=CreateListBox(5,5+(768-35)/2,1024-15,(768-35)/2,window)

suchwort$="BlitzForum"
google=OpenTCPStream("www.google.de",80)
If google=0 Then RuntimeError "Google gibt's nicht!!!"
WriteLine google,"Get http://www.google.de/search?as_q="+suchwort$+"&hl=de&num=100&btnG=Google-Suche&as_epq=&as_oq=&as_eq=&lr=&cr=&as_ft=i&as_filetype=&as_qdr=all&as_occt=any&as_dt=i&as_sitesearch=&as_rights=&safe=images HTTP/1.0"
WriteLine google,"host: www.google.de"
WriteLine google,""

While Not Eof(google)
   response$=response$+ReadLine(google)
   response$=response$+Chr(10)
Wend

linkpos=0
lastpos=0
linkendpos=0

Repeat
   linkpos=Instr(response$,"<a href",lastpos)
      If linkpos=0 Then Exit
   linkendpos=Instr(response$,Chr(34),linkpos+9)
   link$=Mid(response$,linkpos+9,linkendpos-linkpos-9)
   If Instr(link$,".google.") Or Left(link$,1)="/" Or Instr(link$,"youtube") Then Goto googlelink
   AddGadgetItem listbox,link$
   .googlelink
   lastpos=linkendpos+1
Forever

SetGadgetText textfeld,response$

Repeat
   event=WaitEvent()
   If event=$803 Then
      End
   ElseIf event=$401
      source=EventSource()
      If source=listbox Then
         evdat=EventData()
      ExecFile GadgetItemText$(listbox,evdat)
      EndIf
   EndIf
Forever

Function CenterWindow (title$, width, height, group = 0, style = 1)
   Return CreateWindow (title$, (ClientWidth (Desktop ()) / 2) - (width / 2), (ClientHeight (Desktop ()) / 2) - (height / 2), width, height, group, style)
End Function