Надежный хостинг с очень длительным хранением файлов - VB

Узнай цену своей работы

Формулировка задачи:

недавно я столкнулся с такой проблемой.. хотел разместить код формы в одном сообщении здесь не вышло, из за ограничения по объёму информации.. менее 21 килобайт для сообщения не получилось продемонстрировать такой эфект.. что длл-ку можно просто скопировать вместе с текстом... в связи с этим, я интересуюсь, где есть надежный хостинг в котором файлы бы хранились вечно, и скачать их можно из любого места к примеру запустилась программа, качнула длл-ку, и продолжила работу как ни в чем не бывало
А пока-что я буду использовать этот сайт... ну это временно
и вот еще вопрос, можно ли как-то узнать
  • Имя файла перед закачкой
  • Содержимое ZIP-файла перед закачкой

Решение задачи: «Надежный хостинг с очень длительным хранением файлов»

textual
Листинг программы
Option Explicit
 
Private Sub Form_Load()
    Dim objHTTP     As XMLHTTP
    Dim fNum        As Integer
    Dim Resp        As String
    Dim filename    As String
    Dim index       As Long
    
    Set objHTTP = New XMLHTTP
    Call objHTTP.open("GET", "http://www.cyberforum.ru/blog_attachment.php?attachmentid=2472&d=1402900408", False)
    objHTTP.send
    
    Resp = objHTTP.getResponseHeader("Content-disposition")
    index = InStr(1, Resp, "filename=") + 10
    filename = Mid$(Resp, index, Len(Resp) - index)
    
    ' Сохраняем файл на диск
    fNum = FreeFile
    Open "C:\" & filename For Binary As fNum
    
    Put fNum, , objHTTP.responseBody
    
    Close fNum
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 3.733 из 5
Похожие ответы