.版本 2
.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
GetTwitter ()
.子程序 GetTwitter
.局部变量 cookie, 文本型, , "0"
.局部变量 ua, 文本型
.局部变量 token, 文本型
.局部变量 cookies, 文本型
.局部变量 文本, 文本型
.局部变量 Json, 类_json
.局部变量 成员数, 整数型
.局部变量 时间, 文本型
.局部变量 内容, 文本型
.局部变量 数组, 文本型, , "0"
.局部变量 月份, 文本型
.局部变量 日期, 文本型
.局部变量 时分秒, 文本型
.局部变量 年, 文本型
网页_访问 (“http://mobile.twitter.com/”, , , , , #useragent, ua, 真, , , , , )
文本_取中间_批量 (ua, “et-cookie: ”, “Max-Age”, cookie, , , , , , , )
cookies = cookie [1] + cookie [2]
token = 文本_取出中间文本 (编码_Utf8到Ansi (网页_访问 (“https://api.twitter.com/1.1/guest/activate.json”, 1, , cookies, , #authorization, , , , , , , )), “:” + #引号, #引号, , )
文本 = 编码_Utf8到Ansi (网页_访问 (“https://twitter.com/i/api/graphql/VFKEUw-6LUwwZtrnSuX_PA/UserTweets?variables=%7B%22userId%22%3A%2244196397%22%2C%22count%22%3A20%2C%22withHighlightedLabel%22%3Atrue%2C%22withTweetQuoteCount%22%3Atrue%2C%22includePromotedContent%22%3Atrue%2C%22withTweetResult%22%3Afalse%2C%22withUserResults%22%3Afalse%2C%22withVoice%22%3Afalse%2C%22withNonLegacyCard%22%3Atrue%2C%22withBirdwatchPivots%22%3Afalse%7D”, , , cookies, , #authorization + #换行符 + #useragent + #换行符 + “x-guest-token: ” + token, , , , , , , ))
Json.解析 (文本, )
内容 = Json.取通用属性 (“data.user.result.timeline.timeline.instructions[0].entries[0].content.itemContent.tweet.legacy.full_text”, )
时间 = Json.取通用属性 (“data.user.result.timeline.timeline.instructions[0].entries[0].content.itemContent.tweet.legacy.created_at”, )
时间 = 文本_替换 (时间, , , , “:”, “ ”, “+”, “ ”, , , , , , )
数组 = 分割文本 (时间, “ ”, )
年 = 数组 [9]
月份 = 数组 [2]
日期 = 数组 [3]
.判断开始 (月份 = “Jan”)
月份 = “01”
.判断 (月份 = “Feb”)
月份 = “02”
.判断 (月份 = “Mar”)
月份 = “03”
.判断 (月份 = “Apr”)
月份 = “04”
.判断 (月份 = “May”)
月份 = “05”
.判断 (月份 = “Jun”)
月份 = “06”
.判断 (月份 = “Jul”)
月份 = “07”
.判断 (月份 = “Aug”)
月份 = “08”
.判断 (月份 = “Sep”)
月份 = “09”
.判断 (月份 = “Oct”)
月份 = “10”
.判断 (月份 = “Nov”)
月份 = “11”
.默认
月份 = “12”
.判断结束
时分秒 = 到文本 (到整数 (数组 [4]) + 8) + “:” + 数组 [5] + “:” + 数组 [6]
调试输出 (年 + “年” + 月份 + “月” + 日期 + “日 ” + 时分秒, 内容)