论坛 › 已解决问题区 › 百度短网址生成转成AU3[已解决]

heroxianf 发表于 2019-1-25 10:20:53

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

本帖最后由 heroxianf 于 2019-1-25 11:31 编辑

送大家一句： 干活的累死累活，有成果那又如何，到头来干不过写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 发表于 2019-1-25 11:13:31

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

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

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 发表于 2019-1-25 11:16:51

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

但是这样内容貌似不对

heroxianf 发表于 2019-1-25 11:27:05

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


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

haijie1223 发表于 2019-1-25 12:10:12

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

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

heroxianf 发表于 2019-1-25 12:21:35

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

{:face (239):}那里是我获取不到，就做了一下修改

haijie1223 发表于 2019-1-25 12:41:42

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

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

heroxianf 发表于 2019-1-25 12:49:30

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

好的 明白了。{:face (239):}

leibin0121 发表于 2019-1-31 22:54:44

学习，学习

查看完整版本: 百度短网址生成转成AU3[已解决]