主题：XMLHTTP post 方法【从此不再为API发愁了】

 试了一下，参考

Dim XMLH As Object
XMLH = CreateObject("Microsoft.XMLHTTP")
Dim u As String
u="http://dwz.cn/create.php"
XMLH.open("Post", u, True)
xmlH.setRequestHeader("CONTENT-TYPE","application/x-www-form-urlencoded; charset=UTF-8")
XMLH.send("url=http://www.baidu.com")
Do While XMLH.readyState <> 4
    Application.DoEvents
Loop
Output.Show( XMLH.responseText)