没加密,可能是协议头。Global $oHTTP
$html = _posthttp("http://hn.189.cn/nmall/shop/num/ajaxNumberList?level=0%2C1®ionId=731&beginNum=&numMonthFee=&numPreDeposit=&goodsId=bbb770c96ab8494e91dea5d5decad0a4&sortFlag=&matchNum=&pageSize=1000¤tPage=1&poolId=1002&isMain=1")
MsgBox(0, "", BinaryToString($html, 4))
Func _posthttp($hostad, $poststr = "", $posttype = "get")
If Not IsObj($oHTTP) Then
$oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
$oHTTP.Option(0) = "Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/45.0.2454.101 Safari/537.36"
$oHTTP.SetTimeouts(30000, 30000, 30000, 30000)
EndIf
$oHTTP.open($posttype, $hostad, True)
$oHTTP.setRequestHeader('Content-Type', 'application/json;charset=UTF-8')
$oHTTP.send($poststr)
If Not $oHTTP.WaitForResponse(60) Then
$oHTTP.Abort()
Return SetError(1, 0, "")
EndIf
Return $oHTTP.responseBody
EndFunc ;==>_posthttp
|