Autor
CITO EL POST CON EL CODIGO! ESTA AL FINAL DE TODO... DON DA EL CODIGO LO QUE TOMA Y EL RESULTADO...
http://foro.elhacker.net/php/extrayendo_codigo_fuente_de_una_web_problema_con_codigo_generado_por_js-t320899.0.html
Lo uso en una planilla excel... asi que les dejo el codigo que pego en el VBA del excel 2010.
Citar
Public Sub pruebaAJAX()
Dim url As String
Dim codigoFuente As String
url = "http://www.guaranpis.es/nvista.php?yvista=76&xvista=26"
Set XML = CreateObject("MSXML2.XMLHTTP")
XML.Open "GET", url, False
XML.send
If XML.ReadyState = 4 Then
If XML.Status = 200 Then
codigoFuente = StrConv(XML.responsebody, vbUnicode)
End If
End If
Set XML = Nothing
Dim archivoTxt As String
archivoTxt = "C:\codigofuente.txt"
'el archivo txt si existe hay que eliminarlo,
'de lo contrario se van a ir acumulando los codigos en ese mismo archivo
'uno abajo del otro
If Dir(archivoTxt) <> "" Then
Kill archivoTxt
End If
Open archivoTxt For Binary As 1
Put #1, , codigoFuente
Close 1
End Sub
Dim url As String
Dim codigoFuente As String
url = "http://www.guaranpis.es/nvista.php?yvista=76&xvista=26"
Set XML = CreateObject("MSXML2.XMLHTTP")
XML.Open "GET", url, False
XML.send
If XML.ReadyState = 4 Then
If XML.Status = 200 Then
codigoFuente = StrConv(XML.responsebody, vbUnicode)
End If
End If
Set XML = Nothing
Dim archivoTxt As String
archivoTxt = "C:\codigofuente.txt"
'el archivo txt si existe hay que eliminarlo,
'de lo contrario se van a ir acumulando los codigos en ese mismo archivo
'uno abajo del otro
If Dir(archivoTxt) <> "" Then
Kill archivoTxt
End If
Open archivoTxt For Binary As 1
Put #1, , codigoFuente
Close 1
End Sub
Desde ya agradezco mucho cualquier ayuda que me brinden... se muy poco de códigos VB!! Pero estoy pensando hacer un cursito o leer un libro de esto... ya que es lo único en lo que ando flojo con excel.
Saludos, Christian!
En línea
