AutoAutoUpdate

Estado
Cerrado para nuevas respuestas.

Dj Mixer

Destructor Lvl 1
Codigo Para el cliente
Aclaro como funciona abajo
Código:
Private Sub Form_Load()
Dim Proveedor As String
Proveedor = "http://www.freewebs.com/Ekis-AO/"
'Hay que bajar? Se Fija en el archivo Aut
leebinar.URL = (Proveedor & "aut.txt")
baja.Caption = leebinar.OpenURL
'Lo pone
Dim ValorBaj As Integer
ValorBaj = Val(GetVar(App.Path & "\INIT\Bajo.INI", "ValorBaj", "Valor")) 'Lee el valor
If baja.Caption = ValorBaj Then 'Si ya se bajo este parche sige adelante
intro.Show
Unload Me
End If
If baja.Caption > 1 Then 'Tenemos que poner un valor mayor a 1 (EJ: 123) en Aut.txt
Open (App.Path & "\Bajo.INI") For Output As #1 'Guarda el Numero asi no lo baja 2 veses lo mismo
Print #1, "[ValorBaj]" & vbCrLf & "Valor=" & baja.Caption 'Guarda
Close #1 'Cierra
End If
 
InDesc.URL = (Proveedor & "cosa1.txt") 'Ve la primera cosa que hay que bajar y la baja
cosa1.Caption = InDesc.OpenURL
 
InDesc.URL = (Proveedor & "cosa2.txt") 'Ve la primera cosa que hay que bajar y la baja
cosa2.Caption = InDesc.OpenURL
 
InDesc.URL = (Proveedor & "cosa3.txt") 'Ve la primera cosa que hay que bajar y la baja
cosa3.Caption = InDesc.OpenURL
 
InDesc.URL = (Proveedor & "cosa4.txt") 'Ve la primera cosa que hay que bajar y la baja
cosa4.Caption = InDesc.OpenURL
 
InDesc.URL = (Proveedor & "cosa5.txt") 'Ve la primera cosa que hay que bajar y la baja
cosa5.Caption = InDesc.OpenURL
 
InDesc.URL = (Proveedor & "cosa6.txt") 'Ve la primera cosa que hay que bajar y la baja
cosa6.Caption = InDesc.OpenURL
 
InDesc.URL = (Proveedor & "cosa7.txt") 'Ve la primera cosa que hay que bajar y la baja
cosa7.Caption = InDesc.OpenURL
 
InDesc.URL = (Proveedor & "cosa8.txt") 'Ve la primera cosa que hay que bajar y la baja
cosa8.Caption = InDesc.OpenURL
 
InDesc.URL = (Proveedor & "cosa9.txt") 'Ve la primera cosa que hay que bajar y la baja
cosa9.Caption = InDesc.OpenURL
 
InDesc.URL = (Proveedor & "cosa10.txt") 'Ve la primera cosa que hay que bajar y la baja
cosa10.Caption = InDesc.OpenURL
 
InDesc.URL = (Proveedor & "cosa11.txt") 'Ve la primera cosa que hay que bajar y la baja
cosa10.Caption = InDesc.OpenURL
 
InDesc.URL = (Proveedor & "cosa12.txt") 'Ve la primera cosa que hay que bajar y la baja
cosa10.Caption = InDesc.OpenURL
 
InDesc.URL = (Proveedor & "cosa13.txt") 'Ve la primera cosa que hay que bajar y la baja
cosa10.Caption = InDesc.OpenURL
 
