lcURL="<a href=http://www.google.com/search?hl=en&lr=&ie=ISO-8859-1&q= target="_blank">http://www.google.com/search?hl=en&lr=&ie=ISO-8859-1&q=</A>"+;
<\PRE>

for:

<PRE>
lcURL="<a href=http://www.google.com/search?hl=en&lr=lang_pt&ie=ISO-8859-1&q= target="_blank">http://www.google.com/search?hl=en&lr=lang_pt&ie=ISO-8859-1&q=</A>"+;
<\PRE>

>Hi
>
>Thanks
>
>But , how can i change this code , for lr=lang_pt
>
>Thanks
>
>
><PRE>
>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
>
>