访问天气网页win10正常，win7返回空

fbdwoo

抱歉，精币没了，网址，读取天气
https://wis.qq.com/weather/common?source=pc&weather_type=observe&province=%E8%B4%B5%E5%B7%9E&city=%E5%85%AD%E7%9B%98%E6%B0%B4&county=%E6%B0%B4%E5%9F%8E

开始在win7失败，后来用win10正常
cha询了一下。安装了[size=16.002px] [color=rgb(var(--ds-rgb-link))][size=16.002px]KB3140245[size=16.002px] 补丁，还是不行
[size=16.002px]

[size=16.002px]有没有大神指导一下，怎么解决。

lastknife

是不是UTF-8编码问题。抓个包看看

nlxxbc

Desktop.zip (722.47 KB, 下载次数: 1)

5 天前 上传

点击文件名下载附件

如此

青春已不再

  

子程序名	返回值类型	公开	备 注
功能_网页访问	文本型		本命令由【精易网页调试助手】生成，请配合精易模块使用。

变量名	类 型	静态	数组	备 注
局_网址	文本型
局_方式	整数型
ADD_协议头	类_POST数据类
局_提交协议头	文本型
局_结果	字节集
局_返回	文本型

' [url]https://wis.qq.com/weather/common?source=pc&weather_type=observe&province=%E8%B4%B5%E5%B7%9E&city=%E5%85%AD%E7%9B%98%E6%B0%B4&county=%E6%B0%B4%E5%9F%8E[/url]
局_网址 ＝ “https://wis.qq.com/weather/commo ... =%E6%B0%B4%E5%9F%8E”
局_方式 ＝ 0
ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/47.0.2526.80 Safari/537.36 Core/1.47.277.400 QQBrowser/9.4.7658.400”)
局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()
局_结果 ＝ 网页_访问 (局_网址, 局_方式, , , , 局_提交协议头, , , , , )
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果))
调试输出 (局_返回)
返回 (局_返回)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 功能_网页访问, 文本型, , 本命令由【精易网页调试助手】生成，请配合精易模块使用。<br /> .局部变量 局_网址, 文本型<br /> .局部变量 局_方式, 整数型<br /> .局部变量 ADD_协议头, 类_POST数据类<br /> .局部变量 局_提交协议头, 文本型<br /> .局部变量 局_结果, 字节集<br /> .局部变量 局_返回, 文本型<br /> <br /> ' <a href="https://wis.qq.com/weather/common?source=pc&weather_type=observe&province=%E8%B4%B5%E5%B7%9E&city=%E5%85%AD%E7%9B%98%E6%B0%B4&county=%E6%B0%B4%E5%9F%8E" rel="nofollow" rel="nofollow" rel="nofollow" target="_blank">https://wis.qq.com/weather/commo ... =%E6%B0%B4%E5%9F%8E</a><br /> 局_网址 ＝ “<a href="https://wis.qq.com/weather/common?source=pc&weather_type=observe&province=%E8%B4%B5%E5%B7%9E&city=%E5%85%AD%E7%9B%98%E6%B0%B4&county=%E6%B0%B4%E5%9F%8E" rel="nofollow" rel="nofollow" rel="nofollow" target="_blank">https://wis.qq.com/weather/commo ... =%E6%B0%B4%E5%9F%8E</a>”<br /> 局_方式 ＝ 0<br /> ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/47.0.2526.80 Safari/537.36 Core/1.47.277.400 QQBrowser/9.4.7658.400”)<br /> <br /> 局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()<br /> <br /> 局_结果 ＝ 网页_访问 (局_网址, 局_方式, , , , 局_提交协议头, , , , , )<br /> 局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果))<br /> 调试输出 (局_返回)<br /> 返回 (局_返回)

Giggle梦痕

也许是 协议头之类的 没填全

lity2310

直接在浏览器能正常获取到吗？

huayuanderen

对于Win7系统，请确保：

已安装Internet Explorer 9或更高版本

