系统_取wai网IP

大司命

http://e.125.la/fun-1509.html

看到有这么一条命令！看着简单两句，只是还需要再套一个网络通讯支持库，又不想用访问网页取的方式（速度慢而且还需要注意接口有效），就自己写一个，增加下命令~

  

子程序名	返回值类型	公开	备 注
系统_取外网IP	文本型		取 本机的外网IP

变量名	类 型	静态	数组	备 注
WSAData	套接字信息
host_addr	整数型
sock	整数型
dwSize	整数型
sin	整数型
addr_list	整数型
dwBufLen	整数型
recvbuf	整数型
szBuf	文本型

如果真 (WSAStartup (合并短整数 (1, 1), WSAData) ＝ #ERROR_SUCCESS )
host_addr ＝ gethostbyname (“ns1.dnspod.net”)
如果真 (host_addr ≠ #NULL )
sock ＝ socket ( #AF_INET, #SOCK_STREAM, #IPPROTO_TCP )
dwSize ＝ 16  ' sizeof(sockaddr_in)
sin ＝ LocalAlloc ( #LMEM_ZEROINIT, dwSize)
__set_short (sin, 0, #AF_INET )  ' sin_family
__set_short (sin, 2, htons (6666))  ' sin_port
addr_list ＝ 指针_到整数 (指针_到整数 (host_addr ＋ 12))  ' sin_addr->h_addr_list
__set (sin, 4, 指针_到整数 (addr_list))  ' sin_addr.s_add
如果真 (connect (sock, sin, dwSize) ＝ 0)
dwBufLen ＝ 512
recvbuf ＝ LocalAlloc ( #LMEM_ZEROINIT, dwBufLen)
dwSize ＝ recv (sock, recvbuf, dwBufLen, 0)
如果真 (dwSize ＞ 0)
szBuf ＝ 指针到文本 (recvbuf)
LocalFree (recvbuf)
LocalFree (sin)
closesocket (sock)
WSACleanup ()
返回 (szBuf)

.版本 2<br /> .子程序 系统_取外网IP, 文本型, 公开, 取 本机的外网IP<br /> .局部变量 WSAData, 套接字信息<br /> .局部变量 host_addr, 整数型<br /> .局部变量 sock, 整数型<br /> .局部变量 dwSize, 整数型<br /> .局部变量 sin, 整数型<br /> .局部变量 addr_list, 整数型<br /> .局部变量 dwBufLen, 整数型<br /> .局部变量 recvbuf, 整数型<br /> .局部变量 szBuf, 文本型<br /> .如果真 (WSAStartup (合并短整数 (1, 1), WSAData) ＝ #ERROR_SUCCESS)<br />     host_addr ＝ gethostbyname (“ns1.dnspod.net”)<br />     .如果真 (host_addr ≠ #NULL)<br />         sock ＝ socket (#AF_INET, #SOCK_STREAM, #IPPROTO_TCP)<br />         dwSize ＝ 16  ' sizeof(sockaddr_in)<br />         sin ＝ LocalAlloc (#LMEM_ZEROINIT, dwSize)<br />         __set_short (sin, 0, #AF_INET)  ' sin_family<br />         __set_short (sin, 2, htons (6666))  ' sin_port<br />         addr_list ＝ 指针_到整数 (指针_到整数 (host_addr ＋ 12))  ' sin_addr->h_addr_list<br />         __set (sin, 4, 指针_到整数 (addr_list))  ' sin_addr.s_add<br />         .如果真 (connect (sock, sin, dwSize) ＝ 0)<br />             dwBufLen ＝ 512<br />             recvbuf ＝ LocalAlloc (#LMEM_ZEROINIT, dwBufLen)<br />             dwSize ＝ recv (sock, recvbuf, dwBufLen, 0)<br />             .如果真 (dwSize ＞ 0)<br />                 szBuf ＝ 指针到文本 (recvbuf)<br />             .如果真结束<br />             LocalFree (recvbuf)<br />         .如果真结束<br />         LocalFree (sin)<br />         closesocket (sock)<br />     .如果真结束<br />     WSACleanup ()<br /> .如果真结束<br /> 返回 (szBuf)

系统_取wai网IP.zip (1.07 MB, 下载次数: 163)

2021-9-28 15:11 上传

点击文件名下载附件
打包一起了！可以直接起飞了~

ab4157

大佬 没币了 发点币

jinyi977

你好 请添加我的好友 要找你做软件

zc5569664

大哥 你刚才给的火山APC注入就一空壳啊  没法调用！

小猴子SaSa

能做你徒弟?

小猴子SaSa

小猴子SaSa 发表于 2023-8-17 20:27
大佬不能和你私信，你看下你能整微乐不小弟想和你私聊

大佬看见消息了嘛回小弟话，你看下能不能合作不白嫖，有意向的话可以加我503796993

小猴子SaSa

大佬不能和你私信，你看下你能整微乐不小弟想和你私聊

1178099694

大文件源码分享只能外链蓝奏 ,论坛也是一大堆下载后外链蓝奏云  为什么我发帖就删除/?

lxd1215

你好，大司命，我想问一下csgo这类游戏是不能发求助吗，是不是涉及侵权，连定制大厅也不可以发吗，私信发不了给你

王林伟

大佬好帅，学习了