[已解决]搬用百度短网址ＡＰＩ！怎么用ＡＵ3写百度短网址代码

xx44t10

本人对网页代码不懂。还请指点一二。
百度短址ＡＰＩ接口

<?php

$ch=curl_init();

curl_setopt($ch,CURLOPT_URL,"http://dwz.cn/create.php");

curl_setopt($ch,CURLOPT_POST,true);

curl_setopt($ch,CURLOPT_RETURNTRANSFER,true);

$data=array('url'=>'http://www.baidu.com/');

curl_setopt($ch,CURLOPT_POSTFIELDS,$data);

$strRes=curl_exec($ch);

curl_close($ch);

$arrResponse=json_decode($strRes,true);

if($arrResponse['status']==0)

{

/**错误处理*/

echo iconv('UTF-8','GBK',$arrResponse['err_msg'])."\n";

}

/** tinyurl */

echo$arrResponse['tinyurl']."\n";

?>

以上是ＰＨＰ代码。。。。请指导一下。谢谢了。

楼上风云

回复 1# xx44t10

沙发。
不明白您想要的具体功用。如果只是想打开 百度，论坛内大把的示例可供参考

suiyefeng

抓个包,,,直接post提交数据吧

xx44t10

回复 2# 楼上风云


    帅锅。。百度能找到。我还来论坛。。我不讨骂么。。

zldfsz

$url=InputBox("请输入一个网址","请输入一个网址",'http://www.autoitx.com/thread-32304-1-1.html')
Dim $WinHttp
$WinHttp = ObjCreate("Microsoft.XMLHTTP")
$WinHttp.Open('post',"http://dwz.cn/create.php", False)
$WinHttp.setRequestHeader("Pragma", "no-cache")
$WinHttp.setRequestHeader("Cache-Control", "no-cache")
$WinHttp.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
$WinHttp.Send('url='&$url)
If Not StringInStr($WinHttp.responseText,'"status":0') Then Exit MsgBox(4096, "提示","提交的网址有误")
$tinyurl=StringSplit($WinHttp.responseText, '/"')                
If MsgBox(4097, "按确定键复制短网址","http://dwz.cn/"&$tinyurl[$tinyurl[0]-1])=1 Then ClipPut("http://dwz.cn/"&$tinyurl[$tinyurl[0]-1])

xx44t10

回复 5# zldfsz


    太感谢了。。谢谢。。

zldfsz

5#的代码发现网址有&时生成的短网址出错，请用下面代码

$url=InputBox("请输入一个网址","请输入一个网址",'http://www.autoitx.com/forum.php?mod=redirect&goto=findpost&pid=436688&ptid=32304')
Dim $WinHttp
$url=StringReplace($url,"&","%26")
$WinHttp = ObjCreate("Microsoft.XMLHTTP")
$WinHttp.Open('post',"http://dwz.cn/create.php", False)
$WinHttp.setRequestHeader("Pragma", "no-cache")
$WinHttp.setRequestHeader("Cache-Control", "no-cache")
$WinHttp.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
$WinHttp.Send('url='&$url)
If Not StringInStr($WinHttp.responseText,'"status":0') Then Exit MsgBox(4096, "提示","提交的网址有误")
$tinyurl=StringRegExpReplace($WinHttp.responseText, '.*\\/(.*?)".*',"$1")  
If MsgBox(4097, "单击确定按钮复制短网址","http://dwz.cn/"&$tinyurl)=1 Then ClipPut("http://dwz.cn/"&$tinyurl)

huangke

5#的代码发现网址有&时生成的短网址出错，请用下面代码
zldfsz 发表于 2012-5-15 18:30

    不错不错哦，可哟用！