Hi

I found this , in U.T. Maganize of this month . This work fine , search google for one phone number .
But i don´t want search all the net , but only my country Portugal .
When i open google , i can search all the net , only pages written in portuguese , or only pages of Portugal .

I want use this code to search only pages of Portugal

Can you help me ?

Thanks

clear
#DEFINE READYSTATE_COMPLETE 4
oIE = CreateObject("InternetExplorer.Application")

lcphone="(251) 602-5611"

lcURL="http://www.google.com/search?hl=en&lr=&ie=ISO-8859-1&q="+;
lcphone+;
"&btnG=Google+Search"

oIE.Navigate(lcURL)

do while oIE.Readystate <> READYSTATE_COMPLETE
wait wind time 1.0 ""
enddo

lcInnerText = oIE.Document.Body.InnerText
ln=occur(lcphone,lcInnerText)
if ln>=1
   =alines(aa,lcInnerText)
   for ia=1 to alen(aa)
      if lcphone$aa[ia] and aa[ia]#"Searched the web"
         ?aa[ia]
      endif
   endfor
else
   wait window "NOT FOUND"
endif


oIE.Quit
oIE=.NULL.
release oIE