取wai网IP毫秒级

xxhaishixx

前言：
    前段时间由于之前有位前辈写的，通过DNS服务器获取外网IP的例子（EC模块）失效，后来估计是DNS服务器调整，又恢复了。
    我然后按照他的方法也写了一个，代码多了几行，那是因为我的服务器头不一样。一般按照易语言提供的tcp就不需要头。

特别注意：禁止转载（发布）到52破解。
原理：自己架设一个服务器，用tcp协议，服务端接收到客户信息的的时候含有客户端IP地址，直接返回给它就行了。

源码是客户端的，服务端的自己完善。反正原理都公布了，你们也知道怎么搞。

源码：

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
GetExtranetIP	文本型		成功返回外网IP，失败返回“127.0.0.1”。特点：不是通过网页获取，用TCP获取，速度快效率高。

变量名	类 型	静态	数组	备 注
client	网络客户端
connect_ip	文本型
local_ip	字节集
sm	逻辑型
头	字节集
尾1	字节集
中间数据1	字节集
字符个数	字节集
尾2	字节集
ip	文本型

connect_ip ＝ 转换为IP地址 (“www.3322.org”)
如果 (client.连接 (connect_ip, 19112) ＝ 真)
头 ＝ 到字节集 (“EMSG0011”)
尾1 ＝ 到字节集 (“”)
尾2 ＝ 到字节集 (“”)
字符个数 ＝ 到字节集 (到文本 (取文本长度 (“getip”)))
client.发送 (头 ＋ { 174, 0, 0, 0, 0, 0, 0, 0, 174, 0, 0, 0 } ＋ 尾1 ＋ 字符个数 ＋ 尾2 ＋ 到字节集 (“getip”), 3000)
local_ip ＝ client.接收 (6000, sm)
local_ip ＝ local_ip ＋ 到字节集 (“|”)
local_ip ＝ 取字节集中间 (local_ip, 21, 取字节集长度 (local_ip) － 20)
ip ＝ 文本_取出中间文本 (到文本 (local_ip), “”, “|”, , 假)
如果 (sm ＝ 真)
client.断开 ()
返回 (ip)
client.断开 ()
返回 (“127.0.0.1”)

client.断开 ()
返回 (“127.0.0.1”)

子程序名	返回值类型	公开	备 注
文本_取出中间文本	文本型		比如：欲取全文本为“12345”,现在要取出“3”，<3>的前面为“2”，<3>的后面为“4”。
参数名	类 型	参考	可空	数组	备 注
欲取全文本	文本型				比如：欲取全文本为 12345
前面文本	文本型				3的前面为“2”，引号直接用 #引号，如："[color=#引号red#引号]"
后面文本	文本型				3的后面为“4”，引号直接用 #引号，如："[color=#引号red#引号]"
起始搜寻位置	整数型				可空。1为首位置，2为第2个位置，如此类推，如果被省略，则“寻找字节集”命令默认从首部开始，“倒找字节集”命令默认从尾部开始。
是否区分大小写	逻辑型				可空。初始值为“假”。假 = 不区分    真 = 区分大小写。

变量名	类 型	静态	数组	备 注
局_位置	整数型
局_位置1	整数型
局_前面文本	文本型
局_后面文本	文本型

