私は以下のコードを見つけて使用するために変更しましたが、唯一の問題は、ウェブサイトが失敗した場合の返品や成功がコードの終了につながりません。 (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
アーロン
これでタイムアウトを設定できないようです。ウェブサイトが正しく応答していない場合、約30秒後に時間切れになる解決策はありますか? – DevilWAH
http://www.dailydoseofexcel.com/archives/2006/10/09/async-xmlhttp-calls/を見ましたか? – Fionnuala