GS-Zone
Facebook Twitter

autoverificacion del autoupdate Ir al Indice

Reglas del Foro
* Por favor, lee las reglas de los foros de Programación antes de hacer un nuevo tema!

Moderadores: Moderadores de Argentum, Especialistas de Argentum, Especialistas de Programación

10

Nota » 06 Feb 2012 15:24

buenas.

yo implemente este codgo para q me autoverifique el AUTOUPDATe cuando hay actualizaciones

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Me.Picture = LoadPicture(App.path & "\graficos\VentanaTirarOro.jpg")
  2.        Dim iX As Integer
  3.             Dim tX As Integer
  4.             Dim DifX As Integer
  5.                 iX = Inet1.OpenURL("http://tuweb.com.ar/archivoconlaversion.txt")
  6.                 tX = GetVar(App.path & "\INIT\Update.ini", "INIT", "X")
  7.                 DifX = iX - tX
  8.             If Not (DifX = 0) Then
  9.             Call MsgBox("Hay actualizaciones pendientes. Ejecuta el Autoupdate para poder jugar", vbCritical, "AU")
  10.             End
  11.             End If


pero me tirar error en INET1 poniendome variable no definida.

alguno me podría ayudar?

tampoco se bien q poner en;
"http://tuweb.com.ar/archivoconlaversion.txt"

ahi tengo q poner la web del host? y donde encuentro ese archivo txt? :S


muchas gracias
Fixed
Usuario Registrado
34
Newbie [5]
Registrado: Años de membresía
Mensajes: 138
Arriba

Nota » 06 Feb 2012 15:49

Seguramente no creaste el INET en el frmcargando... Crealo (Busca en youtube si no sabes cual es)


http://tuweb.com.ar/archivoconlaversion.txt"
=
tuweb.com.ar = por ejemplo tu página ucoz
/archivo...
tenes que subir el archivo.

Te recomiendo ucoz

Imagen
Shak
@lautamarino
526
Oraculo [5]
Registrado: Octubre 2011
Mensajes: 2028
Aportes: 46
Premios: 1
Embajador (1)
Arriba

Nota » 06 Feb 2012 16:13

Shak escribió:Seguramente no creaste el INET en el frmcargando... Crealo (Busca en youtube si no sabes cual es)


http://tuweb.com.ar/archivoconlaversion.txt"
=
tuweb.com.ar = por ejemplo tu página ucoz
/archivo...
tenes que subir el archivo.

Te recomiendo ucoz



Un archivo q contenga que tengo que subir a ucoz?

osea la version actual si , pero como lo pongo?
Última edición por Fixed el 06 Feb 2012 16:23, editado 2 veces en total
Fixed
Usuario Registrado
34
Newbie [5]
Registrado: Años de membresía
Mensajes: 138
Arriba

Nota » 06 Feb 2012 17:10

Creaste el inet?

Es un boton, con la pc y un mundito... Ponelo en el FrmCargando.
Este mensaje ha obtenido 2 Monedas de Oro.


El más grande, lejos.
Imagen

Alkair escribió:32px alto x 32px ancho, en total creo que unos 64cm2

Jajajajaja xD

