Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Tenho um código em ASP e to tentando migrar para Asp.NET (vb) mas nao to conseguindo resultado, alguem pode me dizer onde estou errando:
'EM ASP
'Faz a busca no Google
vXMLHttpRequest = CreateObject("Microsoft.XMLHTTP")
vXMLHttpRequest.Open("GET", "http://www.google.com.br/search?hl=pt-BR&num=100&filter=0&q=site%3Ag3formaturas.com.br++" & Request. QueryString("entradaPesquisa"), False)
vXMLHttpRequest.send()
vResultadoTemporario = vXMLHttpRequest.ResponseText
vXMLHttpRequest = Nothing
'Monta o resultado
vResultadoSplitTemporario = Split(vResultadoTemporario, "<div class=g><h2 class=r>", -1, 1)
vResultado = Empty
For vXyz = 1 To UBound(vResultadoSplitTemporario)
vResultado = vResultado & Right("00" & vXyz, 2) & ". " & vResultadoSplitTemporario(vXyz)
vResultadoSplit = Split(vResultado, "<nobr>", -1, 1)
vResultado = vResultadoSplit(0)
vResultado = Replace(vResultado, "</h2><table border=0 cellpadding=0 cellspacing=0><tr><td class=""j"">", "<br/>")
vResultado = Replace(vResultado, "<div class=sml>", Empty)
vResultado = Replace(vResultado, "<div class=std>", Empty)
vResultado = Replace(vResultado, "<br>", "<br/>")'Buscar o conteudo
Dim vXMLHttpRequest = CreateObject("Microsoft.XMLHTTP")
vXMLHttpRequest.Open("GET", "http://www.google.com.br/search?hl=pt-BR&num=100&filter=0&q=site%3Ag3formaturas.com.br++" & Request.QueryString("Questao"), False)
vXMLHttpRequest.send()
'Resultado da busca
Dim vResultadoTemporario As String = vXMLHttpRequest.ResponseText
vXMLHttpRequest = Nothing
Dim vResultadoSplitTemporario As Array = Split(vResultadoTemporario, "<div class=g><h2 class=r>", -1, 1)
Dim vResultadoSplit As Array
Dim vAbc As String
Dim vResultado As String = ""
For vXyz = 1 To UBound(vResultadoSplitTemporario)
vResultado &= Right("00" & vXyz, 2) & ". " & vResultadoSplitTemporario(vXyz)
vResultadoSplit = Split(vResultado, "<nobr>", -1, 1)
vResultado = vResultadoSplit(0)
vResultado = vResultado.Replace("</h2><table border=0 cellpadding=0 cellspacing=0><tr><td class=""j"">", "<br/>")
vResultado = vResultado.Replace("<div class=sml>", "")
vResultado = vResultado.Replace("<div class=std>", "")
vResultado = vResultado.Replace("<br>", "<br/>")Carregando comentários...