Autoit.ES

Código: Seleccionar todo

Local Const $sMiversion="1.0"

Local $oHTTP = ObjCreate("winhttp.winhttprequest.5.1")

$oHTTP.Open("GET", "http://textuploader.com/tdxa/raw", False)

$oHTTP.Send()

$oReceived = $oHTTP.ResponseText

$oReceived=StringMid($oReceived,StringInStr($oReceived,'"')+1,3)

$oHTTP = 0


if $oReceived==$sMiversion Then
	MsgBox(0,"","Estoy Actualizado")
Else
	MsgBox(0,"","No Estoy Actualizado, debe Actualizar")
EndIf

Código: Seleccionar todo

Local Const $sMiversion="1.0" ;Declaramos una variable constante que sera la version actual de nuestro programa

Local $oHTTP = ObjCreate("winhttp.winhttprequest.5.1") ;Creamos una referencia a un objecto en este caso "winhttp.winhttprequest.5.1" que nos permite hacer peticines Http

$oHTTP.Open("GET", "http://textuploader.com/tdxa/raw", False) ;utilizamos el metodo Open con la istruccion "GET" para abrir una coneccion para leer el texto plano de la pagina

$oHTTP.Send() ;enviamos la peticion al servidor

$oReceived = $oHTTP.ResponseText ;obtenemos el texto retornado

$oReceived=StringMid($oReceived,StringInStr($oReceived,'"')+1,3) ;esto es manejor de cadenar para delimitar y obtener solo la version 2.3 esto lo haces como quieras.

$oHTTP = 0 ;liberamos el objecto

if $oReceived==$sMiversion Then ;COmparamos si las cadenas son iguales. osea la version que leo del servidor y la version de mi aplicacion.
   MsgBox(0,"","Estoy Actualizado")
Else
   MsgBox(0,"","No Estoy Actualizado, debe Actualizar")
EndIf

Código: Seleccionar todo

#include <MsgBoxConstants.au3>

Example()

Func Example()

    Local $bData = InetRead("http://textuploader.com/tdxa/raw") ;Lees los datos desde la url

    ;los bytes leidos los retorna @extended
    Local $iBytesRead = @extended

    ; conviertes a cadena
    Local $sData = BinaryToString($bData)

    ; Mouestras el resultado
    MsgBox($MB_SYSTEMMODAL, "", "The number of bytes read: " & $iBytesRead & @CRLF & @CRLF & $sData)
EndFunc   ;==>Example