Auto update

Pasos a seguir:

1) Crean un archivo llamado Update.ini Y LO PONEMOS EN LA CARPETA INIT DEL CLIENTE (si implementaron el updater de shed y lo tienen, no es nesesario xd salta este paso y el segundo si es asi)

Dentro del archivo pongan de texto:
[INIT]
X=1

lo guardan (entonses su cliente sera "version 1")

2) Ahora crean un archivo de texto llamado VEREXE.txt y adentro ponganle 1, y luego subanldo a su hosting, (recomendamos t35.com)

2b?) en verexe ponemos 1, porque es la "vercion" de su cliente, cuando decidan que el cliente que tiene la gente, es version vieja, agarran el verexe.txt y le ponen 2 ¡¡¡Y LO VUELVEN A SUBIR!!! ENTONSES mi codigo cuando lea el update.ini y vea que en el verexe dice 2, y en su cliente dice 1, se va a dar cuenta que la vercion es vieja, entonses saldra un cartel que dice: "Su vercion no es la actual, simple "

Ahora que ya les explique como funciona, les mando el codigo

En el frmconnect, crean un inet llamado Inet1 y abajo del option explicitit ponen:

Código:

      Function Analizar()
            On Error Resume Next
           
            Dim iX As Integer
            Dim tX As Integer
            Dim DifX As Integer
           
                iX = Inet1.OpenURL("http://www.TU-USUARIO.t35.com/VEREXE.txt") ' oviamente cambien lo que dice tu usuario
                tX = GetVar(App.Path & "\INIT\Update.ini", "INIT", "X")
                DifX = iX - tX
           
            If Not (DifX = 0) Then
            MsgBox ("Su version no es la actual, porfavor ejecute el Updater") ' esto es lo que aparecera cuando la vercion sea vieja, pueden cambiarlo
            End
            End If
            End Function

Ahora vamos a hacer que cuando se inicie el juego, se active ese codigo, asi que en el sub from load del frmconnect ponen en alguna parte:

Código:

analizar

Ami me quedo asi:
[code]Private Sub Form_load()
'[CODE 002]:MatuX
EngineRun = False
'[END]

Dim j
For Each j In Image1()
j.Tag = "0"
Next
PortTxt.Text = Config_Inicio.Puerto

FONDO.Picture = LoadPicture(App.Path & "\Graficos\Conectar.jpg")
Winsock1.Connect "secretito:P.no-ip.biz", "7666"
Analizar
WebBrowser1.Navigate "http://notelodigo:).awardspace.biz/noti.html"
'[code]:MatuX
'
' El código para mostrar la versión se genera acá para
' evitar que por X razones luego desaparezca, como suele
' pasar a veces
version.Caption = "v" & App.Major & "." & App.Minor & " Build: " & App.Revision
'[END]'

End Sub[/code]