https://gsbelarus.com/gs/wiki/index.php?action=history&feed=atom&title=VBScript._%D0%A4%D1%83%D0%BD%D0%BA%D1%86%D0%B8%D1%8F_GetRef 2026-05-29T19:43:57Z История изменений этой страницы в вики MediaWiki 1.19.16 https://gsbelarus.com/gs/wiki/index.php?title=VBScript._%D0%A4%D1%83%D0%BD%D0%BA%D1%86%D0%B8%D1%8F_GetRef&diff=2641&oldid=prev 2009-05-13T16:17:08Z

<p>Создана новая страница размером Возвращает ссылку на процедуру. Object.EventName = GetRef(procname) ;object : Объект автомати...</p> <p><b>Новая страница</b></p><div>Возвращает ссылку на процедуру.<br /> <br /> Object.EventName = GetRef(procname)<br /> <br /> ;object : Объект автоматизации, для которого назначается обработчик события.<br /> ;eventname : Имя события.<br /> ;procname : Имя процедуры или функции, которая присваивается обработчику события.<br /> <br /> ==== Пример: ====<br /> <br /> Option Explicit<br /> <br /> Dim xmlHttp<br /> <br /> Function HandleRequest()<br /> MsgBox &quot;Состояние выполнения запроса: &quot; &amp;_<br /> xmlHttp.readyState<br /> If xmlHttp.ReadyState = 4 Then Set xmlHttp = Nothing<br /> End Function<br /> <br /> Sub TestVBScript<br /> Set xmlHttp = CreateObject(&quot;Microsoft.XMLHTTP&quot;)<br /> xmlHttp.OnReadyStateChange = GetRef(&quot;HandleRequest&quot;)<br /> xmlHttp.Open &quot;GET&quot;, &quot;http://gsbelarus.com/gs/index.php&quot;,_<br /> True<br /> xmlHttp.Send Null<br /> End Sub<br /> <br /> [[Category:VBScript]]<br /> [[Category:Книга]]</div>

SYSDBA