我在用WINSOCK连接邮件服务器后，为后收不到服务器的响应

如题

解决方案 »

  1.   

    SMTP ? POP3 ?
    忘了说 HELO 吧？
      

  2.   

    我的代码是这样的：
    dim info as stringprivate sub wsock1_DataArrival(byVal bytesTotal as Long)
      wsock1.getdata info
    end subprivate sub comm1_click()
      wsock1.remotehost = "202.98.123.***"
      wsock1.remoteport = 25
      text1.text = info
      wsock1.close
    end sub
      

  3.   

    連接後服務器隻是接受連線請求，不會再專門向客戶端發響應包的，除非你在服務端已另寫有代碼。
    wsock1.close是不是應為Connect
      

  4.   

    嗯，那的确应为CONNECT
    但SMTP协议里说了的链接成功后会返回“220……”这样的字符呀？！
      

  5.   

    代码是不是这样改一下，如果有问题请各位大虾指正dim info as stringprivate sub wsock1_DataArrival(byVal bytesTotal as Long)
      wsock1.getdata info
      text1.text=info
    end subprivate sub comm1_click()
      wsock1.remotehost = "202.98.123.***"
      wsock1.remoteport = 25
      wsock1.connection
    end sub
      

  6.   

    dim info as stringprivate sub wsock1_DataArrival(byVal bytesTotal as Long)
      wsock1.getdata info
      text1.text=info
    end subprivate sub comm1_click()
      wsock1.remotehost = "202.98.123.***"
      wsock1.remoteport = 25
      wsock1.connect
    end sub
      

  7.   

    还是不行，跟防火墙之类的有没有关？
    但内网的防火墙都开放了端口的呀
    外网的，我用FOXMAIL都可以收发的！
      

  8.   

    你的Winsock连上去之后状态是不是7啊?
    如果是应该没问题..
    我连163.com,有返回
    220 Welcome to coremail System(With Anti-Spam) 2.1 for 163.com
      

  9.   

    哦，打错了，是4
    我查了属性值，4表是识别主机，是说没有识别到么？
    我现在也连的是
    Wsock1.RemoteHost = "163.com"
    Wsock1.RemotePort = 25
      

  10.   

    但我试了一下
    Wsock1.RemoteHost = "202.98.123.***" '163.com
    Wsock1.RemotePort = 25这样的话，属性值就是6
      

  11.   

    你搞错了吧? 163 SMTP 的服务器地址是 202.108.44.206
    你可以直接用域名 smtp.163.com 另外楼上的,问题还没涉及身份验证.
      

  12.   

    楼主和Garfield(猫仔|别忘了结帖,同志) 说得都没错！代码改成以下的后，state=4,返回的字符是：“220 ok RsProxyServer Ready”楼主再试试看！Private Sub wsock1_DataArrival(ByVal bytesTotal As Long)
      wsock1.GetData info
      Text1.Text = StrConv(info, vbUnicode)
    End SubPrivate Sub comm1_click()
      wsock1.Close
      wsock1.remotehost = "smtp.163.com"
      wsock1.remoteport = 25
      wsock1.Connect
      Text2 = wsock1.State
      Text1 = ""
    End Sub
      

  13.   

    嗯，已解决了，但是为何text1.text = info 要放在wsock1_DataArrival（）这里面呢？
    INFO是一个全局变量呀？
      

  14.   

    因为你只有在收到数据以后才能对info变量赋值.
      

  15.   

    参考这个程序：
    http://www.tonixsoft.com/index.php?mmenu_id=3&smenu_id=0025
    myemail