精易论坛

标题: 求一个显示IP地址的写法，来各路专业人士。 [打印本页]

---

作者: cvhnjust    时间: 昨天 18:34
标题: 求一个显示IP地址的写法，来各路专业人士。
如下图：最好一次性写完整的例子并上传，我测试后立马采纳，谢谢大家！



补充内容 (2025-5-5 19:19):
我是小白，请高手写一个完整的列子上传。谢谢！我会尽快采纳最佳答案！

---

作者: 小白龙来学习    时间: 昨天 18:34
你看看 显示.e (956.22 KB, 下载次数: 5)

昨天 19:32 上传

点击文件名下载附件

---

作者: Mai001    时间: 昨天 19:12
精益模块上好像有个显示ip的指令，好像是取ip地址，你把他放在窗口启动下边就行

---

作者: zainex    时间: 昨天 19:13
下面这个cha询方式是从 精易模块 的 网页_取wai网IP 中找的：

  

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

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

变量名	类 型	静态	数组	备 注
网页	文本型
正则	正则表达式
搜索结果	搜索结果
IP地址	文本型
归属地	文本型

网页 ＝ 到文本 (编码转换 (HTTP读文件 (“http://2025.ip138.com”), #编码_UTF_8, #编码_GB18030, ))
正则.创建 (“：([\.0-9]+).+?自：([^<]+)”, )
搜索结果 ＝ 正则.搜索 (网页, 1, )
IP地址 ＝ 搜索结果.取子匹配文本 (网页, 1, )
归属地 ＝ 搜索结果.取子匹配文本 (网页, 2, )
信息框 (IP地址 ＋ “ ” ＋ 归属地, 0, “欢迎”, )
调试输出 (IP地址, 归属地)

i支持库列表	支持库注释
RegEx	正则表达式支持库
iconv	编码转换支持库
internet	互联网支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 RegEx<br /> .支持库 iconv<br /> .支持库 internet<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 网页, 文本型<br /> .局部变量 正则, 正则表达式<br /> .局部变量 搜索结果, 搜索结果<br /> .局部变量 IP地址, 文本型<br /> .局部变量 归属地, 文本型<br /> <br /> 网页 ＝ 到文本 (编码转换 (HTTP读文件 (“<a href="http://2025.ip138.com" target="_blank">http://2025.ip138.com</a>”), #编码_UTF_8, #编码_GB18030, ))<br /> 正则.创建 (“：([\.0-9]+).+?自：([^<]+)”, )<br /> 搜索结果 ＝ 正则.搜索 (网页, 1, )<br /> IP地址 ＝ 搜索结果.取子匹配文本 (网页, 1, )<br /> 归属地 ＝ 搜索结果.取子匹配文本 (网页, 2, )<br /> 信息框 (IP地址 ＋ “ ” ＋ 归属地, 0, “欢迎”, )<br /> 调试输出 (IP地址, 归属地)

所以你也可以直接这样写：

  

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

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

变量名	类 型	静态	数组	备 注
IP地址	文本型
归属地	文本型

IP地址 ＝ 网页_取wai网IP (归属地)
归属地 ＝ 取文本左边 (归属地, 寻找文本 (归属地, “<”, , 假) － 1)
信息框 (IP地址 ＋ “ ” ＋ 归属地, 0, “欢迎”, )
调试输出 (IP地址, 归属地)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 IP地址, 文本型<br /> .局部变量 归属地, 文本型<br /> <br /> IP地址 ＝ 网页_取wai网IP (归属地)<br /> 归属地 ＝ 取文本左边 (归属地, 寻找文本 (归属地, “<”, , 假) － 1)<br /> 信息框 (IP地址 ＋ “ ” ＋ 归属地, 0, “欢迎”, )<br /> 调试输出 (IP地址, 归属地)

---

作者: xiechangmao    时间: 昨天 19:14

  

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

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

变量名	类 型	静态	数组	备 注
城市	文本型

网页_取wai网IP (城市, 0)
调试输出 (城市)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 城市, 文本型<br /> <br /> 网页_取wai网IP (城市, 0)<br /> 调试输出 (城市)

补充内容 (2025-5-5 19:15):
精易模块里的啊 然后你要显示到哪  把城市扣了赋值不就好了

---

作者: cvhnjust    时间: 昨天 19:15

zainex 发表于 2025-5-5 19:13
下面这个cha询方式是从 精易模块 的 网页_取wai网IP 中找的：
[e=1].版本 2
.支持库 RegEx

您好，我是小白。能不能直接写个例子上传，谢谢！

---

作者: zainex    时间: 昨天 19:22
和最新的精易模块一起打包了：
代码.zip (1.15 MB, 下载次数: 3)

昨天 19:22 上传

点击文件名下载附件

---

作者: cvhnjust    时间: 昨天 19:25

zainex 发表于 2025-5-5 19:22
和最新的精易模块一起打包了：

您好，您发的我下载编译出来看了一下。这个是弹窗提示IP位置。但是不是我想要的，我想要的就是打开易语言程序，在易语言程序内显示文字！您看看我的主题要求，谢谢您的热心！

---

作者: xiechangmao    时间: 昨天 19:29

cvhnjust 发表于 2025-5-5 19:25
您好，您发的我下载编译出来看了一下。这个是弹窗提示IP位置。但是不是我想要的，我想要的就是打开易语言 ...

哥们 你动动脑子 自己换一下就好了啊  比方说放个编辑框 你就把那个信息框换成编辑框1.内容 = 信息框里填的那些就好了啊 标签之类的同理

补充内容 (2025-5-5 19:29):
换个字都懒得打吗

---

作者: zainex    时间: 昨天 19:33
你可以在 窗口 里加个 标签 组件，然后写上：

  

标签1.标题 ＝ IP地址 ＋ “ ” ＋ 归属地

标签1.标题 ＝ IP地址 ＋ “ ” ＋ 归属地

实现方法1.zip (1.36 KB, 下载次数: 1)

昨天 19:32 上传

点击文件名下载附件

---

欢迎光临 精易论坛 (https://bbs.125.la/)

Powered by Discuz! X3.4