 
			
				01/05/2009, 05:58
			
			
			     |  
      |    |    |    Fecha de Ingreso: abril-2009  
						Mensajes: 2
					  Antigüedad: 16 años, 6 meses 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           |