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

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

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

А пока-что я буду использовать этот сайт... ну это временно

                    Листинг программы
                
 
                        
                          
                    
Option Explicit
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
 
Private Sub Form_Load()
    Dim s$, s1$, res&
    s = "http://www.cyberforum.ru/blog_attachment.php?attachmentid=2463&d=1402859428"
    s1 = App.Path & "\MHook.zip"
    res = URLDownloadToFile(0, s, s1, 0, 0)
End Sub

и вот еще вопрос, можно ли как-то узнать

Имя файла перед закачкой
Содержимое 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