Sub Globals
Dim currentversion As Int : currentversion = 7
End Sub
Sub AutoUpdate
Dim request As HttpRequest
request.InitializeGet("http://www.mywebsite.com/version.txt")
request.Timeout = 8000
httpClient.Execute(request, 1)
End Sub
Sub http_ResponseSuccess (Response As HttpResponse, TaskId As Int)
If TaskId = 1 Then
Dim result, news, ver As String
Dim break As Int
result = Response.GetString("UTF8")
break = result.IndexOf("|")
ver = result.SubString2(0, break)
news = result.SubString(break+1)
If ver > currentversion Then
'Sub to update
End If
End If
End Sub