1. 发送 GET 请求 '以GET方式上传数据Function uploadData1(ByVal url As String) Dim http Set http = CreateObject("Microsoft.XMLHTTP") http.Open "GET", url, False http.send uploadData1 = http.StatusEnd Function 2. 发送 POST 请求 '以POST方式上传数据Function uploadData2(ByVal url As String, ...