系统已更新必要的安全补丁

网络连接正常

如果遇到SSL/TLS问题，可能需要：

安装Win7的TLS 1.2支持补丁

或使用代理服务器请求数据

huayuanderen

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

按钮1.标题 ＝ “获取水城天气”

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
json数据	文本型
天气报告	文本型

json数据 ＝ 到文本 (HTTP读文件 (“https://wis.qq.com/weather/commo ... =%E6%B0%B4%E5%9F%8E”))
' 解析JSON数据
天气报告 ＝ “水城当前天气情况：” ＋ #换行符 ＋ #换行符
天气报告 ＝ 天气报告 ＋ “温度：” ＋ 取JSON值 (json数据, “data.observe.degree”) ＋ “℃” ＋ #换行符
天气报告 ＝ 天气报告 ＋ “天气状况：” ＋ 取JSON值 (json数据, “data.observe.weather”) ＋ #换行符
天气报告 ＝ 天气报告 ＋ “湿度：” ＋ 取JSON值 (json数据, “data.observe.humidity”) ＋ “%” ＋ #换行符
天气报告 ＝ 天气报告 ＋ “风向：” ＋ 取JSON值 (json数据, “data.observe.wind_direction_name”) ＋ #换行符
天气报告 ＝ 天气报告 ＋ “风力：” ＋ 取JSON值 (json数据, “data.observe.wind_power”) ＋ “级” ＋ #换行符
天气报告 ＝ 天气报告 ＋ “降水量：” ＋ 取JSON值 (json数据, “data.observe.precipitation”) ＋ “mm” ＋ #换行符
天气报告 ＝ 天气报告 ＋ “气压：” ＋ 取JSON值 (json数据, “data.observe.pressure”) ＋ “hPa” ＋ #换行符
天气报告 ＝ 天气报告 ＋ “更新时间：” ＋ 取JSON值 (json数据, “data.observe.update_time”)
信息框 (天气报告, 0, “水城天气”, )

子程序名	返回值类型	公开	备 注
取JSON值	文本型
参数名	类 型	参考	可空	数组	备 注
json文本	文本型
键路径	文本型

变量名	类 型	静态	数组	备 注
键数组	文本型		0
当前键	文本型
当前位置	整数型
值开始	整数型
值结束	整数型
i	整数型

' 分割键路径
键数组 ＝ 分割文本 (键路径, “.”, )
' 逐层查找
当前位置 ＝ 1
计次循环首 (取数组成员数 (键数组), i)
当前键 ＝ 键数组 [i]
当前位置 ＝ 寻找文本 (json文本, #引号 ＋ 当前键 ＋ #引号 ＋ “:”, 当前位置, 假)
如果 (当前位置 ＝ -1)
返回 (“”)
当前位置 ＝ 当前位置 ＋ 取文本长度 (当前键) ＋ 3

计次循环尾 ()
' 提取值
如果 (取文本中间 (json文本, 当前位置, 1) ＝ #引号 )
' 字符串值
值开始 ＝ 当前位置 ＋ 1
值结束 ＝ 寻找文本 (json文本, #引号, 值开始, 假)
返回 (取文本中间 (json文本, 值开始, 值结束 － 值开始))
' 数值或其他
值结束 ＝ 寻找文本 (json文本, “,”, 当前位置, 假)
如果 (值结束 ＝ -1)
值结束 ＝ 寻找文本 (json文本, “}”, 当前位置, 假)


返回 (删首尾空 (取文本中间 (json文本, 当前位置, 值结束 － 当前位置)))

i支持库列表	支持库注释
internet	互联网支持库

.版本 2<br /> .支持库 internet<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 按钮1.标题 ＝ “获取水城天气”<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 json数据, 文本型<br /> .局部变量 天气报告, 文本型<br /> <br /> <br /> <br /> <br /> <br /> json数据 ＝ 到文本 (HTTP读文件 (“<a href="https://wis.qq.com/weather/common?source=pc&weather_type=observe&province=%E8%B4%B5%E5%B7%9E&city=%E5%85%AD%E7%9B%98%E6%B0%B4&county=%E6%B0%B4%E5%9F%8E" rel="nofollow" rel="nofollow" target="_blank">https://wis.qq.com/weather/commo ... =%E6%B0%B4%E5%9F%8E</a>”))<br /> <br /> ' 解析JSON数据<br /> 天气报告 ＝ “水城当前天气情况：” ＋ #换行符 ＋ #换行符<br /> 天气报告 ＝ 天气报告 ＋ “温度：” ＋ 取JSON值 (json数据, “data.observe.degree”) ＋ “℃” ＋ #换行符<br /> 天气报告 ＝ 天气报告 ＋ “天气状况：” ＋ 取JSON值 (json数据, “data.observe.weather”) ＋ #换行符<br /> 天气报告 ＝ 天气报告 ＋ “湿度：” ＋ 取JSON值 (json数据, “data.observe.humidity”) ＋ “%” ＋ #换行符<br /> 天气报告 ＝ 天气报告 ＋ “风向：” ＋ 取JSON值 (json数据, “data.observe.wind_direction_name”) ＋ #换行符<br /> 天气报告 ＝ 天气报告 ＋ “风力：” ＋ 取JSON值 (json数据, “data.observe.wind_power”) ＋ “级” ＋ #换行符<br /> 天气报告 ＝ 天气报告 ＋ “降水量：” ＋ 取JSON值 (json数据, “data.observe.precipitation”) ＋ “mm” ＋ #换行符<br /> 天气报告 ＝ 天气报告 ＋ “气压：” ＋ 取JSON值 (json数据, “data.observe.pressure”) ＋ “hPa” ＋ #换行符<br /> 天气报告 ＝ 天气报告 ＋ “更新时间：” ＋ 取JSON值 (json数据, “data.observe.update_time”)<br /> <br /> 信息框 (天气报告, 0, “水城天气”, )<br /> <br /> .子程序 取JSON值, 文本型<br /> .参数 json文本, 文本型<br /> .参数 键路径, 文本型<br /> .局部变量 键数组, 文本型, , "0"<br /> .局部变量 当前键, 文本型<br /> .局部变量 当前位置, 整数型<br /> .局部变量 值开始, 整数型<br /> .局部变量 值结束, 整数型<br /> .局部变量 i, 整数型<br /> <br /> ' 分割键路径<br /> 键数组 ＝ 分割文本 (键路径, “.”, )<br /> <br /> ' 逐层查找<br /> 当前位置 ＝ 1<br /> .计次循环首 (取数组成员数 (键数组), i)<br />     当前键 ＝ 键数组 <i><br />     当前位置 ＝ 寻找文本 (json文本, #引号 ＋ 当前键 ＋ #引号 ＋ “:”, 当前位置, 假)<br />     .如果 (当前位置 ＝ -1)<br />         返回 (“”)<br />     .否则<br />         当前位置 ＝ 当前位置 ＋ 取文本长度 (当前键) ＋ 3<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> ' 提取值<br /> .如果 (取文本中间 (json文本, 当前位置, 1) ＝ #引号)<br />     ' 字符串值<br />     值开始 ＝ 当前位置 ＋ 1<br />     值结束 ＝ 寻找文本 (json文本, #引号, 值开始, 假)<br />     返回 (取文本中间 (json文本, 值开始, 值结束 － 值开始))<br /> .否则<br />     ' 数值或其他<br />     值结束 ＝ 寻找文本 (json文本, “,”, 当前位置, 假)<br />     .如果 (值结束 ＝ -1)<br />         值结束 ＝ 寻找文本 (json文本, “}”, 当前位置, 假)<br />     .否则<br /> <br />     .如果结束<br />     返回 (删首尾空 (取文本中间 (json文本, 当前位置, 值结束 － 当前位置)))<br /> .如果结束

huayuanderen

试试看，试不试？试试就试试！