20/04/2004, 02:03
|
 | | | Fecha de Ingreso: abril-2004 Ubicación: Villabona Cyti
Mensajes: 252
Antigüedad: 21 años Puntos: 0 | |
| Consegido
Me costo muchas horas de navegacion y pruebas, pero lo logre aki te dejo el codigo por si te sirve.
Function registros_servidor(strPage, tipo)
Err.Number = 0
miruta = CurDir
nombre = miruta & "\registros_" & tipo & "_servidor.html"
Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", strPage, False, "", ""
objXMLHTTP.Send
If Err.Number = 0 Then
If objXMLHTTP.Status = 200 Then
GetHTML = objXMLHTTP.responseText
Else
' Modificar para mensaje de pagina no encontrada
GetHTML = "Url incorrecta"
End If
Else
GetHTML = Err.Description
End If
Set fso = CreateObject("Scripting.FileSystemObject")
Set mi_archivo = fso.CreateTextFile(nombre, True)
On Error Resume Next
mi_archivo.Write (GetHTML)
'MsgBox Err.Description & " - " & Err.Description
mi_archivo.Close
End Function |