Как это относится к теме?

Это был спам.

Может быть существует аналог? Хотя в VBA работает механизм объявлений вида ИмяОбъекта_ИмяМетода. Может быть это прокатит.

сразу валидацию не проходит

Не пройдет. Надо примерно так:

Function xmlhttp_onreadystatechange()
...
End Function
xmlhttp.onreadystatechange = GetRef("xmlhttp_onreadystatechange")

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

Вот еще один пример в помощь:

Dim url : url = "http://zakupki.gov.ru/pgz/documentdownload?documentId=62795440"

Dim xmlhttp : Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
xmlhttp.open "GET", url, False
xmlhttp.send

If xmlhttp.status <> 200 Then
	WScript.Echo xmlhttp.status, xmlhttp.statusText
	WScript.Quit
End If

Dim headers : headers = xmlhttp.getAllResponseHeaders()
WScript.Echo headers

Dim URL
Dim xmlhttp
Dim Status
  Set URL = "http://zakupki.gov.ru/pgz/documentdownload?documentId=62795440"
  Set xmlhttp = CreateObject("Microsoft.XMLHTTP")

у меня еще получился, а вот дальше...
Если это возможно, то как правильно переделать функцию xmlhttp.onreadystatechange под VBA?
у меня строка

  xmlhttp.onreadystatechange = function()

сразу валидацию не проходит...

Я же уже сказал:

Rumata пишет:

Я поправил код в сообщении выше

Исправляйте, проверяйте.

Ой, извините, то ли я этот комментарий просто проглядел, то ли это глюк сайта...

Исправляйте, проверяйте.

Наверно, не буду больше помогать Вам. AHK-то тут при чем?

#NoEnv
#SingleInstance,off
#Include %A_ScriptDir%\ws4ahk.ahk
SetWorkingDir %A_ScriptDir%  
   WS_Initialize()
Variables =
 (
var url = 'http://zakupki.gov.ru/pgz/documentdownload?documentId=62795440';
var xmlhttp = new ActiveXObject('Microsoft.XMLHTTP');
xmlhttp.onreadystatechange = function()
{
    // ждем завершения выполнения запроса
    if ( xmlhttp.readyState != 4 ) {
        return;
    }
 
    // посмотрим статус ответа сервера
    WScript.Echo(xmlhttp.status, xmlhttp.statusText);
 var Status = xmlhttp.status
var Text = xmlhttp.statusText
    // посмотрим заголовки ответа сервера
    var headers = xmlhttp.getAllResponseHeaders();
    WScript.Echo(headers);
};
 
// создать запрос к серверу
xmlhttp.open('GET', url);
 
// послать запрос на сервер
// будет вызвана созданная нами функция
xmlhttp.send();
)
  WS_Exec(Variables)
WS_Eval(Status, "Status")
WS_Eval(Text, "Text")
WS_Eval(headers, "headers")
MsgBox "%Status%"`n"%Text%"`n"%headers%"
ExitApp

Выводит пустые значения....

xmlhttp.open('GET', url, false);

Я забыл указать явно false, что значит не использовать асинхронные запросы; они выполняются "параллельно" работе основной программы. Так как после отправки запроса программа завершается, то и обработчик (функция onreadystatechange) не успевает выполниться и программа ничего не выводит. Такая ситуация была у Вас. И это правильно.

Другая ситуация была у меня. Перед тем как опубликовать тот пример, я уже выполнил запрос к заданному ресурсу, а данные скорее всего "закешировались" (возможно на прокси, возможно на моей машине). Всегда требуется время, пока запрос завершится. Так как данные в моем случае берутся из локального кеша, а не с удаленного сервера, то обработчик успевал выполниться, а программа - вывести результат.

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

cscript script.js

Должно вывести

Специально проверил

wscript script.js

так тоже работает

WScript.Echo(xmlhttp.status, xmlhttp.statusText)

и

WScript.Echo(headers)

должен мне выдать msgbox'ы с инфой, полученной при запросе.
Но у меня скрипт пролетает "вхолостую". Может, я что-то не то делаю... я банально сохранил этот код в файл request.js, а потом запустил его.
Привычка у меня такая после АНК и VBS. Может быть, вредная....