MSXML2.XMLHTTPでstatusを参照しようとしたらエラーが出る。

UWSCで下記のような感じで、httpのstatusを取得しようとしたら、「COM_Error:例外が発生しました。」と表示された。

Dim objhttp= CreateOleObj("MSXML2.XMLHTTP")
objHttp.Open("GET", "http://hogehoge.com", true)
objHttp.Send()
msgbox(objHttp.status)

色々弄ってると、readyStateが1の時にstatusを取得しようとしたらErrorが出る模様。下記のように、readyStateが4になるまで待ってから読み取るとエラーが出なくなった。

while 1
	ifb 4=objHttp.readyState then
		msgbox(objHttp.status)
		break
	endif
	sleep(0.1)
wend

コメント