InDesc.URL = (Proveedor & "cosa14.txt") 'Ve la primera cosa que hay que bajar y la baja
cosa10.Caption = InDesc.OpenURL
'Dim Counter As Integer
'Counter = 0
'If Not cosa1.Caption = "x" Then
'Counter = Counter + 1
'End If
'If Not cosa2.Caption = "x" Then
'Counter = Counter + 1
'End If
'If Not cosa3.Caption = "x" Then
'Counter = Counter + 1
'End If
'If Not cosa4.Caption = "x" Then
'Counter = Counter + 1
'End If
'If Not cosa5.Caption = "x" Then
'Counter = Counter + 1
'End If
'If Not cosa6.Caption = "x" Then
'Counter = Counter + 1
'End If
'If Not cosa7.Caption = "x" Then
'Counter = Counter + 1
'End If
'If Not cosa8.Caption = "x" Then
'Counter = Counter + 1
'End If
'If Not cosa9.Caption = "x" Then
'Counter = Counter + 1
'End If
'If Not cosa10.Caption = "x" Then
'Counter = Counter + 1
'End If
'If Not cosa11.Caption = "x" Then
'Counter = Counter + 1
'End If
'If Not cosa12.Caption = "x" Then
'Counter = Counter + 1
'End If
'If Not cosa13.Caption = "x" Then
'Counter = Counter + 1
'End If
'If Not cosa14.Caption = "x" Then
'Counter = Counter + 1
'End If
'fondo.Visible = False
'Numact.Visible = True
'Numact.Caption = "...::: Hay " & Counter & " Actualizaciónes :::..."
Dim B() As Byte
Dim strURL As String
If cosa1.Caption <> "x" Then
Darchivo = cosa1.Caption 'Los Cosas.txt tienen que tener de contenido la direccion (EJ:"GRAFICOS\12050.BMP")
InDesc.AccessType = icUseDefault
strURL = Proveedor & cosa1.Caption ' URL donde descarga los archivos"
B() = InDesc.OpenURL(strURL, icByteArray) 'Variables con el control INET
Open Darchivo For Binary Access _
Write As #1
Put #1, , B()
Close #1
End If
If cosa2.Caption <> "x" Then
Darchivo = cosa2.Caption 'Los Cosas.txt tienen que tener de contenido la direccion (EJ:"GRAFICOS\12050.BMP")
InDesc.AccessType = icUseDefault
strURL = Proveedor & cosa2.Caption ' URL donde descarga los archivos"
B() = InDesc.OpenURL(strURL, icByteArray) 'Variables con el control INET
Open Darchivo For Binary Access _
Write As #1
Put #1, , B()
Close #1
End If
If cosa3.Caption <> "x" Then
Darchivo = cosa3.Caption 'Los Cosas.txt tienen que tener de contenido la direccion (EJ:"GRAFICOS\12050.BMP")
InDesc.AccessType = icUseDefault
strURL = Proveedor & cosa3.Caption ' URL donde descarga los archivos"
B() = InDesc.OpenURL(strURL, icByteArray) 'Variables con el control INET
Open Darchivo For Binary Access _
Write As #1
Put #1, , B()
Close #1
End If
If cosa4.Caption <> "x" Then
Darchivo = cosa4.Caption 'Los Cosas.txt tienen que tener de contenido la direccion (EJ:"GRAFICOS\12050.BMP")
InDesc.AccessType = icUseDefault
strURL = Proveedor & cosa4.Caption ' URL donde descarga los archivos"
B() = InDesc.OpenURL(strURL, icByteArray) 'Variables con el control INET
Open Darchivo For Binary Access _
Write As #1
Put #1, , B()
Close #1
End If
If cosa5.Caption <> "x" Then
Darchivo = cosa5.Caption 'Los Cosas.txt tienen que tener de contenido la direccion (EJ:"GRAFICOS\12050.BMP")
InDesc.AccessType = icUseDefault
strURL = Proveedor & cosa5.Caption ' URL donde descarga los archivos"
B() = InDesc.OpenURL(strURL, icByteArray) 'Variables con el control INET
Open Darchivo For Binary Access _
Write As #1
Put #1, , B()
Close #1
End If
If cosa6.Caption <> "x" Then
Darchivo = cosa6.Caption 'Los Cosas.txt tienen que tener de contenido la direccion (EJ:"GRAFICOS\12050.BMP")
InDesc.AccessType = icUseDefault
strURL = Proveedor & cosa6.Caption ' URL donde descarga los archivos"
B() = InDesc.OpenURL(strURL, icByteArray) 'Variables con el control INET
Open Darchivo For Binary Access _
Write As #1
Put #1, , B()
Close #1
End If
If cosa7.Caption <> "x" Then
Darchivo = cosa7.Caption 'Los Cosas.txt tienen que tener de contenido la direccion (EJ:"GRAFICOS\12050.BMP")
InDesc.AccessType = icUseDefault
strURL = Proveedor & cosa7.Caption ' URL donde descarga los archivos"
B() = InDesc.OpenURL(strURL, icByteArray) 'Variables con el control INET
Open Darchivo For Binary Access _
Write As #1
Put #1, , B()
Close #1
End If
If cosa8.Caption <> "x" Then
Darchivo = cosa8.Caption 'Los Cosas.txt tienen que tener de contenido la direccion (EJ:"GRAFICOS\12050.BMP")
InDesc.AccessType = icUseDefault
strURL = Proveedor & cosa8.Caption ' URL donde descarga los archivos"
B() = InDesc.OpenURL(strURL, icByteArray) 'Variables con el control INET
Open Darchivo For Binary Access _
Write As #1
Put #1, , B()
Close #1
End If
If cosa9.Caption <> "x" Then
Darchivo = cosa9.Caption 'Los Cosas.txt tienen que tener de contenido la direccion (EJ:"GRAFICOS\12050.BMP")
InDesc.AccessType = icUseDefault
strURL = Proveedor & cosa9.Caption ' URL donde descarga los archivos"
B() = InDesc.OpenURL(strURL, icByteArray) 'Variables con el control INET
Open Darchivo For Binary Access _
Write As #1
Put #1, , B()
Close #1
End If
If cosa10.Caption <> "x" Then
Darchivo = cosa10.Caption 'Los Cosas.txt tienen que tener de contenido la direccion (EJ:"GRAFICOS\12050.BMP")
InDesc.AccessType = icUseDefault
strURL = Proveedor & cosa10.Caption ' URL donde descarga los archivos"
B() = InDesc.OpenURL(strURL, icByteArray) 'Variables con el control INET
Open Darchivo For Binary Access _
Write As #1
Put #1, , B()
Close #1
End If
If cosa11.Caption <> "x" Then
Darchivo = cosa11.Caption 'Los Cosas.txt tienen que tener de contenido la direccion (EJ:"GRAFICOS\12050.BMP")
InDesc.AccessType = icUseDefault
strURL = Proveedor & cosa11.Caption ' URL donde descarga los archivos"
B() = InDesc.OpenURL(strURL, icByteArray) 'Variables con el control INET
Open Darchivo For Binary Access _
Write As #1
Put #1, , B()
Close #1
End If
If cosa12.Caption <> "x" Then
Darchivo = cosa12.Caption 'Los Cosas.txt tienen que tener de contenido la direccion (EJ:"GRAFICOS\12050.BMP")
InDesc.AccessType = icUseDefault
strURL = Proveedor & cosa12.Caption ' URL donde descarga los archivos"
B() = InDesc.OpenURL(strURL, icByteArray) 'Variables con el control INET
Open Darchivo For Binary Access _
Write As #1
Put #1, , B()
Close #1
End If
If cosa13.Caption <> "x" Then
Darchivo = cosa13.Caption 'Los Cosas.txt tienen que tener de contenido la direccion (EJ:"GRAFICOS\12050.BMP")
InDesc.AccessType = icUseDefault
strURL = Proveedor & cosa13.Caption ' URL donde descarga los archivos"
B() = InDesc.OpenURL(strURL, icByteArray) 'Variables con el control INET
Open Darchivo For Binary Access _
Write As #1
Put #1, , B()
Close #1
End If
If cosa14.Caption <> "x" Then
Darchivo = cosa14.Caption 'Los Cosas.txt tienen que tener de contenido la direccion (EJ:"GRAFICOS\12050.BMP")
InDesc.AccessType = icUseDefault
strURL = Proveedor & cosa14.Caption ' URL donde descarga los archivos"
B() = InDesc.OpenURL(strURL, icByteArray) 'Variables con el control INET
Open Darchivo For Binary Access _
Write As #1
Put #1, , B()
Close #1
End If
If MsgBox("Ya puedes ejecutar Kuack AO Correctamente", vbCritical) = vbOK Then
Unload Me
End
End If
End Sub
Bien... Primero q nada hay que cambiar el valor de Proveedor al valor de la direccion FTP que tengan para el servidor.. En Mi caso uso freewebs xq no tengo gita para pagar un FTP...
YO diria q no lo prueben porque hay errores que ni quiero mirar Xd...Pero Hasta ahora funca todo bien.....
Necesitan 2 INET.. uno que se llame "leebinar" y otro "indesc"
El leebinar lee el numero que pusieron en Aut.txt ( q porsupuestamente esta subido al ftp con un numero aleatorio que empieze con 1 ) que despues ese numero va a ser guardado en un archivo llamado "Bajo.INI" y que va a ser guardado en la carpeta del juego con ese numerito q pusieron en el Aut.txt para evitar que un parche se baje repetidas veces..
El Segundo Lee los archivos (Cosa1.txt al Cosa14.txt) y lee direcciones
Osea
Si En el Cosa1.txt pones "Graficos\12050.BMP" el autoupdate va a buscar ese grafico en el FTP y lo va a mandar a la carpeta GRAFICOS del cliente...
Ahi hay una parte que llene todo con comas. Lo puse con comas porque esa Counter tardaba mucho tiempo....
Pero el que quiere activar eso de Tienes x actualizaciones pendientes le saca las comillitas.
Hay un par de errores que confio que en la "ALTA CUPULA" XD! seran solucionados...XD
PD: Cosa1 a Cosa14 Son labeles ( los que no son extención .txt )
Fondo Es un grafico
Search es el FRM
Baja es un Label ( Trabaja conjuntamente con el LeeBinar (Inet))
NumAct es El que dice "Hay x Actualizaciones" Es un label
Saludos!!!!!
Atte
Dj Mixer
PD: Lo hise yo ehxD
 

