使用VB 以HttpPost方式实现数据发送

最新推荐文章于 2024-09-24 13:37:14 发布

大写的A

最新推荐文章于 2024-09-24 13:37:14 发布

阅读量2.1w

点赞数 1

分类专栏： Web技术文章标签： vb function

本文链接：https://blog.csdn.net/lvbian/article/details/17039891

版权

Web技术专栏收录该内容

2 篇文章 0 订阅

订阅专栏

Imports System.IO
Imports System.Xml
Imports System.Data
Imports System.Text.Encoding
Module Module1

    Sub Main()
        Dim str As String = "http://localhost/Post.aspx"
        Dim responseStr As String = PostRequest("xml内容", str)
        Console.WriteLine("http响应:")
        Console.WriteLine(responseStr)


    End Sub

    Public Function PostRequest(ByVal xmlRequest As String, ByVal postUrl As String) As String
        Dim xml As String = xmlRequest
        '实例化一个字符转码对象'
        Dim encoding As System.Text.Encoding = System.Text.Encoding.GetEncoding("utf-8")
        '创建一个web请求对象'
        Dim request As System.Net.WebRequest = System.Net.WebRequest.Create(postUrl)
        '设置请求方式为post'
        request.Method = "POST"
        '定义字节数组'
        Dim postdata() As System.Byte = encoding.GetBytes(xmlRequest)
        '设置request对象的请求字节的长度'
        request.ContentLength = postdata.Length
        '获取request对象的数据流'
        Dim requesstream As System.IO.Stream = request.GetRequestStream()
        '将数据内容填充到流中'
        requesstream.Write(postdata, 0, postdata.Length)
        '关闭流'
        requesstream.Close()
        '根据请求的request对象获取响应的response对象'
        Dim response As System.Net.WebResponse = request.GetResponse()
        '获取response数据流对象'
        Dim responsestream As StreamReader = New StreamReader(response.GetResponseStream())
        '将response流中的数据读取'
        Dim html As String = responsestream.ReadToEnd()
        requesstream.Close()
        response.Close()
        '返回本次请求的响应数据'
        Return html
    End Function

End Module






//http://localhost/Post.aspx的代码如下,是一个普通的aspx页面,
protected void Page_Load(object sender, EventArgs e)
    {
        ExecuteServer();
    }
    private void ExecuteServer()
    {
             StreamReader sr = new StreamReader(Request.InputStream);
            string strInput = sr.ReadToEnd();
            sr.Close();
            if (strInput.Contains("<tradeType>1001</tradeType>"))
            {
                Logger.LogInfo(String.Format("请求:{0}", strInput), "APITEST");
            }
            else
            {
                Logger.LogInfo(String.Format("请求:{0}", strInput));
            }
        this.Response.Write(strInput); //这里我们将收到的请求直接返回,不作处理,仅仅做事例而已
   }