Yardım web sayfasına veri göndermek

Sub VeriGonder()
    Dim objXML As Object
    Dim url As String
    Dim veri As String
    
    ' XMLHTTP nesnesini oluştur
    Set objXML = CreateObject("MSXML2.ServerXMLHTTP")
    
    ' Hedef web sayfasının URL'sini belirtin
    url = "https://www.example.com/post_endpoint"
    
    ' Gönderilecek veriyi belirtin
    veri = "parametre1=deger1&parametre2=deger2"
    
    ' XMLHTTP isteği gönder
    objXML.Open "POST", url, False
    objXML.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    objXML.send veri
    
    ' İstek başarılıysa
    If objXML.Status = 200 Then
        ' Yanıtı işle
        MsgBox "İstek başarılı! Yanıt: " & objXML.responseText
    Else
        ' İstek başarısızsa
        MsgBox "İstek başarısız! Durum Kodu: " & objXML.Status
    End If
    
    ' XMLHTTP nesnesini temizle
    Set objXML = Nothing
End Sub