论坛 › 已解决问题区 › [已解决]搬用百度短网址ＡＰＩ！怎么用ＡＵ3写百度短网址代码

xx44t10 发表于 2012-5-14 17:30:19

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

本帖最后由 xx44t10 于 2012-5-15 14:42 编辑

本人对网页代码不懂。还请指点一二。
百度短址ＡＰＩ接口<?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";

?>

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

楼上风云 发表于 2012-5-14 22:14:30

回复 1# xx44t10

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

suiyefeng 发表于 2012-5-14 23:59:18

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

xx44t10 发表于 2012-5-15 00:41:15

回复 2# 楼上风云


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

zldfsz 发表于 2012-5-15 01:07:00

$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-1])=1 Then ClipPut("http://dwz.cn/"&$tinyurl[$tinyurl-1])

xx44t10 发表于 2012-5-15 14:40:31

回复 5# zldfsz


    太感谢了。。谢谢。。

zldfsz 发表于 2012-5-15 18:30:49

本帖最后由 zldfsz 于 2013-7-10 17:46 编辑

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 发表于 2013-1-21 18:15:35

5#的代码发现网址有&时生成的短网址出错，请用下面代码
zldfsz 发表于 2012-5-15 18:30 http://www.autoitx.com/images/common/back.gif


    不错不错哦，可哟用！

查看完整版本: [已解决]搬用百度短网址ＡＰＩ！怎么用ＡＵ3写百度短网址代码