.版本 2

.支持库 spec

.支持库 iext

.支持库 EChartBar

.支持库 internet

.子程序 Post查询

.参数 ID和名称, 文本型

.局部变量 文本, 文本型

.局部变量 json, _JSON

.局部变量 temp1, _JSON

.局部变量 temp2, _JSON

.局部变量 offers, _JSON

.局部变量 newname, 文本型

.局部变量 history, _JSON

.局部变量 a1, 整数型

.局部变量 a2, 整数型

.局部变量 a3, 整数型

.局部变量 i, 整数型

.局部变量 ii, 整数型

.局部变量 b, 整数型

调试输出 (ID和名称)

文本 ＝ 到文本 (彗星HTTP读文件 (“http://forums.zybez.net/runescape-2007-prices/api/” ＋ ID和名称, , ))

json.Init (真)

json.Parse (文本)

超级列表框1.全部删除 ()

置等待鼠标 ()

.计次循环首 (json.GetMemberCount (), a2)

temp1 ＝ json.GetMemberJson (a2 － 1)  ' 把他变成0

newname ＝ temp1.GetString (“name”)  ' 取文本属性

.如果真 (newname ＝ ID和名称)

最高价 ＝ 到整数 (temp1.GetString (“recent_high”))

.如果真 (temp1.KeyExist (“history”) ＝ 假)

到循环尾 ()

.如果真结束

temp2 ＝ temp1.GetJson (“history”)

ii ＝ temp2.GetMemberCount ()  ' 取JSON 成员数

曲线图控件1.Y轴最大值 ＝ 最高价 × 1.7

曲线图控件1.Y轴刻度数 ＝ 5

曲线图控件1.X轴标注数量 ＝ ii

曲线图控件1.图例数量 ＝ 1

.计次循环首 (ii, b)

history ＝ temp2.GetMemberJson (b － 1)

曲线图控件1.当前X轴标注索引 ＝ b

曲线图控件1.当前数据值 ＝ 到整数 (history.GetString (“price”))

.计次循环尾 ()

标签_high.标题 ＝ temp1.GetString (“recent_high”)

标签_low.标题 ＝ temp1.GetString (“recent_low”)

标签_name.标题 ＝ newname

标签_average.标题 ＝ temp1.GetString (“average”)

标签_alch.标题 ＝ temp1.GetString (“high_alch”)

图片 ＝ HTTP读文件 (temp1.GetString (“image”))

画板1.重画 ()

temp1 ＝ temp1.GetJson (“offers”)

i ＝ temp1.GetMemberCount ()  ' 取JSON 成员数

.计次循环首 (i, a3)

offers ＝ temp1.GetMemberJson (a3 － 1)

类型 ＝ 到整数 (offers.GetString (“selling”))

.如果 (类型 ＝ 1)

n1 ＝ 超级列表框1.插入表项 (, “卖”, 0, , , )

.否则

n1 ＝ 超级列表框1.插入表项 (, “买”, 1, , , )

.如果结束

超级列表框1.置标题 (n1, 1, offers.GetString (“quantity”))

超级列表框1.置标题 (n1, 2, offers.GetString (“price”))

超级列表框1.置标题 (n1, 3, 转换到时间差 (offers.GetString (“date”)))

超级列表框1.置标题 (n1, 4, offers.GetString (“rs_name”))

a1 ＝ a1 ＋ 1

状态条1.置文本 (1, “正在采集中” ＋ 到文本 (a1))

.计次循环尾 ()

.如果真结束

.计次循环尾 ()