通过vb.net发布AJAX post

Imports System.Net
Imports System.Text

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        SendAjaxPost()
    End Sub

    Private Sub SendAjaxPost()
        Dim url As String = "http://example.com/api" ' 替换为实际的API地址

        Dim request As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
        request.Method = "POST"
        request.ContentType = "application/x-www-form-urlencoded"

        Dim postData As String = "param1=value1&param2=value2" ' 替换为实际的POST数据
        Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData)
        request.ContentLength = byteArray.Length

        Dim dataStream As Stream = request.GetRequestStream()
        dataStream.Write(byteArray, 0, byteArray.Length)
        dataStream.Close()

        Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
        Dim responseStream As Stream = response.GetResponseStream()
        Dim reader As New StreamReader(responseStream)
        Dim responseText As String = reader.ReadToEnd()

        ' 处理响应数据，例如解析JSON数据、更新UI等操作
        MessageBox.Show(responseText)

        reader.Close()
        responseStream.Close()
        response.Close()
    End Sub
End Class