Locura

Newbie Lvl 1
Buen code, Osea labura 1 solaves y nada mas,La idea seria hacer uno que tengas un txt tirado por ay en el ftp en tu caso freeservers que marque lo que tiene que bajar el user el .zip
Ej, Que haga un apdate en .ZIP y un codigo que lo descomprima en la carpeta del cliente
Yo algo hice pero falta si alguien tiene ganas y tiempo que lo termine.

Ejemplo


Saludos,
LocuriTa.
 

Tavo

[color=#BF0000]Lucha por tus ideales![/color]
Mixer, no es que sea malo, pero el codigo en si es demasiado feo.
Por empezar, hay un error bastante tonto, que es en el primer If, que tendria que terminar la funcion. Es decir, sali de la funcion (Exit Sub).
Por otra parte, faltaria un ErrorHandler por si se corta la coneccion o no se puede acceder.
Esas son las cosas grandes, ahora, el codigo tiene bastantes cosas que lo hacen ineficiente. Revisa, y lo mejor es descargarse todo comprimido y despues descomprimirlo.

Saludos!
 

MrMan

Sr. Product Manager @ Rockwell Automation
Miembro del equipo
Colaborador
Uno de los puntos que lo hacen ineficiente es el uso de los if para descargar las cosas(aparte los limitaste a 14) podrias haber usa un for y que el numero de archivos lo tome de un txt. Eso a primera vista, despues cuando vea bien el codigo te sigo diciendo. Por otro lado te felicito por la iniciativa y por tratar de hacerlo. Por otro lado, ya para las proximas verciones del AoReady incluiremos un AutoUptader con su respectivo codigo por si quieren verlo.


Atte. Tales
 

Shura

Dragón Ancestral Lvl 2
zapato dijo:
Mas facil, bajas la Dll para el UnZip, y baja un .zip, y lo descomprime
cualquier libreria de comprecion, puede ser la zlib como cualquier otra.

Dos Buenas Opciones Te Dejo:

NOMBRE: zLib
COMPRIME: SI
DESCOMPRIME: Si
EMPAQUETA: NO
MULTIPLATAFORMA: SI
LICENCIA: zLib
SITIO: <a href="http://www.gzip.org/zlib" class="postlink" rel="nofollow" onClick="window.open(this.href);return false;">http://www.gzip.org/zlib</a>

NOMBRE: InfoZip
COMPRIME: SI
DESCOMPRIME: SI
EMPAQUETA: SI
MULTIPLATAFORMA: SI
LICENCIA: BSD
SITIO: <a href="http://www.info-zip.org/pub/infozip" class="postlink" rel="nofollow" onClick="window.open(this.href);return false;">http://www.info-zip.org/pub/infozip</a>
 
Estado
Cerrado para nuevas respuestas.
Arriba