Change:
lcURL="http://www.google.com/search?hl=en&lr=&ie=ISO-8859-1&q="+;
for:
lcURL="http://www.google.com/search?hl=en&lr=lang_pt=&ie=ISO-8859-1&q="+;
>Hi
>
>Thanks
>
>But , how can i change this code , for lr=lang_pt
>
>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
>
>
