[急] Msxml2.XMLHTTP.3.0について

EarlyHeroさんの書き込み (2007-12-19 18:25) より:
こんにちは、Earlyheroです。

以下のVBSでサイトにアクセスしようとしています。

現状アクセスはできていますが、仮にサイトにアクセスできなくなった場合、
このままでは「send」した後にアクセスできずに止まってしまいます。

「open」した後に例外(アクセス不可)を判定したいのですが、
どなたか方法をご存知の方はいらっしゃらないでしょうか？

例外時は「WScript.Quit(番号)」で止めて番号を返したいと思っています。

----------------------------------------------------------------------
Option Explicit

Dim args
Dim http
Dim url

Set args = WScript.Arguments
Set http = CreateObject("Msxml2.XMLHTTP.3.0")

url　= "http://(アクセスしたいサイト)"
Call http.open("POST", url, false)
Call http.setRequestHeader("Content-type", "application/x-www-form-urlencoded")
Call http.send("file=" & args(0))
----------------------------------------------------------------------

お手数をおかけしますが、宜しくお願いします。

「Call http.open("POST", url, false)」で「false」にしているため
タイムアウトせずに次の処理に向かっているようです。

「true」(またはパラメータを2つ)にするとタイムアウトするまで待つ
ようですが、結構時間がかかります。
なるべく早く判断したいので、「false」にしています。

EarlyHeroさんの書き込み (2007-12-20 11:59) より:
こんにちは、EarlyHeroです。

第３引数は勘違いしていました。ご指摘ありがとうございます。

今回のように第３引数をfalseにして非同期にした場合
�@readyStateプロパティの変更イベントを受け取るようにコーディングする
�AHTTPサーバーからレスポンスがなかなか返ってこない場合があるので、
　レスポンス待ちの制御を加える

�@、�Aともにコーディングの方法が分かりません。:cry:

実際のところ非同期にしていても遅くなる可能性があるということになりますね。
タイムアウトするまで我慢強く待つのとあまり変わらないのであれば
考え直さないといけないかもしれません。