Rta:
Sobre lo de los centímetros, y bue, estaba viendo como pasarlo.
64pixels2 (?


1024 px^2
Germax
¡Libertad con responsabilidad!
733
Moderador
Registrado: Años de membresíaAños de membresía
Ubicación: San Francisco
Mensajes: 4946
Aportes: 38
Premios: 6
Campeón de Futbol (1) Mejor amigo del año (1) Usuario omnipresente (1) Embajador (3)
Arriba

Nota » 06 Feb 2012 17:36

Germax escribió:Creaste el inet?

Es un boton, con la pc y un mundito... Ponelo en el FrmCargando.


Sisi , el error del Inet ya lo solucione , tenia que poner frmcargando.inet1

Lo que no se ahora es que tengo que poner adentro del TXT que subo al host..
Fixed
Usuario Registrado
34
Newbie [5]
Registrado: Años de membresía
Mensajes: 138
Arriba

Nota » 06 Feb 2012 17:51

Adentor del text tenes q poner el numero 0 :*
Rakjha
Usuario Registrado
161
Newbie [4]
Registrado: Años de membresía
Mensajes: 129
Arriba

Nota » 06 Feb 2012 18:15

Adentro del txt pones "0" que es la cantidad de actualizaciones pendientes. Lo guardas con el nombre VEREXE.txt y entras al panel de ucoz. A la pagina de inicio del panel de administrador. Ahi va a haber una opcion: Gestor de archivos. Hacele click y cuando te cargue vas más abajo que dice examinar y subis el VEREXE.txt
Si te dice que el tamaño del archivo es muy chico agregale un espacio adelante del 0. Osea que el VEREXE.txt quede con el contenido " 0". Cuando lo subas te salta un cartel que dice la URL, ej: http://FIXEDAO.ucoz.com/VEREXE.txt

Cada vez que hay una actualizacion eliminas el VEREXE.txt solo que le incrementas el número de 0 a 1, de 1 a 2 y asi sucesivamente. Despues en el mismo lugar donde subiste el verexe txt subis el parche con el nombre Parche1.zip y cuando abras el juego actualizas y te lo baja. Cuando hay 1 actualizacion tiene q estar subido el Parche1.zip, cuando hay 2 el Parche1.zip y el Parche2.zip y asi sucesivamente.

Despues entra al código del AutoUpdate de Shed y en el lugar ""http://tuweb.com.ar/archivoconlaversion.txt"" lo remplazas por "http://fixedao.ucoz.com/VEREXE.txt" y más abajo donde dice "http://tuhost.com" noseque "Parche"algo"zip. cambias el "http://tuhost.com" por "http://fixedao.ucoz.com/". entonces cada vez que diga 1, 2, 3, 4 ... en el VEREXE.txt el autoupdate agarra y baja el Parche1.zip, Parche2.zip, Parche3.zip, Parche4.zip ...

Espero aberte ayudado. Intente ser lo más explicativo posible
Este mensaje ha obtenido 5 Monedas de Oro.


Director Madnait AO

http://madnait-ao.ucoz.com

Imagen

Imagen
Farker
Director Madnait AO
215
Newbie [6]
Registrado: Años de membresía
Mensajes: 195
Aportes: 3
Arriba

Nota » 06 Feb 2012 19:26

Es que mi problema es el siguiente:

Yo implemente este codigo:

ft32865_autoverificacion_de_update_en_el_cliente.html

Buscar:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Private Sub Form_Load()
  2. Me.Picture = LoadPicture(App.path & "\Graficos\cargando.jpg")


Abajo poner:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.    Dim iX As Integer
  2.             Dim tX As Integer
  3.             Dim DifX As Integer
  4.                 iX = Inet1.OpenURL("http://tuweb.com.ar/archivoconlaversion.txt")
  5.                 tX = GetVar(App.path & "\INIT\Update.ini", "INIT", "X")
  6.                 DifX = iX - tX          
  7.             If Not (DifX = 0) Then
  8.             Call MsgBox("Hay uno o mas updates para instalar. Por favor, ejecute la herramienta de actualizacion o Autoupdate que encontrara en el autolauncher.", vbCritical, "www.LexLegis.com.ar el mejor server xD")
  9.             End
  10.             End If


Y al ejecutar el CLIENTE.exe , me tira "Run time 13 , no coinciden los tipos"

Luego lei q a otra persona le pasaba lo mismo , y Shed le respondió que pasaba eso , por que este codigo era para la version 3.0 del autoupdate , ya que la 4.0 esta hecha de otra manera.

Y en el mismo post , habia dejado un codigo para solucionarlo (para la v. 4.0) , pero al parecer se borro , y no se como hacer :S
Última edición por Fixed el 06 Feb 2012 19:27, editado 1 vez en total
Fixed
Usuario Registrado
34
Newbie [5]
Registrado: Años de membresía
Mensajes: 138
Arriba

Nota » 06 Feb 2012 19:30

Librerias faltan creo.

Edit: Tenes la libreria q viene con el autoupdate de shed en el cliente?
Rakjha
Usuario Registrado
161
Newbie [4]
Registrado: Años de membresía
Mensajes: 129
Arriba

Nota » 06 Feb 2012 19:34

Nono, como dijiste vos el codigo ese puede que sea para la 3.0 del autoupdate. Yo lo había puesto a un codigo en la 4.0 que anda a la perfeccion. Para que reviso el buscador y te lo paso

EDIT: Aca está. Es el que usé yo.

Tutorial

1 - Crear un Inet en el Frmcargando y dejarlo con el mismo nombre.

2 - Abris con doble clic el código de dicho formulario y escribes lo siguiente:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Function AnalizarUpdate()
  2. Dim i As Integer, iX As Integer, tX As Integer, DifX As Integer, dNum As String
  3.  
  4.     iX = Inet1.OpenURL("http://lujanhost.ucoz.com/VEREXE.txt") 'Host
  5.     tX = LeerInt(App.path & "\INIT\Update.ini")
  6.     DifX = iX - tX
  7.    
  8.     If Not (DifX = 0) Then
  9.         For i = 1 To DifX
  10.             Inet1.AccessType = icUseDefault
  11.             dNum = i + tX
  12.             MsgBox "Hay una actualizacion pendiente. Acuerdate de actualizar URGENTE para poder jugar correctamente."
  13.             Call ShellExecute(Me.hWnd, "open", App.path & "/UpdateAO.exe", "", "", 1)
  14.             End
  15.         Next i
  16.     End If
  17.        
  18. End Function


Despues abajo de todo en el frmcargando agregas.

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Private Function LeerInt(ByVal Ruta As String) As Integer
  2. Dim f As Integer
  3.     f = FreeFile
  4.     Open Ruta For Input As f
  5.     LeerInt = Input$(LOF(f), #f)
  6.     Close #f
  7. End Function


3 - Generar nuevo client.exe

Esta línea remplazala por la de "http://fixedao.ucoz.com/VEREXE.txt

iX = Inet1.OpenURL("http://lujanhost.ucoz.com/VEREXE.txt") 'Host

4 - Buscas

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Call CargarServidores
  2. 'TODO : esto de ServerRecibidos no se podría sacar???
  3.     ServersRecibidos = True
  4.    
  5.     Call AddtoRichTextBox(frmCargando.Status, "Cargado", 191, 255, 64, True, False, False)


5 - Agrega abajo

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. call frmcargando.analizarupdate


GRACIAS SHAK. El fue el autor del código. Yo agarre que estaba todo medio desparramado y te lo junte nada mas.

Ojala te funcione.

Director Madnait AO

http://madnait-ao.ucoz.com

Imagen

Imagen
Farker
Director Madnait AO
215
Newbie [6]
Registrado: Años de membresía
Mensajes: 195
Aportes: 3
Arriba

Volver a AO 0.13.x

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados