2012-02-24 11 views
2

私は以下のコードを見つけて使用するために変更しましたが、唯一の問題は、ウェブサイトが失敗した場合の返品や成功がコードの終了につながりません。 (IEがハングしている場合はIE)機能/コマンドのタイミングを合わせる

"HttpRequest.send"コマンドの後にタイムアウトを設定する方法はありますか? 30秒後に応答がない場合、それは失敗とマークされ、移動しますか?

 Set HttpRequest = CreateObject("Msxml2.XMLHTTP") 
    HttpRequest.open "HEAD", "http://example.com/", False 
    On Error Resume Next 
    HttpRequest.send 
    If Err.Number <> 0 Then 
    WScript.Echo "Error : " & Err.Number & ": " & Err.Description 
    Else 
    WScript.Echo "HTTP status: " & HttpRequest.status & " " _ 
     & HttpRequest.statusText 
    End If 

歓声

OHこれはVBA

アーロン

+0

これでタイムアウトを設定できないようです。ウェブサイトが正しく応答していない場合、約30秒後に時間切れになる解決策はありますか? – DevilWAH

+0

http://www.dailydoseofexcel.com/archives/2006/10/09/async-xmlhttp-calls/を見ましたか? – Fionnuala

答えて

2

"Msxml2.ServerXMLHTTP.3.0"に切り替え、その後、あなたが複数の条件のためにタイムアウトを設定することができますです。 http://msdn.microsoft.com/en-us/library/windows/desktop/ms760403(v=vs.85).aspx

+0

このメソッドを試してみると、アクティブなxオブジェクトを作成できません。 – DevilWAH

+0

これは私が64bitオフィスを走っているので可能でしょうか?または私はなぜ私はこの仕事を得ることができないとhepをhepすることができますか? – DevilWAH

+0

今、私はプロキシの設定に問題があります。 IEで動作しているのと同じプロキシサーバーを使用する必要があります。 Msxml2.XMLHTTPを使用して動作しますが、 "server"は使用しませんか? – DevilWAH

関連する問題