HQY

京东JD取ck或者token

京东JD取ck或者token

dim w1 = DateTime.Format()'取时间

Dim plist路径 = “/Library/Preferences/com.jd.jdmobilelite.plist”

TracePrint plist路径

Dim txt = zm.FileRead(plist路径)

Dim json = Cjson.Encode(txt)

Dim data = zm.RegExMatchExSingle (json, “%d%d%w*%-1%.0%.1”)

If Len(data) > 10 Then

TracePrint “Token提取成功”&data

ShowMessage “Token提取成功”&data

File.Append “/var/dytoken.txt”, data&“----”&w1& Chr(13) & Chr(10)

File.Append “/User/Library/MobileAnjianEn/files/dytoken.txt”, data&“----”&w1& Chr(13) & Chr(10)

Else

TracePrint “Token提取失败！！！”&data

ShowMessage “Token提取失败！！！”&data

End If

推荐本站淘宝优惠价购买喜欢的宝贝:

本文链接：https://www.hqytech.cn/post/3748.html 非本站原创文章欢迎转载，原创文章需保留本站地址！

分享到：