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