Con el auto autoupdate.

Este tema se encuentra cerrado.

» 10 Jun 2011 19:14

Bueno si como verán en el título el problema es con el autoupdate que posteó un usuario acá pero para que se ejecute automáticamente...

Bueno miren este es el problema:

ft47751_autoejecutar_autoupdate_en_caso_de_actualizacion.html

Bueno acá :

'Variable que contiene el numero de actualización correcto del servidor
iX = Inet1.OpenURL("http://www.tuhost.com/VEREXE.txt")
'Variable que contiene el numero de actualización del cliente
tX = GetVar(App.Path & "\INIT\Update.ini", "INIT", "X")
'Variable con la diferencia de actualizaciones servidor-cliente
DifX = iX - tX

Puse el host en este caso ucoz etc eso ta todo bien bueno de esto no tengo problema...

En realidad me genera bárbaro y me funciona de 10! pero el problema es que al descargar el zip no me lo guarda osea hice un zip cualquiera.

Con elk nombre

Parche.zip

Adentro del zip tiene un gráfico de guarda del caos que lo encontre tirado... pero cuando se extrae el autoupdate es decir pongo INICIAR se carga y cabum actualización terminada no me queda el gráfico en la carpeta

del juego digamos...

Bueno gracias desde ya!

Y dejo como configuré !

strURL = "http://harek-ao.ucoz.es/parche" & CStr(i + tX) & ".zip" 'URL del parche .zip
Darchivo = App.Path & "\INIT\Parche" & i + tX & ".zip" 'Directorio del parche
Call addConsole(" Descargando parche nº " & i, 0, 0, 255, False, True) '>> Informacion
Call AutoDownload(i + tX) 'Descargamos todas las versiones faltantes a partir de la nuestra
Call addConsole(" Parche nº " & i & " descargado satisfactoriamente.", 0, 0, 255, False, True) '>> Informacion

Bueno acá yo hice lo siguiente

puse http://harek-ao.ucoz.es/parche no se si estará bien...

pero en realidad si la pones en el buscador de arriba no entra...

Por eso miren en la ucoz esta puse yo el verexe y un archivo

Parche1.zip

Que sería el zip que contiene el gráfico.

Cual es el error :$

» 10 Jun 2011 19:49

conectate msn soy kevinko.jr@hotmail.com

qe te doy una mano. y usa 000webhost o miarroba ucoz ni pinta alto embole

» 10 Jun 2011 20:49

Alguna respuesta más?

Ya que khardus no me pudo ayudar

Igual intento y agradezco

» 10 Jun 2011 21:59

No es ese el problema... el tema es que el AutoUpdate de Shedark al terminar de descargar el parche y descomprimir, automáticamente borra el archivo ZIP que descargó. Es decir, lo elimina al terminar de descomprimir.

Saludos.-

» 10 Jun 2011 22:17

Pero si no yo encontré nada en los códigos que haga borrarlo

» 10 Jun 2011 22:30

¿Usaste la última versión?

» 10 Jun 2011 22:35

pero no es Parche.zip solo, es ParcheX.zip (X el numero de parche que se configura en verexe.txt)... En definitiva el problema no es mi codigo, sino el autoupdate o algo que haces mal

» 10 Jun 2011 22:35

Santty.- escribió:¿Usaste la última versión?

Ni idea que versión es pero es este

ft47751_autoejecutar_autoupdate_en_caso_de_actualizacion.html

También me baje el autoupdate (Codigos) de ese tema.

No dynlanlan mira te paso los códigos

CLIENTE;

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
           
'LINK1            'Variable que contiene el numero de actualización correcto del servidor
                iX = Inet1.OpenURL("http://harek-ao.ucoz.es/VEREXE.txt")
            'Variable que contiene el numero de actualización del cliente
                tX = GetVar(App.path & "\INIT\Update.ini", "INIT", "X")
            'Variable con la diferencia de actualizaciones servidor-cliente
                DifX = iX - tX
 
            If Not (DifX = 0) Then
MsgBox "Hay actualizaciones pendiendes, el cliente se cerrará y se ejecutara el autoupdate."
Call ShellExecute(Me.hWnd, "open", App.path & "/Autoupdate.exe", "", "", 1)
End
End If
End Function
Private Function LeerInt(ByVal Ruta As String) As Integer
Dim f As Integer
f = FreeFile
Open Ruta For Input As f
 
LeerInt = Input$(LOF(f), #f)
Close #f
End Function

AUTOUPDATE

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

'>> Funciones/Subs
        Function Analizar()
            On Error Resume Next
            
            Dim iX As Integer
            Dim tX As Integer
            Dim DifX As Integer
            Dim strsX As String
            
'LINK1            'Variable que contiene el numero de actualización correcto del servidor
                iX = Inet1.OpenURL("http://harek-ao.ucoz.es/VEREXE.txt")
            'Variable que contiene el numero de actualización del cliente
                tX = GetVar(App.Path & "\INIT\Update.ini", "INIT", "X")
            'Variable con la diferencia de actualizaciones servidor-cliente
                DifX = iX - tX
            
            If Not (DifX = 0) Then 'Si la diferencia no es nula,
            Call addConsole("Iniciando, se descargarán " & DifX & " actualizaciones.", 200, 200, 200, True, False)   '>> Informacion
                For i = 1 To DifX 'Descargamos todas las versiones de diferencia
'LINK2
                    strURL = "http://harek-ao.ucoz.es/parche" & CStr(i + tX) & ".zip" 'URL del parche .zip
                    Darchivo = App.Path & "\INIT\Parche" & i + tX & ".zip" 'Directorio del parche
                        Call addConsole("   Descargando parche nº " & i, 0, 0, 255, False, True)    '>> Informacion
                    Call AutoDownload(i + tX) 'Descargamos todas las versiones faltantes a partir de la nuestra
                        Call addConsole("   Parche nº " & i & " descargado satisfactoriamente.", 0, 0, 255, False, True)    '>> Informacion
                
                  Call addConsole(" Actualizaciones: " & i & "/" & DifX, 100, 100, 100, True, False)   '>> Informacion
                Next i
            Else
                Call addConsole("No hay actualizaciones pendientes", 200, 200, 200, True, False)    '>> Informacion
            End If
            
            
            Call WriteVar(App.Path & "\INIT\Update.ini", "INIT", "X", CStr(iX)) 'Avisamos al cliente que está actualizado
            
            EnProceso = False
            
            Call addConsole("El cliente ya está listo para jugar", 200, 200, 200, True, False)  '>> Informacion
            sRGY.Picture = sG.Picture
            
        End Function

Este tema se encuentra cerrado.

Con el auto autoupdate.

¿Quién está conectado?