Comparar valores de "webbrowser"

Iniciado por rapbyone, 6 Enero 2014, 20:36 PM

0 Miembros y 1 Visitante están viendo este tema.

rapbyone

Tengo un código, que muestra paginas web.

El primero "WebBrowser1" muestra el contenido de un archivo de texto alojado en un servidor

y el "webrowser2" muestra el contenido de un archivo de texto en un directorio de windows.



Lo que yo quiero es que se haga una comparación entre el WebBrowser1 y el WebBrowser2 y si los valores son distintos, muestre un mensaje diciendo que hay una nueva versión.

Esto es lo que tengo, pero no aparece el MSGBOX

Private Sub Form_Load()
If Val(WebBrowser2) <> Val(WebBrowser1) Then
   MsgBox ("Hay una nueva actualizacion...")
   
End If
End Sub


Este es el código completo

Private Sub Form_Resize()

   Dim linea As String
   Dim c As String
   
' Muestra en textbox contenido archivo version.txt

   Dim contenido As String 'Variable donde se guardará el texto
   WebBrowser2.Navigate (Environ$("ProgramFiles") & "\KONAMI\Pro Evolution Soccer 6\Launcher\version2.html")
         
   'Le indicamos al WebBrowser que cargue la url
       Sleep 3 'Le damos oportunidad al WebBrowser de cargar la pagina web
 
   
 ' Muestra en textbox contenido archivo version.txt desde servidor
   
  'Variable donde se guardará el texto
   WebBrowser1.Navigate "www.chile-pro.com/updatepatch/Launcher/version2.html" 'Le indicamos al WebBrowser que cargue la url
   Sleep 3 'Le damos oportunidad al WebBrowser de cargar la pagina web  
 
End Sub


Ayuda por favor

rapbyone

O alguna otra forma de avisar de nuevas actualizaciones?

Enviado desde mi GT-I9300 mediante Tapatalk

Shell Root

Cual es el texto que se guarda en los dos archivos? Creo que esa es la forma más fácil. La otra sería, -si mal no recuerdo-, ClickOnce!
Por eso no duermo, por si tras mi ventana hay un cuervo. Cuelgo de hilos sueltos sabiendo que hay veneno en el aire.

Danyfirex

Obtén el texto en variables y comparas.

saludos