VBScript. Функция GetRef

Возвращает ссылку на процедуру.

 Object.EventName = GetRef(procname)

object 

Объект автоматизации, для которого назначается обработчик события.

eventname 

Имя события.

procname 

Имя процедуры или функции, которая присваивается обработчику события.

Пример:

 Option Explicit

 Dim xmlHttp

 Function HandleRequest()
   MsgBox "Состояние выполнения запроса: " &_
     xmlHttp.readyState
   If xmlHttp.ReadyState = 4 Then Set xmlHttp = Nothing
 End Function

 Sub TestVBScript
   Set xmlHttp = CreateObject("Microsoft.XMLHTTP")
   xmlHttp.OnReadyStateChange = GetRef("HandleRequest")
   xmlHttp.Open "GET", "http://gsbelarus.com/gs/index.php",_
     True
   xmlHttp.Send Null
 End Sub