京东JD取ck或者token

最新推荐文章于 2024-06-01 14:31:26 发布

qq727887261

最新推荐文章于 2024-06-01 14:31:26 发布

阅读量2.3k

点赞数

分类专栏：源码文章标签： ios

本文链接：https://blog.youkuaiyun.com/qq727887261/article/details/128931163

版权

源码专栏收录该内容

4 篇文章

订阅专栏

这段代码涉及从京东的com.jd.jdmobilelite.plist文件中读取内容，然后使用Cjson编码和正则表达式匹配方法（RegExMatchExSingle）来提取特定格式的数据（可能是ck或token）。如果提取成功，数据将被记录到两个不同的文本文件中，并显示一条成功消息；否则，显示失败消息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

京东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