易语言显ip地理位置源码

结合易语言彗星HTTP应用模块，读取网页源码取本机ip和地理位置。

.版本 2

.程序集 窗口程序集1

.子程序 _按钮2_被单击
.局部变量 address, 文本型
.局部变量 ip, 文本型

ip ＝ 彗星HTTP读文本 (“http://ip.3322.net”)  ' 这里访问这个地址就会得到一个ip，之所以用这个网站是因为访问他只会得到一个ip地址，其它任何数据都没有，简单。
编辑框1.内容 ＝ ip  ' 把ip地址显示出来
address ＝ 彗星HTTP读文本 (“http://www.ip138.com/ips138.asp?ip=” ＋ ip)  ' 这里用到ip138这个网站，把发送ip地址到这个网站会查到地理位置
编辑框3.内容 ＝ 彗星URL解码 (到文本 (address))  ' 把返回的一大串数据显示出来
编辑框2.内容 ＝ 取文本中间内容 (彗星URL解码 (到文本 (address)), “本站主数据：”, “</li><li>”, )  ' 把一大串数据中的地理位置给提取出来
' 下面是借用别人的一个子程序，取文本中间内容，这个比系统自带的更好用，好东西就要拿来用嘛

.子程序 取文本中间内容, 文本型
.参数 需取文本, 文本型
.参数 左边内容, 文本型
.参数 右边内容, 文本型
.参数 成功与否, 逻辑型, 参考 可空
.局部变量 长度, 整数型
.局部变量 左边位置, 整数型
.局部变量 左边长度, 整数型
.局部变量 右边位置, 整数型
.局部变量 右边长度, 整数型

长度 ＝ 取文本长度 (需取文本)
左边位置 ＝ 寻找文本 (需取文本, 左边内容, 0, 假)
左边长度 ＝ 取文本长度 (左边内容)
' 三叶资源网(www.sanye.cx)
.如果真 (左边位置 ＝ -1)
    成功与否 ＝ 假
    返回 (“未找到左边内容”)
.如果真结束
右边位置 ＝ 寻找文本 (需取文本, 右边内容, 0, 假)
右边长度 ＝ 取文本长度 (右边内容)
.如果真 (右边位置 ＝ -1)
    ' 三叶资源网(www.sanye.cx)
    成功与否 ＝ 假
    返回 (“未找到右边内容”)
.如果真结束
成功与否 ＝ 真
返回 (取文本中间 (需取文本, 左边位置 ＋ 左边长度, 长度 － (左边位置 ＋ 左边长度) － (长度 － 右边位置)))