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,在前端代码和服务端代码都可以实现
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,在前端代码和服务端代码都可以实现
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货