局_前面文本 ＝ 子文本替换 (前面文本, “#引号”, #引号, , , 真)
局_后面文本 ＝ 子文本替换 (后面文本, “#引号”, #引号, , , 真)
是否区分大小写 ＝ 取反 (是否区分大小写)
局_位置 ＝ 寻找文本 (欲取全文本, 局_前面文本, 起始搜寻位置, 是否区分大小写)
如果真 (局_位置 ≠ -1)
局_位置 ＝ 局_位置 ＋ 取文本长度 (局_前面文本)
局_位置1 ＝ 寻找文本 (欲取全文本, 局_后面文本, 局_位置, 是否区分大小写)
如果真 (局_位置 ＝ -1 或 局_位置1 ＝ -1)
返回 (“”)
返回 (取文本中间 (欲取全文本, 局_位置, 局_位置1 － 局_位置))

i支持库列表	支持库注释
sock	网络通讯支持库

.版本 2<br /> .支持库 sock<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> <br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 GetExtranetIP, 文本型, 公开, 成功返回外网IP，失败返回“127.0.0.1”。特点：不是通过网页获取，用TCP获取，速度快效率高。<br /> .局部变量 client, 网络客户端<br /> .局部变量 connect_ip, 文本型<br /> .局部变量 local_ip, 字节集<br /> .局部变量 sm, 逻辑型<br /> .局部变量 头, 字节集<br /> .局部变量 尾1, 字节集<br /> .局部变量 中间数据1, 字节集<br /> .局部变量 字符个数, 字节集<br /> .局部变量 尾2, 字节集<br /> .局部变量 ip, 文本型<br /> <br /> connect_ip ＝ 转换为IP地址 (“www.3322.org”)<br /> .如果 (client.连接 (connect_ip, 19112) ＝ 真)<br />     头 ＝ 到字节集 (“EMSG0011”)<br />     尾1 ＝ 到字节集 (“”)<br />     尾2 ＝ 到字节集 (“”)<br />     字符个数 ＝ 到字节集 (到文本 (取文本长度 (“getip”)))<br />     client.发送 (头 ＋ { 174, 0, 0, 0, 0, 0, 0, 0, 174, 0, 0, 0 } ＋ 尾1 ＋ 字符个数 ＋ 尾2 ＋ 到字节集 (“getip”), 3000)<br />     local_ip ＝ client.接收 (6000, sm)<br />     local_ip ＝ local_ip ＋ 到字节集 (“|”)<br />     local_ip ＝ 取字节集中间 (local_ip, 21, 取字节集长度 (local_ip) － 20)<br />     ip ＝ 文本_取出中间文本 (到文本 (local_ip), “”, “|”, , 假)<br />     .如果 (sm ＝ 真)<br />         client.断开 ()<br />         返回 (ip)<br />     .否则<br />         client.断开 ()<br />         返回 (“127.0.0.1”)<br />     .如果结束<br /> <br /> .否则<br />     client.断开 ()<br />     返回 (“127.0.0.1”)<br /> .如果结束<br /> <br /> <br /> <br /> .子程序 文本_取出中间文本, 文本型, , 比如：欲取全文本为“12345”,现在要取出“3”，<3>的前面为“2”，<3>的后面为“4”。<br /> .参数 欲取全文本, 文本型, , 比如：欲取全文本为 12345<br /> .参数 前面文本, 文本型, , 3的前面为“2”，引号直接用 #引号，如："[color=#引号red#引号]"<br /> .参数 后面文本, 文本型, , 3的后面为“4”，引号直接用 #引号，如："[color=#引号red#引号]"<br /> .参数 起始搜寻位置, 整数型, 可空, 可空。1为首位置，2为第2个位置，如此类推，如果被省略，则“寻找字节集”命令默认从首部开始，“倒找字节集”命令默认从尾部开始。<br /> .参数 是否区分大小写, 逻辑型, 可空, 可空。初始值为“假”。假 = 不区分    真 = 区分大小写。<br /> .局部变量 局_位置, 整数型<br /> .局部变量 局_位置1, 整数型<br /> .局部变量 局_前面文本, 文本型<br /> .局部变量 局_后面文本, 文本型<br /> <br /> 局_前面文本 ＝ 子文本替换 (前面文本, “#引号”, #引号, , , 真)<br /> 局_后面文本 ＝ 子文本替换 (后面文本, “#引号”, #引号, , , 真)<br /> 是否区分大小写 ＝ 取反 (是否区分大小写)<br /> 局_位置 ＝ 寻找文本 (欲取全文本, 局_前面文本, 起始搜寻位置, 是否区分大小写)<br /> .如果真 (局_位置 ≠ -1)<br />     局_位置 ＝ 局_位置 ＋ 取文本长度 (局_前面文本)<br /> .如果真结束<br /> 局_位置1 ＝ 寻找文本 (欲取全文本, 局_后面文本, 局_位置, 是否区分大小写)<br /> .如果真 (局_位置 ＝ -1 或 局_位置1 ＝ -1)<br />     返回 (“”)<br /> .如果真结束<br /> 返回 (取文本中间 (欲取全文本, 局_位置, 局_位置1 － 局_位置))

ghost12

很赞同，谢谢！

dengxiao

感谢分享 好东西

q714

谢谢分享

ghost12

互相讨论，共同进步

zjzjzje

666666666666666666666666666谢谢

趣冉科技

感谢楼主分享，支持一下~~！！！

你送的花开了

支持开源~！感谢分享

奶牛

测试不型

Channge

1222222222222222222222222

果心豆腐酱

特别注意：禁止转载（发布）到52破J。