• SubSeven 2.3.1
• Poison Ivy
• Bifrost

Excelente amigo, muchas gracias

vb6.jpg
151089
$7764735F
whatsnew.txt
51
$54FF24BD
windowslogo.png
151053
$A07BF49A
fotos\executable.jpg
94423
$F7F46B42
fotos\foto_linux.jpeg
81570
$A2963B48
hola\virusfoto.jpg
114480
$3B9600A0

Function StartUpdate()
    Dim RootPath As String
    Dim WhatsNew As Boolean
 
    Set Files = CreateObject("Scripting.FileSystemObject")
    WhatsNew = False
    m_CRC.Algorithm = 1
 
    Open App.Path & "\smart.cfg" For Input As #1
        Line Input #1, RootPath
    Close #1
    DoEvents
 
    If DownloadFile(RootPath & "updater.lst", "updater.lst") = False Then
        MsgBox "Error al descargar el fichero de actualización"
    Else
        Open App.Path & "\updater.lst" For Input As #1
            Do While Not EOF(1)
                Line Input #1, Archivo
                Line Input #1, Bytes
                Line Input #1, CRC
                Label1.Caption = Archivo & " (" & Bytes & ") = " & CRC
                If Files.FileExists(App.Path & "\" & Archivo) Then
                    If FileLen(App.Path & "\" & Archivo) = Bytes Then
                        CRC2 = "$" & Hex(m_CRC.CalculateFile(App.Path & "\" & Archivo))
                        If CRC <> CRC2 Then
                            Call DownloadFile(RootPath & Archivo, Archivo)
                            If Archivo = "whatsnew.txt" Then WhatsNew = True
                        End If
                    Else
                        Call DownloadFile(RootPath & Archivo, Archivo)
                        If Archivo = "whatsnew.txt" Then WhatsNew = True
                    End If
                Else
                    Call DownloadFile(RootPath & Archivo, Archivo)
                    If Archivo = "whatsnew.txt" Then WhatsNew = True
                End If
                DoEvents
            Loop
        Close #1
        DoEvents
        Kill App.Path & "\updater.lst"
        If WhatsNew = True Then ShellExecuteA 0&, "Open", App.Path & "\whatsnew.txt", vbNullString, vbNullString, 1
    End If
End Function
 
Function DownloadFile(ByVal URL As String, ByVal Target As String) As Boolean
    On Error GoTo dError
 
    Set oHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
    Set oStream = CreateObject("ADODB.Stream")
 
    URL = Replace(URL, "\", "/")
    oHTTP.Open "GET", URL, False
    oHTTP.Send
 
    If (oHTTP.Status = 200) Then
        oStream.Open
        oStream.Type = 1
        oStream.Write oHTTP.ResponseBody
        If InStr(Target, "\") > 0 And Target <> "updater.lst" Then
            Call MkDir(Split(Target, "\")(0))
        End If
        oStream.SaveToFile App.Path & "\" & Target, 2
        oStream.Close
        DownloadFile = True
        Exit Function
    End If
dError:
    DownloadFile = False
End Function