京东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.kinber.cn/post/3748.html 转载需授权！
推荐本站淘宝优惠价购买喜欢的宝贝:
您阅读本篇文章共花了： 
