易语言实现ip地址查询功能
来源:网络收集 点击: 时间:2024-03-01打开易语言软件,选择新建。在弹出的窗口中选择 Windows 窗口程序,之后点击确定



在左侧组件栏向空白程序中添加组件,组成界面,如图所示。设置好相关组件的属性。并且导入精易模块


双击启动窗口,进入窗口程序集,准备写代码

在窗口程序集中,新建一个程序集变量,名称为“开始句柄”,类型为整数型

在程序集界面右键单击,新建一个子程序,命名为查询功能。在子程序下方创建三个变量。如图所示


选择插入-常量,建立三个长文本常量,分别命名为 归属地 运营商 最新绑定域名,对应常量值为:
span class=name归属地:/spanspan class=value(.*?)/span
span class=name运营商:/spanspan class=value(.*?)/span/label
a href=/.*?/ target=_blank(.*?)/a


接下来在子程序 查询功能下写入如下代码:
.版本 2
地址 = “https://ipchaxun.com/” + 编辑框_ip地址.内容 + “/”
返回文本 = 网页_访问S (地址)
编辑框_查询结果.内容 = “”
正则表达式.创建 (#归属地, 返回文本)
编辑框_查询结果.加入文本 (“归属地:” + 正则表达式.取子匹配文本 (1, 1) + #换行符)
正则表达式.创建 (#运营商, 返回文本)
编辑框_查询结果.加入文本 (“运营商:” + 正则表达式.取子匹配文本 (1, 1) + #换行符)
正则表达式.创建 (#最新绑定域名, 返回文本)
编辑框_查询结果.加入文本 (“最新绑定域名:” + 正则表达式.取子匹配文本 (1, 1) + #换行符)

返回软件界面,双击开始查询按钮,进入到程序集界面,写入如下代码:
启动线程 (查询功能, , 开始句柄)


接下来我们测试程序,点击最上方的三角进行调试,输入ip地址后,可以查询到相关的信息出来。


整体代码总结:
.版本 2
.支持库 EThread
.程序集 窗口程序集_启动窗口
.程序集变量 开始句柄, 整数型
.子程序 查询功能
.局部变量 地址, 文本型
.局部变量 返回文本, 文本型
.局部变量 正则表达式, 正则表达式类
地址 = “https://ipchaxun.com/” + 编辑框_ip地址.内容 + “/”
返回文本 = 网页_访问S (地址)
编辑框_查询结果.内容 = “”
正则表达式.创建 (#归属地, 返回文本)
编辑框_查询结果.加入文本 (“归属地:” + 正则表达式.取子匹配文本 (1, 1) + #换行符)
正则表达式.创建 (#运营商, 返回文本)
编辑框_查询结果.加入文本 (“运营商:” + 正则表达式.取子匹配文本 (1, 1) + #换行符)
正则表达式.创建 (#最新绑定域名, 返回文本)
编辑框_查询结果.加入文本 (“最新绑定域名:” + 正则表达式.取子匹配文本 (1, 1) + #换行符)
.子程序 _按钮开始查询_被单击
启动线程 (查询功能, , 开始句柄)
易语言教程版权声明:
1、本文系转载,版权归原作者所有,旨在传递信息,不代表看本站的观点和立场。
2、本站仅提供信息发布平台,不承担相关法律责任。
3、若侵犯您的版权或隐私,请联系本站管理员删除。
4、文章链接:http://www.1haoku.cn/art_198024.html