如何取IP 地理位置

zzheiren

源码.e (1.22 MB, 下载次数: 6)

6 天前 上传

点击文件名下载附件

取IP  地理位置  然后 时间  分别提示早上好 下午好 晚上好 深夜好

cunanhai

  

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

变量名	类 型	静态	数组	备 注
当前时间	日期时间型

当前时间 ＝ 取现行时间 ()
标签_时间.标题 ＝ “北京时间：” ＋ 到文本 (当前时间)
判断 (取小时 (当前时间) ＝ 6)
按钮_刷新.标题 ＝ “早上好”
判断 (取小时 (当前时间) ＝ 12)
按钮_刷新.标题 ＝ “中文好”
判断 (取小时 (当前时间) ＝ 18)
按钮_刷新.标题 ＝ “晚上好”
判断 (取小时 (当前时间) ＝ 0)
按钮_刷新.标题 ＝ “深夜好”

.版本 2<br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 当前时间, 日期时间型<br /> <br /> 当前时间 ＝ 取现行时间 ()<br /> 标签_时间.标题 ＝ “北京时间：” ＋ 到文本 (当前时间)<br /> .判断开始 (取小时 (当前时间) ＝ 6)<br />     按钮_刷新.标题 ＝ “早上好”<br /> .判断 (取小时 (当前时间) ＝ 12)<br />     按钮_刷新.标题 ＝ “中文好”<br /> .判断 (取小时 (当前时间) ＝ 18)<br />     按钮_刷新.标题 ＝ “晚上好”<br /> .判断 (取小时 (当前时间) ＝ 0)<br />     按钮_刷新.标题 ＝ “深夜好”<br /> .默认<br /> <br /> .判断结束

Sh1eng

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
IP地址	文本型
地理位置	文本型

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

获取网络信息 ()
显示问候信息 ()

子程序名	返回值类型	公开	备 注
获取网络信息

变量名	类 型	静态	数组	备 注
网络操作	网络操作
返回数据	文本型
起始位置	整数型
结束位置	整数型
超时计数	整数型

' 获取公网IP
网络操作.置代理服务器 ("", , , , )
返回数据 ＝ 网络操作.HTTP读文件 ("http://ip.3322.net/", , , , , , , , , )
如果真 (返回数据 ＝ "")
返回数据 ＝ 网络操作.HTTP读文件 ("http://ip-api.com/line/?fields=query", , , , , , , , , )

如果 (返回数据 ≠ "")
IP地址 ＝ 返回数据
返回数据 ＝ 网络操作.HTTP读文件 ("http://ip-api.com/line/?fields=country,city", , , , , , , , , )
如果真 (返回数据 ≠ "")
起始位置 ＝ 寻找文本 (返回数据, #换行符, , 假) ＋ 1
结束位置 ＝ 寻找文本 (返回数据, #换行符, 起始位置, 假)
地理位置 ＝ 取文本中间 (返回数据, 起始位置, 结束位置 － 起始位置) ＋ " " ＋ 取文本中间 (返回数据, 结束位置 ＋ 1, 取文本长度 (返回数据))
' 备用方案：尝试获取本地IP
计次循环首 (4, 超时计数)
返回数据 ＝ 网络操作.取本机IP ()
如果真 (返回数据 ≠ "")
IP地址 ＝ 返回数据
跳出循环 ()
程序_延时 (300)
计次循环尾 ()
地理位置 ＝ "未知"

子程序名	返回值类型	公开	备 注
显示问候信息

变量名	类 型	静态	数组	备 注
当前时间	日期时间型
小时	整数型
问候语	文本型

当前时间 ＝ 取现行时间 ()
小时 ＝ 取小时 (当前时间)
判断 (小时 ≥ 5 且 小时 ＜ 12)
问候语 ＝ "早上好"
判断 (小时 ≥ 12 且 小时 ＜ 18)
问候语 ＝ "下午好"
判断 (小时 ≥ 18 且 小时 ＜ 23)
问候语 ＝ "晚上好"
问候语 ＝ "深夜好"

信息框 (问候语 ＋ "！" ＋ #换行符 ＋ "您的IP地址：" ＋ IP地址 ＋ #换行符 ＋ "地理位置：" ＋ 地理位置, 0, , )

.版本 2<br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 IP地址, 文本型<br /> .程序集变量 地理位置, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br />    获取网络信息()<br />    显示问候信息()<br /> <br /> .子程序 获取网络信息<br /> .局部变量 网络操作, 网络操作<br /> .局部变量 返回数据, 文本型<br /> .局部变量 起始位置, 整数型<br /> .局部变量 结束位置, 整数型<br /> .局部变量 超时计数, 整数型<br /> <br /> ' 获取公网IP<br /> 网络操作.置代理服务器("", , , , )<br /> 返回数据 ＝ 网络操作.HTTP读文件("http://ip.3322.net/", , , , , , , , , )<br /> .如果真 (返回数据 ＝ "")<br />     返回数据 ＝ 网络操作.HTTP读文件("http://ip-api.com/line/?fields=query", , , , , , , , , )<br /> .如果真结束<br /> <br /> .如果 (返回数据 ≠ "")<br />     IP地址 ＝ 返回数据<br />     返回数据 ＝ 网络操作.HTTP读文件("http://ip-api.com/line/?fields=country,city", , , , , , , , , )<br />     .如果真 (返回数据 ≠ "")<br />         起始位置 ＝ 寻找文本(返回数据, #换行符, , 假) ＋ 1<br />         结束位置 ＝ 寻找文本(返回数据, #换行符, 起始位置, 假)<br />         地理位置 ＝ 取文本中间(返回数据, 起始位置, 结束位置 － 起始位置) ＋ " " ＋ 取文本中间(返回数据, 结束位置 ＋ 1, 取文本长度(返回数据))<br />     .如果真结束<br /> .否则<br />     ' 备用方案：尝试获取本地IP<br />     .计次循环首(4, 超时计数)<br />         返回数据 ＝ 网络操作.取本机IP()<br />         .如果真(返回数据 ≠ "")<br />             IP地址 ＝ 返回数据<br />             跳出循环()<br />         .如果真结束<br />         程序_延时(300)<br />     .计次循环尾()<br />     地理位置 ＝ "未知"<br /> .如果结束<br /> <br /> .子程序 显示问候信息<br /> .局部变量 当前时间, 日期时间型<br /> .局部变量 小时, 整数型<br /> .局部变量 问候语, 文本型<br /> <br /> 当前时间 ＝ 取现行时间()<br /> 小时 ＝ 取小时(当前时间)<br /> <br /> .判断开始 (小时 ≥ 5 且 小时 ＜ 12)<br />     问候语 ＝ "早上好"<br /> .判断 (小时 ≥ 12 且 小时 ＜ 18)<br />     问候语 ＝ "下午好"<br /> .判断 (小时 ≥ 18 且 小时 ＜ 23)<br />     问候语 ＝ "晚上好"<br /> .默认<br />     问候语 ＝ "深夜好"<br /> .判断结束<br /> <br /> 信息框(问候语 ＋ "！" ＋ #换行符 ＋ "您的IP地址：" ＋ IP地址 ＋ #换行符 ＋ "地理位置：" ＋ 地理位置, 0, , )

BruceJoysky1987

附件：

源码.e (154.18 KB, 下载次数: 4)

6 天前 上传

点击文件名下载附件

这样？

猫不深沉

不错萨达萨达萨达萨达打撒