- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- XMLHTTP post 方法【从此不再为API发愁了】 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=40878)
-- 发布时间：2013/10/4 16:59:00
-- 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 各位请留意一下................我没有看懂
http://www.360doc.com/content/12/1123/20/9545713_249824491.shtml
安这个文章写的
[此贴子已经被作者于2013-10-4 17:14:27编辑过]
-- 发布时间：2013/10/4 17:24:00
--
试了一下，参考
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)