Detectar version, si es incorrecta se cierra el juego sensillisimo

» 14 Jul 2009 03:31

Vuelvo con un aporte

, lei por ai que nesesitan que su cliente compruebe la vercion.
Tonses como que implemente el updater de shed en mi servidor, me lo puse a leer hasta comprenderlo e ise este codigo sensillo pero efectivo

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:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

[INIT]
X=1

y 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:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

        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:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

analizar

si xd simplemente en alguna aprte pongan analizar, ami me quedo asi:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

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

me quedo en la linea 14

Y eso fue todo, es sensillito pero util

» 14 Jul 2009 12:27

Exelente, aporte.
Y no estaba

.
Saludos y segui así.

» 14 Jul 2009 18:22

jojo gracias por el comentario, ai arregle algunas cositas que estaban mal o que me faltaron, esta testeado y anda al 100%

» 14 Jul 2009 22:54

Gracias capo, es lo que estaba buscando

.
es mucho pedir que le agas algo para que cuando pongas aceptar en el cartelito se inicie el updater solo

?

» 15 Jul 2009 00:28

Ya está eso implementado en AO

Fijate que si en el server.ini cambias la version, te tira error. Pasa que la mayoria ni sabe como cambiar el valor de la vesion del cliente

» 15 Jul 2009 01:11

MUY bueno! Esta bueno el codigo, es un acople para el launcher asi detecta mas rapido la cosa y no tiene que esperar para abrir el cliente.

OFF: Rubio el numero del lciente no se cambia desde el proyecto en propiedades?

Detectar version, si es incorrecta se cierra el juego sensillisimo

¿Quién está conectado?