网站首页 > 易语言相关 > 网络相关源码 正文
结合易语言彗星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) 成功与否 = 假 返回 (“未找到右边内容”) .如果真结束 成功与否 = 真 返回 (取文本中间 (需取文本, 左边位置 + 左边长度, 长度 - (左边位置 + 左边长度) - (长度 - 右边位置)))
- 上一篇: 易聊天1.0源码
- 下一篇: 易语言EDB联网注册帐号源码
猜你喜欢
- 2024-04-07 最新NT框架可用QQ群验证
- 2024-03-21 蓝奏云直链解析纯协议源码
- 2024-03-20 基于E2EE的无状态认证JsonWebToken算法、常用Web算法模块
- 2024-03-18 YoLo8本地cpu识别源码
- 2024-03-16 搜索引擎 下拉关键词例子 支持百d\搜狗\必应\搜狗手机版
- 2024-03-15 ZIP解压缩模块源码
- 2024-03-12 tgp登陆打开游戏源码
- 2024-03-12 抖音弹幕wss协议源码
- 2024-03-11 静默快捷取全部已登录QQ账号、httpkey、cookie、群验证等
- 2024-03-08 TG API 发消息与图片
你 发表评论:
欢迎- 百度站内搜索
- 关注微信公众号
- 网站分类
-
- 网站公告
- 电子书书籍
- 程序员工具箱
- 编程工具
- 易语言相关
- 网络相关源码
- 图形图像源码
- 系统工具源码
- 易语言模块源码
- 易语言支持库
- 数据库类源码
- 易语言例程
- 易语言游戏开发
- 易语言模块
- 多媒体类源码
- 易语言资源网
- 易语言视频教程
- JS分析教程
- 易语言图文教程
- 易语言常见问题及笔记
- 工具源码
- 易语言版本
- 网络编程
- javascript
- PHP编程
- html
- 正则表达式
- 面试题
- nodejs
- 其它综合
- 脚本专栏
- python
- 按键精灵相关
- 按键精灵图文教程
- 按键精灵视频教程
- 按键精灵Q语言
- 按键精灵安卓版
- golang
- 游戏安全
- 火山相关
- 火山安卓软件
- 火山常见问题及笔记
- 火山安卓源码
- 火山视频教程
- 火山PC版本下载
- 火山PC视窗例程
- 互联网那些事
- 引流推广
- 项目揭秘
- 网络营销
- 营销软件
- QQ营销软件
- 娱乐软件
- 机器人插件
- 培训教程
- 技术教程
- 活动线报
- 数据库
- Redis
- Access
- MongoDB
- Mysql
- 问答
- 其它
- 易语言
- 需求
- 在线教程
- 多线程培训班
- 觅风易语言教程
- 模拟系列教程
- 集中营易语言教程
- 历史数据
- 随机tag
已有1位网友发表了看法:
模块版本 评论于 [2020-02-15 17:46:15] 回复
易语言获取地理位置