With Inet1
 .URL = "172.32.255.4"
  Do
    DoEvents
  Loop Until .StillExecuting = False
 .UserName = "shadcedi"
  Do
    DoEvents
  Loop Until .StillExecuting = False
 .Password = "shadcedi"
  Do
    DoEvents
  Loop Until .StillExecuting = False
 .Execute , "put d:\CNTREdi_Data\Target_Messages\newftp\" & FileName & " EDIIN2/" & FileName
  Do
    DoEvents
  Loop Until .StillExecuting = False
  .Execute , "CLOSE"
  Do
    DoEvents
  Loop Until .StillExecuting = False
  End With我已经将REQUESTTIMEOUT设置为0了,程序是每10秒做一次传输,并且每次都关闭连接,究竟是什么原因导致这个问题的呢