如何使用 vba 将参数传递给 asp.net web api？

Question

我正在尝试使用 vba 发布到 web api。 问题是web api中的参数为空。 web api是用asp编写的。 我从 c# 调用了 api，它可以工作，但我无法从 vba 中获得它。

这是对 api 的 vba 调用：

Sub Test()

    Dim http As New MSXML2.XMLHTTP60
   
    http.Open "POST", "http://10.5.72.172:108/api/vbaemail", True

    http.SetRequestHeader "Content-type", "application/json"
    
    Call http.send("abc")
   
End Sub

这是我的简单 web api。

public void Post([FromBody] string strJson)
{
    SqlConnection cnnCom = null;
    SqlCommand cmdCom = null;
    string strSql = null;

    //write parameter to table
    cnnCom = new SqlConnection(CF.Get_Connection_String(CF.DatabaseName.COMMON));
    cnnCom.Open();
    strSql =
        "INSERT INTO Test( " +
        "F1) " +
        "VALUES( " +
        "'" + strJson + "')";
    cmdCom = new SqlCommand(strSql, cnnCom);
    cmdCom.ExecuteNonQuery();
    cnnCom.Dispose();
}

这是对 web api 的工作 c# 调用：

 static void Main(string[] args)
{
    HttpClient hc = new HttpClient();
    Task<HttpResponseMessage> task1 = null;

    //call web api
    task1 = hc.PostAsJsonAsync<string> 
        ("http://10.5.72.172:108/api/vbaemail", "abc");
}

Answer 1

http.Open "POST", "http://10.5.72.172:108/api/vbaemail", True

而是 True 设置 False

Answer 2

我能够通过用单引号将字符串括起来来让它工作。 问题是我不能在传递给 web api 的正文中的任何地方使用单引号，尽管可能有一种方法可以将它们转义。 在我们的例子中，这没什么大不了的，我们只是想修补一些最终会消失的旧 vba 程序。

Sub Test()

    Dim http As New MSXML2.XMLHTTP60
   
    http.Open "POST", "http://10.5.72.172:108/api/vbaemail", True

    http.SetRequestHeader "Content-type", "application/json"
    
    Call http.send("'" + strJson + "'")  
   
End Sub