投稿者 yama  (社会人) 投稿日時 2009/8/27 02:42:45
前回の追記です。

色々テストして分かったのですが、Vistaではソケットでのコネクションに時間が掛っています。

Imports System.Net.Sockets
    : 省略
'-----  ログイン コントロールコネクションの確立  -----
Private ControlConnectionSocket As Socket   'コントロールコネクション用ソケット
ControlConnectionSocket = New Socket(AddressFamily.InterNetwork, _
                                     SocketType.Stream, _
                                     ProtocolType.Tcp)
Dim EP As New IPEndPoint(Dns.GetHostEntry(_remoteHost).AddressList(0), _remotePort)
Try
    ControlConnectionSocket.Connect(EP)   '←ここで時間が掛かります
Catch Ex As Exception
    MessageString = Ex.Message
    MessageBox.Show(MessageString, "サーバーにログイン出来ませんでした!")
    Return False
End Try
    : 省略  
また、データコネクションでも時間がかかります
'----- ファイルをダウンロードする
Public Function DownloadFile(ByVal ServerFileName As String, _
                             ByVal LocalFileName As String, _
                             ByVal ResumeSW As Boolean) As Boolean
Dim DownloadFileFS As FileStream    'クライアント側ファイルFileStream
Dim DataConnectionSocket As Socket  'データコネクション用ソケット
Dim Offset As Long                  'レジューム処理時の開始位置

'-----  クライアント側ファイルが存在しない場合、空ファイルを作成する。
If (Not (File.Exists(LocalFileName))) Then
         DownloadFileFS = New FileStream(LocalFileName, FileMode.CreateNew)
         DownloadFileFS.Close()
End If
'-----  クライアント側ファイルのOpen  -----
DownloadFileFS = New FileStream(LocalFileName, FileMode.Open)
'-----  データコネクションの確立  -----
DataConnectionSocket = CreateDataSocket()    '← ここで時間がかかります
    : 省略
XPでは、コネクションの確立は直ぐですが、Vistaではどうして時間が掛かるのか不思議でなりません!!
因みに、Vistaでファイアウォールを無効にし、ウィルスソフトも停止して実行してみたのですが、結果は同じで、時間が掛かります。
宜しくお願いします。