开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 3602|回复: 17
收起左侧

[易语言纯源码] ip或域名测试 初学

[复制链接]
发表于 2019-7-6 11:07:12 | 显示全部楼层 |阅读模式   贵州省贵阳市
分享源码
界面截图:
是否带模块: 纯源码
备注说明: -
本帖最后由 a154038274 于 2019-7-6 11:17 编辑

一个小程序   能ping   ip和域名   能查看外网和内网ip  能查看域名解析ip   能记录你上一次使用记录  能隐藏窗口  用热键唤出  热键 f11  谢谢论坛里的源码完成了ping方面不用模块的调用
  
窗口程序集名保 留  保 留备 注
窗口程序集_启动窗口   
变量名类 型数组备 注
热键句柄   
循环逻辑型  
重复启动   
线程句柄   
ip正则表达式  
域名正则表达式  
文件号   
外网去重文本型  
内网去重文本型  

子程序名返回值类型公开备 注
__启动窗口_创建完毕  
ip.创建 (“\d+\.\d+\.\d+\.\d+”, )
域名.创建 (“^(?=^.{3,255}$)(http(s)?:\/\/)?(www\.)?[a-zA-Z0-9][-a-zA-Z0-9]{0,62}(\.[a-zA-Z0-9][-a-zA-Z0-9]{0,62})+(:\d+)*(\/\w+\.\w+)*$”, )
热键句柄 = 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F11键 )
如果真 (热键句柄 = 0)
信息框 (“注册热键失败!”#换行符“不能隐藏程序。”, 0, “信息框”, )
编辑框1.内容 = 读配置项 (取运行目录 ()“\ip.ini”, “ip”, “ip”, “127.0.0.1”)
编辑框2.内容 = 读配置项 (取运行目录 ()“\ip.ini”, “提醒内容”, “提醒内容”, “欢迎使用!”)
气球提示框1.关联组件 (标签4, “当前测试IP或域名指向IP”, -1, , , 标签4.宽度, 标签4.高度)
启动线程 (&_按钮2_被单击, , )
启动线程 (&子程序3, , )
启动线程 (&子程序4, , )
如果真 (文件是否存在 (取运行目录 ()“\日志.txt”))
写到文件 (取运行目录 ()“\日志.txt”, 到字节集 (“”))
置文件属性 (取运行目录 ()“\日志.txt”, #隐藏文件 )
文件号 = 打开文件 (取运行目录 ()“\日志.txt”, , )
移到文件首 (文件号)
插入文本 (文件号, 取主机名 ()“ ”到文本 (取现行时间 ()) + “ ”“运行程序”#换行符 )
子程序名返回值类型公开备 注
_标签1_反馈事件整数型 隐藏窗口事件
参数名类 型参考可空数组备 注
参数一整数型
参数二整数型
如果真 (参数一 = 热键句柄)
如果 (_启动窗口.可视 = )
_启动窗口.可视 = 假
_启动窗口.可视 = 真

子程序名返回值类型公开备 注
_按钮2_被单击 手动开始测试按钮
如果真 (循环 = )
循环 = 假
返回 ()

如果真 (重复启动 = 1)
强制结束线程 (线程句柄)
如果真 (ip.匹配 (编辑框1.内容) 域名.匹配 (编辑框1.内容))
启动线程 (&子程序1, , )
返回 ()
信息框 (“你输入的IP或域名有误,请重新输入。”, 0, “提示框”, )
移到文件首 (文件号)
插入文本 (文件号, 取主机名 ()“ ”到文本 (取现行时间 ()) + “ ”“IP或域名输入错误!”#换行符 )
子程序名返回值类型公开备 注
子程序1 循环测试主进程
变量名类 型静态数组备 注
参数整数型 
去重文本型 
循环 = 真
按钮2.标题 = “停止”
强制结束线程 (线程句柄)
循环判断首 ()
参数 = 系统_通信测试 (编辑框1.内容, 2000)
如果真 (参数 ≥ 0 参数 < 50)
标签1.文本颜色 = #嫩绿
如果真 (参数 ≥ 50 参数 ≤ 200)
标签1.文本颜色 = #蓝色
如果真 (参数 = -1 参数 > 200)
标签1.文本颜色 = #红色
标签1.标题 = “ping ”到文本 (参数)“ ms”
如果真 (参数 = -1)
标签1.标题 = “通讯失败”
如果 (信息框 (“与服务器通讯失败,请”#换行符“检查你的网络和主机状态!”#换行符 + 编辑框2.内容, 5, “提示框”, )#重试钮 )
如果真 (去重 ≠ “通讯失败!”)
移到文件首 (文件号)
插入文本 (文件号, 取主机名 ()“ ”到文本 (取现行时间 ()) + “ ” + 编辑框1.内容 + “ ”“通讯失败!”#换行符 )
去重 = “通讯失败!”
到循环尾 ()
如果真 (重复启动 = 0)
启动线程 (&子程序2, , 线程句柄)
跳出循环 ()

如果真 (去重 ≠ 到文本 (参数))
移到文件首 (文件号)
插入文本 (文件号, 取主机名 ()“ ”到文本 (取现行时间 ()) + “ ” + 编辑框1.内容 + “ ”到文本 (参数)“ms”#换行符 )
去重 = 到文本 (参数)
延时 (1000)
标签4.标题 = IP1
循环判断尾 (循环)
按钮2.标题 = “开始”
子程序名返回值类型公开备 注
子程序2 延迟启动循环
重复启动 = 1
延时 (1800000)
_按钮2_被单击 ()
重复启动 = 0
子程序名返回值类型公开备 注
子程序3 取本机有效ip
变量名类 型静态数组备 注
本机ip文本型0
循环次数整数型 
本机ip = 取本机IP ()
标签3.标题 = “”
计次循环首 (取数组成员数 (本机ip), 循环次数)
如果真 (到整数 (取末尾 (本机ip [循环次数])) = 1)
到循环尾 ()
标签3.标题 = 本机ip [循环次数]#换行符 + 标签3.标题
计次循环尾 ()
如果真 (内网去重 ≠ 子文本替换 (标签3.标题, #换行符, “ ”, , , ))
移到文件首 (文件号)
插入文本 (文件号, 取主机名 ()“ ”到文本 (取现行时间 ()) + “ ”“本机IP地址”子文本替换 (标签3.标题, #换行符, “ ”, , , )#换行符 )
内网去重 = 子文本替换 (标签3.标题, #换行符, “ ”, , , )
如果真 (取文本长度 (标签3.标题) < 15)
标签3.标题 = “获取IP失败”#换行符“是否连接网线!”
如果真 (内网去重 ≠ “获取IP失败”)
移到文件首 (文件号)
插入文本 (文件号, 取主机名 ()“ ”到文本 (取现行时间 ()) + “ ”“获取IP失败”#换行符 )
内网去重 = “获取IP失败”
延时 (10000)
启动线程 (&子程序4, , )
子程序名返回值类型公开备 注
子程序4 外网检测
变量名类 型静态数组备 注
外网ip文本型 
外网ip = 截取文本 (HTTP读文件 (“http://2019.ip138.com/ic.asp”), “[”, 2, 真, “]”, 1)
标签2.标题 = “”
如果 (ip.匹配 (外网ip))
标签2.标题 = 外网ip
如果真 (外网去重 ≠ 子文本替换 (外网ip, #换行符, “ ”, , , ))
移到文件首 (文件号)
插入文本 (文件号, 取主机名 ()“ ”到文本 (取现行时间 ()) + “ ”“外网IP地址”“ ” + 外网ip + #换行符 )
外网去重 = 外网ip
标签2.标题 = “获取外网IP失败”#换行符“确定是否联网!”
如果真 (外网去重 ≠ “获取外网IP失败”)
移到文件首 (文件号)
插入文本 (文件号, 取主机名 ()“ ”到文本 (取现行时间 ()) + “ ”“获取外网IP失败”#换行符 )
外网去重 = “获取外网IP失败”
延时 (10000)
启动线程 (&子程序3, , )
子程序名返回值类型公开备 注
保存配置 写出当前配置
写配置项 (取运行目录 ()“\ip.ini”, “ip”, “ip”, 编辑框1.内容)
写配置项 (取运行目录 ()“\ip.ini”, “提醒内容”, “提醒内容”, 编辑框2.内容)
置文件属性 (取运行目录 ()“\ip.ini”, #隐藏文件 )
移到文件首 (文件号)
插入文本 (文件号, 取主机名 ()“ ”到文本 (取现行时间 ()) + “ ”“保存配置文件。”#换行符 )
子程序名返回值类型公开备 注
_编辑框1_内容被改变 执行按钮4操作停止循环
如果真 (循环 = )
循环 = 假

子程序名返回值类型公开备 注
_编辑框1_按下某键逻辑型 按回车开始执行按钮2操作
参数名类 型参考可空数组备 注
键代码整数型
功能键状态整数型
如果真 (循环 = )
如果真 (键代码 = #回车键 )
_按钮2_被单击 ()


子程序名返回值类型公开备 注
__启动窗口_可否被关闭逻辑型 点关闭按钮执行隐藏    判断配置文件是否存在并执行按钮1操作
如果真 (热键句柄 = 0)
保存配置 ()
移到文件首 (文件号)
插入文本 (文件号, 取主机名 ()“ ”到文本 (取现行时间 ()) + “ ”“退出程序。”#换行符 )
关闭文件 (文件号)
返回 ()

如果 (信息框 (“确定是否关闭!!”#换行符“'是'关闭,'否'隐藏。”, 4, “信息框”, )#是钮 )
保存配置 ()
移到文件首 (文件号)
插入文本 (文件号, 取主机名 ()“ ”到文本 (取现行时间 ()) + “ ”“退出程序。”#换行符 )
关闭文件 (文件号)
返回 ()
如果真 (重复启动 = 0)
启动线程 (&子程序2, , 线程句柄)
执行子程序 (&_标签1_反馈事件, )
如果真 (热键句柄 = 0)
返回 ()
返回 ()


i支持库列表   支持库注释   
RegEx正则表达式支持库
shellEx扩展功能支持库一
iext5扩展界面支持库五
EThread多线程支持库
sock网络通讯支持库
internet互联网支持库

评分

参与人数 1好评 +1 精币 +2 收起 理由
pyms + 1 + 2 支持开源~!感谢分享

查看全部评分


 楼主| 发表于 2019-7-8 09:59:19 | 显示全部楼层   贵州省贵阳市
源码发上来  不太对   你们看看源程序吧

服务器测试软件.rar

692.54 KB, 下载次数: 8, 下载积分: 精币 -2 枚

回复 支持 反对

使用道具 举报

 楼主| 发表于 2019-7-8 14:48:03 | 显示全部楼层   贵州省贵阳市
下载了的过来评价一下哈
回复 支持 反对

使用道具 举报

结帖率:65% (35/54)

签到天数: 1 天

发表于 2019-7-16 06:00:55 | 显示全部楼层   山东省济宁市
感谢发布原创作品,精易因你更精彩!
回复 支持 反对

使用道具 举报

结帖率:100% (8/8)

签到天数: 2 天

发表于 2019-7-12 18:47:12 | 显示全部楼层   菲律宾
感谢楼主分享
回复 支持 反对

使用道具 举报

结帖率:83% (5/6)
发表于 2019-7-7 17:07:31 | 显示全部楼层   浙江省宁波市
源码全部发上来啊
回复 支持 反对

使用道具 举报

签到天数: 1 天

发表于 2019-7-7 16:08:33 | 显示全部楼层   广东省广州市
a154038274 发表于 2019-7-7 12:09
会有这个问题     有解决办法吗?

tcping  你百度一下这个
回复 支持 反对

使用道具 举报

 楼主| 发表于 2019-7-7 12:09:41 | 显示全部楼层   贵州省贵阳市
q541208867 发表于 2019-7-6 23:01
这个不错  但是有个一个问题  如果经禁ping的  应该就ping不出来了

会有这个问题     有解决办法吗?
回复 支持 反对

使用道具 举报

签到天数: 1 天

发表于 2019-7-6 23:01:52 | 显示全部楼层   广东省广州市
这个不错  但是有个一个问题  如果经禁ping的  应该就ping不出来了
回复 支持 反对

使用道具 举报

 楼主| 发表于 2019-7-6 21:39:39 | 显示全部楼层   贵州省贵阳市
Shanks 发表于 2019-7-6 21:05
支持开源~!感谢分享

源码不全  要的话我给出来
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:wp@125.la
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表