C# と VB.NET の質問掲示板

はじめまして
vb 2008 express を使用してテストプログラムを作成しています。
HTTPのPOSTメソッドを使用してタイマーコントロールを利用して
定期的にデータを取り出したいと考えています。
まず手始めにボタンを押すたびに実行するように作成してみました。

  Dim p As String
  p = "POSTしたいデータ"
  Dim w As Object
  w = New Net.WebClient()
  w.Headers.Add("Content-Type", "application/xml")
  Dim d As Byte() = System.Text.Encoding.ASCII.GetBytes(p)
  w.Credentials = New NetworkCredential("ID", "PASSWD")
  Dim r As Byte() = w.UploadData("http://localhost:8000/api?cls=001", "POST", d)
  MsgBox(System.Text.Encoding.ASCII.GetString(r))

一度目は期待した動作をするのですが、再度ボタンを押すと

WebExceptionはハンドルされませんでした。
基礎になる接続が閉じられました：維持される必要があった接続が、
　　　　　サーバーによって切断されました

とエラーとなってしまいます。
いろいろと調べたのですが、まだ勉強不足で調べきれません。
ボタンを押すたびに Msgbox にデータが表示されるようにしたいのですが、
どなたか解決策をご教示いただけないでしょうか。

Using w As New Net.WebClient()
    ...
    MsgBox(System.Text.Encoding.ASCII.GetString(r))
End Using
としてみたらどうでしょうか？
// なぜwをAs Objectにしてるんでしょうか…。

ご回答ありがとうございます。

  Dim p As String
  p = "POSTしたいデータ"
  Using w As New Net.WebClient()
      w.Headers.Add("Content-Type", "application/xml")
      Dim d As Byte() = System.Text.Encoding.ASCII.GetBytes(p)
      w.Credentials = New NetworkCredential("ID", "PASSWD")
      Dim r As Byte() = w.UploadData("http://localhost:8000/api?cls=001", "POST", d)
      MsgBox(System.Text.Encoding.ASCII.GetString(r))
 End Using

と変更してやってみましたが、やはり UploadData のところで
同じエラーが発生します。
また、数分時間をおいて再度ボタンを押してみると違うエラー
　　WebExceptionはハンドルされませんでした
　　　要求は中止されました：要求がキャンセルされました
とでます。

すみませんが引き続きお願い致します。

> // なぜwをAs Objectにしてるんでしょうか…。
質問用に一部書き換えしていました。
実際には　Dim w As New Net.WebClient()　を使用しておりました。

Using というものがあること参考になりました。ありがとうございます。

WebSurferさん、魔界の仮面弁士さんいろいろと情報をいただきありがとうございます。

サーバからは HTTP/1.1 200 OK などが帰ってきているので 1.1 に対応していると思います。
Fidderでいろいろみていたのですが、リクエスト後の待ち時間をどこで見るのががよくわかりません。
Statisticsのところの以下のところで確認するのでしょうか。

ACTUAL PERFORMANCE
--------------
ClientConnected:	09:50:30.795
ClientBeginRequest:	09:50:40.374
GotRequestHeaders:	09:50:40.374
ClientDoneRequest:	09:50:40.374
Determine Gateway:	0ms
DNS Lookup: 		0ms
TCP/IP Connect:	0ms
HTTPS Handshake:	0ms
ServerConnected:	09:50:30.810
FiddlerBeginRequest:	09:50:40.374
ServerGotRequest:	09:50:40.374
ServerBeginResponse:	09:50:40.374
GotResponseHeaders:	09:50:40.374
ServerDoneResponse:	09:50:40.374
ClientBeginResponse:	09:50:40.374
ClientDoneResponse:	09:50:40.374



ちなみに以下がコードです。

req.KeepAlive = False を削除して
reqStream.Close()のあとにSystem.Threading.Thread.Sleep(1)をいれても
動きました。ほんの1msの待ち時間ですが、sleep関数呼び出しの待ち時間が影響しているのでしょうか。


Dim postDataBytes As Byte() = System.Text.Encoding.ASCII.GetBytes("POSTしたいXML文字列")
Dim req As HttpWebRequest = CType(WebRequest.Create("http://192.168.X.XXX:8000/api?cls=01"), HttpWebRequest)
req.Credentials = New NetworkCredential("ID", "PASSWD")
req.Method = "POST"
req.ContentType = "appplication/xml"
req.ContentLength = postDataBytes.Length
req.KeepAlive = False

Dim reqStream As Stream = req.GetRequestStream()
reqStream.Write(postDataBytes, 0, postDataBytes.Length)
reqStream.Close()

Dim res As WebResponse = req.GetResponse()
Dim resStream As Stream = res.GetResponseStream()
Dim enc As Text.Encoding = System.Text.Encoding.GetEncoding("UTF-8")
Dim sr As StreamReader = New StreamReader(resStream, enc)
Dim resData As String = sr.ReadToEnd
sr.Close()
resStream.Close()