易语言获取IP地址

最新推荐文章于 2024-06-01 16:12:46 发布
最新推荐文章于 2024-06-01 16:12:46 发布
阅读量6.3k 收藏 2
点赞数 2
分类专栏： 易语言源码 文章标签： 易语言 内网IP 外网IP 写到文件
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/AJ947612227/article/details/52248360
版权 


‘使用易语言获取IP地址，并写出到运行目录



.版本 2
.支持库 internet
.支持库 sock

.子程序 _按钮1_被单击
.局部变量 外网IP, 文本型
.局部变量 内网IP, 文本型, , "0"
.局部变量 路径, 文本型

外网IP ＝ 到文本 (HTTP读文件 (“http://www.3322.org/dyndns/getip”))
编辑框_外网.内容 ＝ 外网IP
内网IP ＝ 取本机IP ()
.判断开始 (是否已在线 () ＝ 真)
    编辑框_内网.内容 ＝ 内网IP [2]
.默认
    编辑框_内网.内容 ＝ 内网IP [1]
.判断结束

路径 ＝ 到文本 (取运行目录 () ＋ “/ip.txt”)

写到文件 (路径, 到字节集 (编辑框_内网.内容) ＋ 到字节集 (#换行符) ＋ 到字节集 (编辑框_外网.内容))


AJ947612227
关注
  • 2
    点赞
  • 踩
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
易语言取计算机的ip,易语言怎样取IP物理地址
weixin_29535577的博客
07-27 1895
QQwry.dat 实际是dbf文件数据库 ，将QQwry.dat 改为QQwry.dbf 就可以看到里面的数据易语言读取 dbf数据库源码很多 百度一下就可以附源码 如下-------------------------------------------------.版本 2.程序集 _模块_字节集模块, , , ** 不要更改此处 字节集.ec.子程序 取十进制, 整数型, , 将非十进制的...
易语言获取外网ip地址
09-20
易语言玩获取外网ip.字数补丁
易语言取本地ip和本机ip源码
06-21
易语言的取本地ip和本机ip的源码！希望大家理解！
易语言本地IP一键切换程序（附带源码）
最新发布
孤客科技
06-01 497
易语言本地IP一键切换程序，IP切换后网都用不了，请用在正道上！
易语言-取局域网内的所有计算机名、IP、网卡地址源码
08-12
易语言-取局域网内的所有计算机名、IP、网卡地址源码
易语言-取本机所有IP地址易语言
06-29
源码是API学习例程源码，为WINDOWSAPI一日一练，实现了取本机所有IP地址。
易语言取本机IP（带模块）
01-15
易语言，取本机IP，内网，外网都可以取到，带模块，拿来就能用。
ip地理位置查询易语言代码
up2021的博客
09-20 684
.版本 2 .子程序 __启动窗口_创建完毕 '添加并使用《精易模块》 Send_API () .子程序 Send_API .局部变量 REQU_Data, 文本型, , , 提交字符串 .局部变量 return, 文本型, , , 返回字符串 .局部变量 API_URL, 文本型, , , 接口地址 .局部变量 API_KEY, 文本型, , , 接口密钥 API_URL ＝ “https://www.maitanbang.com/api/ipaddr/index” API_KEY ＝ “UvmkF
易语言修改IP和DNS
m0_37616220的博客
04-15 5886
易语言修改IP和DNS 修改IP和DNS的时候，有一个参数叫“连接名称”， 不清楚这个参数导致走了不少弯路 “连接名称”对应的是“网络和共享中心”中显示的连接名称 这里， 我也专门去找了一台双网卡的电脑， 双网卡的电脑“网络和共享中心”这里，会显示2个连接。 在程序进行网卡IP和DNS修改的时候， “连接名称”参数则能够选择修改哪一个网卡的IP和DNS ...
取本地IP易语言源码
12-08
可以获取本地IP地址，并且无需任何的附件 可以获取本地IP地址，并且无需任何的附件 可以获取本地IP地址，并且无需任何的附件
易语言十种获取外网IP地址的方法源码,易语言获取外网IP地址五种
08-22
易语言取外网IP地址源码系统结构:易语言取外网IP地址源码,取外网IP地址 ======窗口程序集1 || ||------_按钮1_被单击 || ||------_按钮2_被单击 || ||------_按钮3_被单击 || ||------_按钮4_被单击 |
易语言API取本机外网ip
08-05
易语言用API方式取本机外网ip,不需要访问网络取得IP了
易语言取本机所有ip
03-30
可以测试出本机所有的ip地址，是从其他资源网开采过来了，软件所有权不归本人所有。
易语言-获取本机ip
05-24
易语言 获取ip 本机
易语言解析ip138.com的查询接口
雾削木的CSDN博客
08-25 2510
本篇将会介绍如何进行解析ip138.com的查询接口，以此来查询ip。 那么本次的成品已经做好了，大家可以先下载看看效果↓ 蓝奏网盘：http://t.cn/A6P8VfiV 程序的解压码已经放在文件注释里面了。 下面来讲解析过程： 首先UP主使用了Chrom浏览器，并开启开发者工具中的Network（翻译过来叫啥网状物）。 总之是封到了在接受和发送中的两个比较重要的包； 抓包列表 从包内容，UP主发现www.ip138.com包内，出现一段含有内容是2000019.ip138.com的内容，于是UP便想到
易语言 取dns服务器,易语言自动修改内网IP地址和DNS
weixin_42425334的博客
07-31 3478
前段时间调试网络，在UBNT和路由器之间反复修改内网IP，比较麻烦。所以想能不能通过程序来实现一键修改呢？于是乎在精易模块里找到了这个命令：系统_修改IP地址和网关和子网掩码 ()，但是通过测试，发现用这个命令修改无效。个人猜测，应该是因为这个模块命令是在XP系统下写的，在WIN7系统下无效。今天百度搜索到这篇文章，给了我思路：http://bbs.125.la/thread-13615705-1...
DHCP自动获取IP地址
m0_65215097的博客
04-13 893
使用传输层端口号 端口号：67（sever服务器）,68（client主机）。（不可靠的传输协议实现可靠传输）以太网网络中用户获取IP地址方法有：1.手工配置 2.自动获取（DHCP）DHCP采用C/S架构（客户端服务器模型），TCP/IP协议下开发，DHCP（以太网）：动态主机配置协议（ 家用网（pppoe））接口选择dhcp 分配方式为全局模式。使用密码方式认证（本地密码）2.所有设备自动获取IP地址。定义dns服务器地址以及租约。创建DHCP 地址池。定义地址池下放地址范围。
易语言源码易语言ping网络ip地址源码
08-14
以下是一个使用易语言编写的简单的ping网络IP地址的源码： ```e '========================================================================== '模块名称 : Ping网络IP地址源码 '文件名称 : ping_ip_code.e '权 限 : 仅供参考学习，请勿用于非法用途 '编写时间 : 2022年1月1日 '编写人员 : 智能助手 '联系方式 : 无 '=========================================================================== '引用外部组件 Include "url/gpURL.e" '声明常量 Const ICMP_ECHO_REQUEST = 8 ICMP_ECHO_REPLY = 0 IP_HEADER_SIZE = 20 ICMP_HEADER_SIZE = 8 '定义类型 Type PingReplyType dwRoundTripTime DWord '往返时间 bTTL Byte '存活时间 bReply Byte '是否收到回复 strIP As String * 15 'IP地址 End Type '定义函数 Function Ping(ip As String) As PingReplyType '创建套接字 Dim hSock As Long hSock = CreateSocket(AF_INET, SOCK_RAW, IPPROTO_ICMP) '设置超时时间 SetSockOpt hSock, SOL_SOCKET, SO_RCVTIMEO, 3000 '构造ICMP请求包 Dim ICMPRequest(63) As Byte ICMPRequest(0) = ICMP_ECHO_REQUEST ICMPRequest(1) = 0 Dim nChecksum As Long nChecksum = ChecksumArray(ICMPRequest()) ICMPRequest(2) = nChecksum And &HFF ICMPRequest(3) = nChecksum Shr 8 And &HFF '发送ICMP请求包 Dim nSent As Long nSent = SendToSocket(hSock, ICMPRequest(), ICMP_HEADER_SIZE, ip, 0) '接收ICMP响应包 Dim ICMPReply(1023) As Byte Dim strReplyIP As Asciiz * 16 Dim nReceived As Long Dim nRecvIP As String * 16 nReceived = RecvFromSocket(hSock, ICMPReply(), 1023, strReplyIP, 16) '解析ICMP响应包 Dim Reply As PingReplyType Reply.dwRoundTripTime = Timer() - dwStartTime Reply.bTTL = ICMPReply(IP_HEADER_SIZE + 8) Reply.bReply = ICMPReply(20) Reply.strIP = strReplyIP Ping = Reply '关闭套接字 CloseSocket hSock End Function '测试程序 Dim Reply As PingReplyType Reply = Ping("192.168.1.1") If Reply.bReply = ICMP_ECHO_REPLY Then Print "Ping " + Reply.strIP + " 成功！" Else Print "Ping " + Reply.strIP + " 失败！" End If Delay 1000 ``` 这个源码使用了Windows底层的ICMP协议来进行ping操作，可以通过传入要ping的IP地址来获取相关的回复信息，包括往返时间、存活时间和是否收到回复等。编译运行后可以在命令行窗口中输出ping操作的结果。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值