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.
(http://i55.servimg.com/u/f55/14/27/29/04/file_111.png)
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
O alguna otra forma de avisar de nuevas actualizaciones?
Enviado desde mi GT-I9300 mediante Tapatalk
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!
Obtén el texto en variables y comparas.
saludos