获取http 数据问题???
Public Function Sendx(ByVal url As String, ByVal data As String)
Application.DoEvents()
Dim sTemp As String
Try
Dim request As HttpWebRequest = CType(WebRequest.Create(New Uri(url)), HttpWebRequest) '使用Creat方法创建WebRequest实例
If data IsNot Nothing Then
request.Method = "POST"
request.ContentType = "application/x-www-form-urlencoded"
Dim rs As Stream = request.GetRequestStream()
Dim by() As Byte = Encoding.ASCII.GetBytes(data)
rs.Write(by, 0, by.Length)
rs.Close()
End If
Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse) '获得响应信息
'sTemp = response.StatusCode
Dim srReader As StreamReader = New StreamReader(response.GetResponseStream(), Encoding.UTF8) '获得从当前Internet资源返回的响应流数据
sTemp = srReader.ReadToEnd()
srReader.Close()
Catch ex As Exception
sTemp = ex.Message.ToString()
End Try
Return sTemp
End Function
我是这样写的,可以在函数没有返回之前,程序处于"未响应"状态. 如果让它在"后台"运行.....
[解决办法]
up
[解决办法]
帮顶~
[解决办法]
使用多线程，然后用类来实现Sendx参数的传递
