[VB6]CONEXAO COM GOOGLE SEARCH

STRAUJI 18/05/2013 16:35:43
#423706
[txt-color=#0000f0] Olá, Hoje estava fazendo uma aplicação que entra no google por meio do componente Webbrowser, consegui, ele entrava e talz,queria que ele retornasse o código HTML da pagina, para que fosse pego o primeiro resultado e exibido,para isso usei o controle inet, mas quando fui ver, o que exibia, era uma mensagem do google dizendo:
Citação:

<!DOCTYPE html><html lang=en><meta charset=utf-8><meta name=viewport content=[Ô]initial-scale=1, minimum-scale=1, width=device-width[Ô]><title>Error 403 (Forbidden)!!1</title><style>*{margin:0;padding:0}html,code{font:15px/22px arial,sans-serif}html{background:#fff;color:#222;padding:15px}body{margin:7% auto 0;max-width:390px;min-height:180px;padding:30px 0 15px}* > body{background:url(//www.google.com/images/errors/robot.png) 100% 5px no-repeat;padding-right:205px}p{margin:11px 0 22px;overflow:hidden}ins{color:#777;text-decoration:none}a img{border:0}@media screen and (max-width:772px){body{background:none;margin-top:0;max-width:none;padding-right:0}}</style><a href=//www.google.com/><img src=//www.google.com/images/errors/logo_sm.gif alt=Google></a><p><b>403.</b> <ins>That’s an error.</ins><p>Your client does not have permission to get URL <code>/search?q=teste</code> from this server. (Client IP address: 187.33.96.49)<br><br>
Please see Google[ô]s Terms of Service posted at http://www.google.com/terms_of_service.html
<BR><BR><P>If you believe that you have received this response in error, please <A HREF=[Ô]http://www.google.com/support/bin/request.py?co


Alguem poderia me ajudar a resolver isso?[/txt-color]
STRAUJI 19/05/2013 00:05:11
#423718
Alguem...
PAYDANA 19/05/2013 22:25:18
#423732 Resposta escolhida
Private Sub PegaHtml_Click()
On Error Resume Next
Dim str As String

i = 0
Do While True
str = Form1.WebBrowser1.Document.All(i).outerHTML
Text1.Text = str
Open App.Path & [Ô]\pag.html[Ô] For Append As #1
Print #1, str
Close #1
If InStr(UCase(str), [Ô]</HTML>[Ô]) > 0 Then
Exit Do
End If
i = i + 1
Loop

End Sub
STRAUJI 20/05/2013 15:47:13
#423770
[txt-color=#0000f0]Agradeço, pela ajuda, funcionou :P [/txt-color]
Tópico encerrado , respostas não são mais permitidas
Voltar