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 各位请留意一下................我没有看懂
http://www.360doc.com/content/12/1123/20/9545713_249824491.shtml
安这个文章写的
[此贴子已经被作者于2013-10-4 17:14:27编辑过]
加好友 
发短信
Post By：2013/10/4 16:59:00 [只看该作者]
