Ver Mensaje Individual
  #1 (permalink)  
Antiguo 01/05/2009, 05:58
problematico
 
Fecha de Ingreso: abril-2009
Mensajes: 2
Antigüedad: 15 años, 1 mes
Puntos: 0
Obtener una variable de una pagina mediante visual basic

Hola a todos:

Les comento que este es mi primer foro.

Tengo problema de con un programa que tenemos en visual basic en la empresa.
El codigo en cuestion es el siguiente:

Funcion ObtenerPrecioML

UserFormWEB.WebBrowser1.Navigate "h t t p://articulo (punto) mercadolibre (punto) com (punto) ar/jm/item?site=MLA&id=" & articulo

'( NO ME DEJA PUBLICAR ENLACES POR ESO LO PUSE ASI)
Do
DoEvents

Loop Until UserFormWEB.WebBrowser1.ReadyState = READYSTATE_COMPLETE
If UserFormWEB.WebBrowser1.Documents.forms.Length <> 4 Then

ObtenerPrecioML = "Pausado"

Exit Function
End If

With UserFormWEB.WebBrowser1.Document

PRECIO = .form.Item(3).Item(4).Value
PRECIO = Replace(PRECIO, ".", ",")

If InStr(1, .Title, "U$S") Then
mldolar = True
Else
mldolar = False
End If

End With


Lo que hace es entrar a un articulo de mercadolibre, y determinar si esta activo o pausado, importar el precio e imprimilo en un excel. La unica entrada es el numero de articulo (articulo), que lo tenemos en una planilla, por ejemplo 52027944 esta activo y queremos saber el precio, y uno pausado 52028139 y queremos saber si esta pausado nada mas.

La cosa es que mercado libre cambio algo en su pagina, y ya no me funciona. Y el chico que hizo el codigo ya no esta, y necesito que funcione. Lo que ni yo ni un amigo programador sabemos es donde esta haciendo la busqueda aca por ejemplo: PRECIO = .form.Item(3).Item(4).Value

bueno, espero soluciones.
Gracias.

problematico