爱一个蛋疼的源码；获取外网IP，很简单的

Silk丶旧言 · 发表于 2012-3-16 22:34:01

买了。3Q咯！！！！

罔洛人 · 发表于 2012-3-17 17:52:55

好好！！！！！！

乐酷仔／ · 发表于 2012-7-10 07:16:07

单的，不需要任何模块，主要是一种思路

benbenji · 发表于 2012-7-11 14:45:04

看看这个东西，怎么个情况

烧包vs · 发表于 2012-7-11 21:28:37

穷疯了~！！！！！！

MacintoshOS · 发表于 2012-7-11 21:31:43

支持，下载看看，正在做IP有关的呢

xuehuizhenxi · 发表于 2012-7-11 21:34:03

这么简单，你还卖

ゞ╱越轨恋爱 · 发表于 2012-7-11 21:37:50

.版本 2

.子程序获取IP, 文本型, 公开, 网络IP
.局部变量数组, 文本型, , "4"
.局部变量网页信息, 字节集

网页信息＝ HTTP读数据 (“http://archive.apnic.net/templates/ipv6man/?id=”)
数组＝分割文本 (取文本中间 (到文本 (网页信息), 寻找字节集 (网页信息, 到字节集 (#对象), ) ＋取文本长度 (#对象), 15), “.”, )
返回 (到文本 (到整数 (数组 [1])) ＋ “.” ＋到文本 (到整数 (数组 [2])) ＋ “.” ＋到文本 (到整数 (数组 [3])) ＋ “.” ＋到文本 (到整数 (数组 [4])))

.子程序获取地区, 文本型, 公开, 省级
.参数 IP, 文本型
.局部变量文本, 文本型
.局部变量数值, 整数型

文本＝到文本 (HTTP读数据 (“http://www.ip138.com/ips138.asp?ip=” ＋ IP ＋ “&action=2”))
数值＝寻找文本 (文本, “省”, , 假) －寻找文本 (文本, “本站主数据：”, , 假) －取文本长度 (“本站主数据：”)
返回 (取文本中间 (文本, 寻找文本 (文本, “本站主数据：”, , 假) ＋取文本长度 (“本站主数据：”), 数值))

asd880310 · 发表于 2012-7-12 03:43:49

这也要钱？？？？？？？？？？？

向钱冲 · 发表于 2012-10-20 15:20:53

拨号 (“@”, 编辑框_帐号.内容, 编辑框_密码.内容, , )

		自动登录	找回密码
密码			注册

[易语言纯源码] 爱一个蛋疼的源码；获取外网IP，很简单的