Autoupdate Inteligente de SHEDARK

» 02 Feb 2012 16:25

Hola yo me baje el autoupdate intelgiente q publico shedark.

Como hago ejemplo esto es lo que hay que programar:

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("http://tuhost/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("http://tuhost/Link" & dNum & ".txt") 'Host
            #Else                'Generamos Link por defecto (0)
                Inet1.URL = "http://tuhost/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

ej , si yo lo pongo en 00webhost el autoupdate , tengo que cambiar los que dicen "TUHOST" por:

"http://www.000webhost.com/"?

Asi y listo? no hay que agregar nada mas?

xq no se q link poner

» 02 Feb 2012 18:29

CREATE UN .UCOZ

» 02 Feb 2012 18:46

Rakjha escribió:CREATE UN .UCOZ

Pero mira , al crearme un .UCOZ me salta esto y no se que poner:

Me registro , dps logeo y me salta eso. Puedo completar todos los datos menos el ultimo q no se q poner..

Imagen

» 02 Feb 2012 18:48

mmm, creo q habia q poner
Webtop: la passwd q elegiste

y abajo una passwd diferente

o al revez, fijate

» 02 Feb 2012 19:04

Esa , ahi pude crear.

Ahora lo q tengo que hacer es modificar en el visual basic donde dice TUHOST por el link que yo cree

por ejemplo yo cree (ponele)

www.ejemplo.ucoz.es

iX = Inet1.OpenURL("http://www.ejemplo.ucoz.es/VEREXE.txt") 'Host

Inet1.URL = Inet1.OpenURL("http://www.ejemplo.ucoz.es/Link" & dNum & ".txt") 'Host

Inet1.URL = "http://www.ejemplo.ucoz.es/Parche" & dNum & ".zip" 'Host

esos tres los cambiaria asi , luego subo el archivo verexe al host y ya me deberia funcionar no?

» 02 Feb 2012 19:10

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

iX = Inet1.OpenURL("http://tdao.ucoz.es/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("http://tdao.ucoz.es/Parche" & dNum & ".txt") 'Host
            #Else                'Generamos Link por defecto (0)
                Inet1.URL = "http://tdao.ucoz.es/Parche" & dNum & ".zip" 'Host