QQ收发消息

淘气小阿飞

1233333333333333333

你呆哪哪凉块

感谢分享，很给力！~

杨阳先森

确实很牛b的样子

Hugoyu

md 2枚大洋顶顶顶顶顶

Hugoyu

看看什么东西好玩不

免杀制作

为什么我打不开啊啊啊啊啊

wuqingg

厉害了大神。。。

gyylsxcyz

句柄实在是太6了，学习了

malu

.版本 2

.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行

输出调试文本 (功能_取JSON值 (文本_取出中间文本 (功能_网页访问 (), “=”, “;”, , )))
返回 (0)  ' 可以根据您的需要返回任意数值

.子程序 功能_网页访问, 文本型, , 本命令由【精易网页调试助手】生成，请配合精易模块使用。
.局部变量 局_网址, 文本型
.局部变量 局_方式, 整数型
.局部变量 ADD_协yi头, 类_POST数据类
.局部变量 局_提交协yi头, 文本型
.局部变量 局_是否重定向, 逻辑型
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型

局_网址 ＝ “http://pv.sohu.com/cityjson?ie=utf-8”
局_方式 ＝ 0
ADD_协yi头.添加 (“Host”, “ pv.sohu.com”, )
ADD_协yi头.添加 (“Connection”, “ keep-alive”, )
ADD_协yi头.添加 (“Cache-Control”, “ max-age=0”, )
ADD_协yi头.添加 (“Upgrade-Insecure-Requests”, “ 1”, )
ADD_协yi头.添加 (“User-Agent”, “ Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/74.0.3729.169 Safari/537.36”, )
ADD_协yi头.添加 (“Accept”, “ text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3”, )
ADD_协yi头.添加 (“Accept-Language”, “ zh-TW,zh;q=0.9,en-US;q=0.8,en;q=0.7,zh-CN;q=0.6”, )
局_提交协yi头 ＝ ADD_协yi头.获取协yi头数据 ()
局_是否重定向 ＝ 真
局_结果 ＝ 网页_访问 (局_网址, 局_方式, , , , 局_提交协yi头, , 局_是否重定向, , , , , )
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果, , , ))
返回 (局_返回)

.子程序 功能_取JSON值, 文本型, , 本命令由【精易网页调试助手】生成，请配合精易模块使用
.参数 Json数据, 文本型
.局部变量 局_JSON, 类_json
.局部变量 局_结果, 逻辑型
.局部变量 局_类型, 整数型

局_结果 ＝ 局_JSON.解析 (Json数据)
.如果真 (局_结果 ＝ 假)
    返回 (“”)
.如果真结束
局_类型 ＝ 局_JSON.取类型 (“cip”)

.如果 (局_类型 ＝ 1)
    返回 (局_JSON.取属性对象 (“cip”))
.否则
    .如果 (局_类型 ＝ 2)
        返回 (局_JSON.取属性 (“cip”).取数据文本 ())
    .否则
        返回 (局_JSON.取通用属性 (“cip”, ))
    .如果结束

.如果结束

A1652302901

为什么我打不开啊啊啊啊啊