抓到的STR是乱码，有没有大师再完善一下，谢谢

cg001

Sub http_request()
    Dim winhttpObj As Object
    Dim resp As String
    Set winhttpObj = CreateObject("WinHttp.WinHttpRequest.5.1")
    With winhttpObj
        .Open "POST", "https://apphis.longhuvip.com/w1/api/index.php", False
        .setRequestHeader "Connection", "keep-alive"
        .setRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=utf-8"
        .setRequestHeader "Accept-Encoding", "gzip;q=1.0, compress;q=0.5"
        .setRequestHeader "Accept", "*/*"
        .setRequestHeader "User-Agent", "lhb/5.17.7 (com.kaipanla.www; build:0; iOS 16.2.0) Alamofire/4.9.1"
        .setRequestHeader "Content-Length", "186"
        .setRequestHeader "Accept-Language", "zh-Hans-CN;q=1.0"
        .setRequestHeader "Host", "apphis.longhuvip.com"
        .send "Day=2024-12-19&Filter=0&FilterGem=0&FilterMotherboard=0&FilterTIB=0&Index=0&Is_st=1&Order=1&PhoneOSNew=2&PidType=8&Type=18&VerSion=5.17.0.7&a=HisDaBanList&apiv=w38&c=HisHomeDingPan&st=20"
    End With
    resp = winhttpObj.responseText
    Debug.Print resp
    Set winhttpObj = Nothing
End Sub

cg001

是股票竞价涨停委买的抓取数据

Kaohsing

.setRequestHeader "Accept-Encoding", "gzip;q=1.0, compress;q=0.5" 这句去掉，然后再处理一下unicode编码

cg001

Kaohsing 发表于 2024-12-23 13:35
.setRequestHeader "Accept-Encoding", "gzip;q=1.0, compress;q=0.5" 这句去掉，然后再处理一下unicode编 ...

可以了，谢谢大神
能请教下为何要去掉这行吗？