Como revisar version subida en github de un programa.

Si tenemos un proyecto subido a github, podemos comprobar si la versión del programa que estamos ejecutando es la última. 

El código es el siguiente:

Suponiendo que el proyecto este alogado en una cuenta llamada "mcattani" y el proyecot se llama "clamscangui"

1. Public Sub Form_Open()
2.  
3.   Dim vChk As String
4.  
5.   vChk = GitVersion("https://raw.githubusercontent.com/mcattani/clamscangui/master/.project")
6.  
7.   If Application.Version <> vChk Then
8.     Message.Info(("New version found") & ": " & vChk)
9.   Endif
10.  
11. End
12.  
13. Public Function GitVersion(raw As String) As String
14.  
15.   Dim s As String
16.   Dim stx As String[]
17.   Dim r As String
18.   Dim v As String
19.  
20.   v = ""
21.   If Exist("/tmp/project.txt") Then
22.     Shell "rm /tmp/project.txt" Wait
23.   Endif
24.  
25.   Shell "wget -O '/tmp/project.txt' '" & raw & "'" Wait
26.   If Exist("/tmp/project.txt") Then
27.     s = File.Load("/tmp/project.txt")
28.     stx = Split(s, "\n")
29.     For Each r In stx
30.       If InStr(r, "Version=") Then
31.         If Split(r, "=")[0] = "Version" Then
32.           v = Split(r, "=")[1]
33.           Break
34.         Endif
35.       Endif
36.     Next
37.   Endif
38.   Return v
39. End

La función GitVersión, le pasamos de parámetro la ruta donde esta alojada el fichero .project de nuestro proyecto y lo descarga, leyendo la linea que tiene el numero de versión de nuestro proyecto y la compara con la de la aplicación que se esta ejecutando.

Fuente:

https://gambas-es.org/showthread.php?tid=251

Autor del codigo original: Tincho