Макрос отправки файла на файлообменник zalil.ru

Function UploadFile(ByVal DestURL As String, ByVal FileName As String) As String
    ' функция принимает в качестве параметров:
    ' DestURL - ссылку на файлообменник
    ' FileName - полный путь к загружаемому файлу
    ' Возвращает ссылку на загруженный файл (например, httр://zalil.ru/upload/31336448 )

    Dim sFormData As String, d As String: On Error Resume Next
    'Boundary of fields.    Be sure this string is Not In the source file
    Const Boundary As String = "---------------------------UPLOADER-from-EducatedFool----ExcelVBA.ru"
    sFormData = GetFile(FileName)    'Get source file As a string.
    FormData = "--" + Boundary + vbCrLf    'Build source form with file contents
    FormData = FormData + "Content-Disposition: form-data; name=""" + "file" + """;"
    FormData = FormData + " filename=""" + Dir(FileName) + """" + vbCrLf
    FormData = FormData + "Content-Type: application/octet-stream" + vbCrLf + vbCrLf
    FormData = FormData + sFormData
    FormData = FormData + vbCrLf + "--" + Boundary + "--" + vbCrLf
 
    Dim WebBrowser: Set WebBrowser = CreateObject("InternetExplorer.Application")    '  WebBrowser.Visible = True
    'Send the form data To URL As POST request
    Dim bFormData() As Byte: ReDim bFormData(Len(FormData) - 1)
    bFormData = StrConv(FormData, vbFromUnicode)
 
    WebBrowser.Navigate DestURL, , , bFormData, "Content-Type: multipart/form-data; boundary=" + Boundary + vbCrLf
 
    Do While WebBrowser.Busy: DoEvents: Loop
    UploadFile = WebBrowser.LocationURL: If UploadFile = DestURL Then UploadFile = ""
    WebBrowser.Quit
End Function
 
Function GetFile(FileName As String) As String    'read binary file As a string value
    ' вспомогательная функция. Возвращает текстовую строку - файл FileName в юникоде
    Dim FileContents() As Byte, FileNumber As Integer
    ReDim FileContents(FileLen(FileName) - 1)
    FileNumber = FreeFile
    Open FileName For Binary As FileNumber
    Get FileNumber, , FileContents
    Close FileNumber
    GetFile = StrConv(FileContents, vbUnicode)
End Function

Sub ПримерОтправкиФайлаНаФайлообменник()
    FileName$ = "C:\Documents and Settings\Admin\Рабочий стол\ArigatoRuler.exe"
    URL$ = "http://zalil.ru/upload/"
 
    If Dir(FileName$, vbNormal) = "" Then    ' проверяем наличие файла FileName$
        MsgBox "Файл: " & FileName$ & " не найден", vbCritical, "Отправка файла невозможна!"
        Exit Sub
    End If
 
    СсылкаНаЗагруженныйФайл = UploadFile(URL$, FileName$)    ' пытаемся отправить файл

    If Len(СсылкаНаЗагруженныйФайл) Then
        MsgBox "Ссылка для скачивания: " & СсылкаНаЗагруженныйФайл, vbInformation, _
               "Файл успешно загружен на файлообменник zalil.ru"
    Else
        MsgBox "Файл: " & FileName$, vbCritical, _
               "Не удалось отправить файл на файлообменник zalil.ru"
    End If
End Sub