Autoupdate Inteligente Shedark

» 05 Dic 2011 14:50

Tengo problemas con el autoupdate de shedark ,

1: Pongo los links del /verexe.txt , Parche1.zip , y Link y me dice que me baja el parche pero no me lo baja por que no lo encuentro despues

Si alguien puede ayudarme , le agradesco

http://imageshack.us/photo/my-images/248/1problema.jpg/

» 05 Dic 2011 15:26

en el /verexe.txt tenes que poner el numeros de parches osea 1 /2/3 bla bla
y configuraste todo bien el codigo del auto update ??

» 05 Dic 2011 16:48

Te muestro el código :

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

Private Sub Analizar()
    Dim i As Integer, iX As Integer, tX As Integer, DifX As Integer, dNum As String
    
    lEstado.Caption = "Obteniendo datos..."
    
    iX = Inet1.OpenURL("ftp://ftp.blazzerao.nixiweb.com/verexe.txt") 'Host
    tX = LeerInt(App.Path & "\INIT\Update.ini")
    DifX = iX - tX
    
    If Not (DifX = 0) Then
        For i = 1 To DifX
            Inet1.AccessType = icUseDefault
            dNum = i + tX
            
            #If BuscarLinks Then 'Buscamos el link en el host (1)
                Inet1.URL = Inet1.OpenURL("ftp://ftp.blazzerao.nixiweb.com/Link" & dNum & ".txt") 'Host
            #Else                'Generamos Link por defecto (0)
                Inet1.URL = "ftp://ftp.blazzerao.nixiweb.com/Parche" & dNum & ".zip" 'Host
            #End If
            
            Directory = App.Path & "\INIT\Parche" & dNum & ".zip"
            bDone = False
            dError = False
            
            lURL.Caption = Inet1.URL
            lName.Caption = "Parche" & dNum & ".zip"
            lDirectorio.Caption = App.Path & "\"
                
            frmMain.Inet1.Execute , "GET"
            
            Do While bDone = False
            DoEvents
            Loop
            
            If dError Then Exit Sub
            
            Unzip Directory, App.Path & "\"
            Kill Directory
        Next i
    End If
     
    Call GuardarInt(App.Path & "\INIT\Update.ini", iX)
    
    Command1.Enabled = True
    lEstado.Caption = "Cliente actualizado correctamente."
End Sub

» 06 Dic 2011 19:22

pero no va ftp, tiene que ser un http normal

» 07 Dic 2011 16:09

Te recomiendo que uses la pagina ucoz para la cosas de parches y si queres un pagina aparte para todo lo que es publicidad y eso

Autoupdate Inteligente Shedark

¿Quién está conectado?