Dim MyReq As HttpWebRequest
        MyReq = CType(WebRequest.Create(StrURL), HttpWebRequest)
        MyReq.Method = "POST"
        MyReq.KeepAlive = False     '是否与 Internet 资源建立持久连接
        MyReq.ContentType = "text/xml;charset=gb2312"
        MyReq.ContentLength = StrData.Length
        MyReq.Timeout = 30000       '超时10秒
        Dim MyStream As Stream
        Try
            '发送数据
            MyStream = MyReq.GetRequestStream()
            MyStream.Write(StrData, 0, StrData.Length)
            MyStream.Close()
        Catch ex As WebException
            Linfo.Text = "连接超时,请确认地址是否正确后重新尝试连接!"
            Return
        End Try
上面是发送数据
接收数据可以用XMLHTTP,在前端代码和服务端代码都可以实现