百度短网址生成转成AU3[已解决]

heroxianf

送大家一句： 干活的累死累活，有成果那又如何，到头来干不过写PPT的（出自某公司年会）


这个百度短网址生成，有谁能转成AU的，下面代码是空。

api文档：https://dwz.cn/console/apidoc

;通过POST返回数据并提示
#include <StringConstants.au3>

Local $url = 'https://dwz.cn/admin/v2/create'
Local $dat = 'https://www.baidu.com'

Local $tt = _PostDat($url, $dat)
MsgBox(0, '', $tt)

Func _PostDat($url, $dat)
        Local $NetData
        $oHttp = ObjCreate("WinHttp.WinHttpRequest.5.1")
        $oHttp.Option(4) = 13056 ; 忽略错误标志
        $oHttp.SetTimeOuts(1000, 1000, 1000, 3000) ; 设置超时时间
        $oHttp.Open("POST", $url, True)
        $oHttp.setRequestHeader('Content-Type', 'application/json')
        $oHttp.setRequestHeader('Token', 'aead77a2f42bfa0872e6e99df0c2f31e')
        $oHttp.setRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/64.0.3282.167 Safari/537.36")
        $oHttp.Send($dat)
        $NetData = BinaryToString($oHttp.ResponseBody, 4)
        Return $NetData
EndFunc   ;==>_PostDat

haijie1223

$oHttp.Open("POST", $url, True)
中的true改成false

zghwelcome

Local $url = 'https://dwz.cn/admin/v2/create'Local $dat = 'https://www.baidu.com'

Local $tt = _PostDat($url, $dat)
MsgBox(0, '', $tt)

Func _PostDat($url, $dat)
        Local $NetData
        $oHttp = ObjCreate("WinHttp.WinHttpRequest.5.1")
        $oHttp.Option(4) = 13056 ; 忽略错误标志
        $oHttp.SetTimeOuts(1000, 1000, 1000, 3000) ; 设置超时时间
        $oHttp.Open("POST", $url, True)
        $oHttp.setRequestHeader('Content-Type', 'application/json')
        $oHttp.setRequestHeader('Token', 'aead77a2f42bfa0872e6e99df0c2f31e')
        $oHttp.setRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/64.0.3282.167 Safari/537.36")
        $oHttp.Send('{"url":"' & $dat & '"}')
        $oHttp.waitforresponse
        $NetData = BinaryToString($oHttp.Responsebody, 4)
        Return $NetData
EndFunc   ;==>_PostDat

heroxianf

haijie1223 发表于 2019-1-25 11:13
$oHttp.Open("POST", $url, True)
中的true改成false

但是这样内容貌似不对  

heroxianf

zghwelcome 发表于 2019-1-25 11:16

发送数据还可以这么写，厉害。

haijie1223

heroxianf 发表于 2019-1-25 11:16
但是这样内容貌似不对

这个api的具体格式没看，我只是指出你au3代码的问题。

heroxianf

haijie1223 发表于 2019-1-25 12:10
这个api的具体格式没看，我只是指出你au3代码的问题。

  那里是我获取不到，就做了一下修改

haijie1223

heroxianf 发表于 2019-1-25 12:21
那里是我获取不到，就做了一下修改

$oHttp.Open("POST", $url, True)
这里后面的的参数如果是true，send后面必须加上waitforresponse，如果是false，可以不用加。

heroxianf

haijie1223 发表于 2019-1-25 12:41
$oHttp.Open("POST", $url, True)
这里后面的的参数如果是true，send后面必须加上waitforresponse，如果 ...

好的 明白了。

leibin0121

学习，学习