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://kinber.cn/post/3748.html 转载需授权！

分享到：