主题：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")

    XMLH.send( "url=http://www.wzjuji.com" )

    Do While XMLH.readyState <> 4

        Application.DoEvents

    Loop  

Output.Show( XMLH.responseText)

此主题相关图片如下：qq拼音截图未命名.png

以上代码为调用百度短网址的API  我跑了N多个网站，看了N多个个资料 原来就这个几句代码。我恨都不互相帮助的...............找死我了。更恨写了N多句代码的人。中看不中用..................

其中setRequestHeader 各位请留意一下................我没有看懂