VBscript 비동기 XMLHttp 내가 작업하고있는 프로젝트에 대해

Question

을 호출합니다. 비동기 XMLHTTP 호출을 시도하고 있습니다. 나는 다음과 같은 코드를 사용하고 :

soapmessage = _ 
"<?xml version='1.0' encoding='utf-8'?>"& vbcrlf& vbcrlf & _ 
"<soap:Envelope"& vbcrlf & _ 
" xmlns:xsi="&chr(34)&"http://www.w3.org/2001/XMLSchema-instance"&chr(34)& 
vbcrlf & _ 
" xmlns:xsd="&chr(34)&"http://www.w3.org/2001/XMLSchema"&chr(34)& vbcrlf & _ 
" xmlns:soap="&chr(34)&"http://www.w3.org/2003/05/soap- 
envelope"&chr(34)&">"& vbcrlf & _ 
" <soap:Body>"& vbcrlf & _ 
"<notification>"& vbcrlf & _ 
" <action>Action</action>"& vbcrlf & _ 
" <objectid>333333</objectid>"& vbcrlf & _ 
"</notification>"& vbcrlf & _ 
" </soap:Body>" & vbcrlf & _ 
" </soap:Envelope>" 

strEndpoint = "**********" 

Set xmlhttp = CreateObject("MSXML2.SERVERXMLHTTP.6.0") 
xmlhttp.open "POST", strEndpoint, True 
xmlhttp.OnReadyStateChange = doHttpOnReadyStateChange() 
xmlhttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8" 
xmlhttp.Send soapmessage 

Function doHttpOnReadyStateChange() 
    If xmlhttp.ReadyState = 4 Then 
     'do something 
    End If 
End Function 

나는 다음 내가 받기를 실행하려고 :

test.vbs(19, 1) Microsoft VBScript runtime error: Type mismatch: 'xmlhttp.OnReadyStateChange'

내가 잘못 일을 할 수 있는지 어떤 생각? 비동기 호출을 시도한 것은 처음이었습니다. OnReadyStateChange에 의아해했습니다.

Answer 1

GetRef() 함수를 사용하여 얻을 수있는 함수 참조가 필요합니다.

xmlhttp.OnReadyStateChange = GetRef("doHttpOnReadyStateChange") 

Dirk.R : 수정 사항 인 동안 추가하고 싶습니다. 성명서의 순서도 중요합니다!