┌─如果( 水贴 = 假 )
│
│┌狂顶（★★★）
││
└┼→路过（......）

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

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

.版本 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”))
数值 ＝ 寻找文本 (文本, “省”, , 假) － 寻找文本 (文本, “本站主数据：”, , 假) － 取文本长度 (“本站主数据：”)
返回 (取文本中间 (文本, 寻找文本 (文本, “本站主数据：”, , 假) ＋ 取文本长度 (“本站主数据：”), 数值))

这么简单，你还卖

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

穷疯了~！！！！！！

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

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

好好！！！！！！