推荐点击下面图片，通过本站淘宝优惠价购买:
京东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://hqyman.cn/post/3748.html 非本站原创文章欢迎转载，原创文章需保留本站地址！
休息一下，本站随机推荐观看栏目:
