VB.net 2005 向服务器POST信息(上传文件等)

大佬教程收集整理的这篇文章主要介绍了VB.net 2005 向服务器POST信息(上传文件等)，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

'上传文件
Public Function uploadTheFile(ByVal uploadUrl As String,ByVal uploadFilename As String) As String
Dim Hosturl As New System.Uri(uploadUrl)
Dim request As System.Net.httpWebrequest
Dim fs As New System.IO.FileStream(uploadFilename,FileMode.open,FileAccess.Read) '得到本地文件的数据流

request = CType(System.Net.Webrequest.Create(Hosturl),System.Net.httpWebrequest)
request.Timeout = 1000 * 5 * 60 '设置超时值30秒
request.Method = "POST" '传送方式
request.KeepAlive = True
request.ContentLength = fs.Length '设置传送的数据长度

Dim PostStream As Stream = request.GetrequestStream() '发送请求
Dim b(1024) As Byte
Dim n As Integer
'向服务器写入文件
n = fs.Read(b,b.Length)
Do While n > 0
PostStream.Write(b,n)
n = fs.Read(b,b.Length)
Loop
fs.Flush() '清空缓冲区
fs.Close()
'以上向服务器 POST 信息。

'以下是获取服务器返回信息
Dim response As System.Net.httpWebResponse = CType(request.GetResponse(),System.Net.httpWebResponsE)
Dim ReStream As StreamReader = New StreamReader(response.GetResponseStream,

System.Text.Encoding.GetEncoding("GB2312"))

Dim resStr As String = ReStream.ReadToEnd() MsgBox(response.StatusCode.ToString) '向网络服务器 POST 后返回的状态码，成功则返回"OK" response.Close() '关闭 End Fu

大佬总结

以上是大佬教程为你收集整理的VB.net 2005 向服务器POST信息(上传文件等)全部内容，希望文章能够帮你解决VB.net 2005 向服务器POST信息(上传文件等)所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。