Autor
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
Código:
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
Código:
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
En línea
