POST 取返回文本 问题

zsl

IP 转换工具   测试转换     923456572


   提交地址： http://www.ip.la/index.php

   提交数据： colid=3&ip=923456572

返回文本 ：   锘?script>location.href='/ip/923456572.html'</script>

如何取出 返回网页里的IP 地址信息  

您的IP地址: 55.10.212.60

来自： 美国 弗吉尼亚美国陆军部队

﹎尐ゞL

zsl 发表于 2013-11-20 02:19
比如查出来 是 60.71.55.70  怎么给返回为 70.55.71.60  反过来

[e]
.版本 2
.支持库 spec

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 返回文本, 文本型
.局部变量 地址, 文本型
.局部变量 来自, 文本型
.局部变量 分割, 文本型, , "0"
.局部变量 分割地址, 文本型

.如果 (编辑框1.内容 ＝ “”)
    返回文本 ＝ 到文本 (编码_URL解码 (网页_访问s (“http://www.ip.la/index.php”)))
    地址 ＝ “您的本机IP地址:” ＋ 文本_取出中间文本 (返回文本, “地址:&nbsp;”, “</p>”)
    来自 ＝ “来自:” ＋ 文本_取出中间文本 (返回文本, “来自：&nbsp;”, “</p>”)
.否则
    返回文本 ＝ 到文本 (编码_URL解码 (网页_访问s (“http://www.ip.la/ip/” ＋ 编辑框1.内容 ＋ “.html”)))
    .判断开始 (寻找文本 (返回文本, “friendly error page”, , 假) ≠ -1)
        地址 ＝ “你输入的IP有误！”
    .默认
        地址 ＝ “您查询的IP地址:” ＋ 文本_取出中间文本 (返回文本, “地址:&nbsp;”, “</p>”)
        来自 ＝ “来自:” ＋ 文本_取出中间文本 (返回文本, “来自：&nbsp;”, “</p>”)
        返回文本 ＝ 文本_取出中间文本 (返回文本, “地址:&nbsp;”, “</p>”)
        分割 ＝ 分割文本 (返回文本, “.”, )
        调试输出 (分割)
        分割地址 ＝ “IP地址” ＋ 分割 [4] ＋ “.” ＋ 分割 [3] ＋ “.” ＋ 分割 [2] ＋ “.” ＋ 分割 [1]
    .判断结束

.如果结束
调试输出 (返回文本)
标签1.标题 ＝ 地址
标签2.标题 ＝ 来自
标签3.标题 ＝ 分割地址
[/e]
---------------------------------------------------------------------------------------------------------------
  满意请最佳！！！

补充内容 (2013-11-20 02:31):
分割 [X]代表了原本的四位数字。你想要啥顺序就自己改数字吧！

补充内容 (2013-11-20 02:37):
如果本地IP查询也要改的话。那就将分割那段复制上去吧！

亿个吻

路过瞧瞧。。。。。。。。。。

﹎尐ゞL

[e]
.版本 2
.支持库 spec

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕
.局部变量 返回文本, 文本型
.局部变量 地址, 文本型
.局部变量 来自, 文本型

返回文本 ＝ 到文本 (编码_URL解码 (网页_访问s (“http://www.ip.la/index.php”)))
调试输出 (返回文本)
地址 ＝ “您的IP地址:” ＋ 文本_取出中间文本 (返回文本, “地址:&nbsp;”, “</p>”)
标签1.标题 ＝ 地址
来自 ＝ “来自” ＋ 文本_取出中间文本 (返回文本, “来自：&nbsp;”, “</p>”)
标签2.标题 ＝ 来自
[/e]
精易模块

提百万

[e]
.版本 2
.支持库 spec

.子程序 _按钮1_被单击
.局部变量 返回文本, 文本型

返回文本 ＝ 到文本 (网页_访问 (“http://www.ip.la/index.php”, 1, , , 到字节集 (“colid=3&ip=923456572”)))
返回文本 ＝ 编码_Utf8到Ansi (网页_访问 (“http://www.ip.la” ＋ 文本_取出中间文本 (返回文本, “location.href='”, “'</script>”)))
调试输出 (文本_取出中间文本 (返回文本, “您的IP地址:&nbsp;”, “</p>”))
[/e]
.版本 2
.支持库 spec

.子程序 _按钮1_被单击
.局部变量 返回文本, 文本型

返回文本 ＝ 到文本 (网页_访问 (“http://www.ip.la/index.php”, 1, , , 到字节集 (“colid=3&ip=923456572”)))
返回文本 ＝ 编码_Utf8到Ansi (网页_访问 (“http://www.ip.la” ＋ 文本_取出中间文本 (返回文本, “location.href='”, “'</script>”)))
调试输出 (文本_取出中间文本 (返回文本, “您的IP地址:&nbsp;”, “</p>”))


精易模块

helper

行了哟

helper

刷新了一下咋这么多人了

﹎尐ゞL

[e]
.版本 2
.支持库 spec

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 返回文本, 文本型
.局部变量 地址, 文本型
.局部变量 来自, 文本型

.如果 (编辑框1.内容 ＝ “”)
    返回文本 ＝ 到文本 (编码_URL解码 (网页_访问s (“http://www.ip.la/index.php”)))
    地址 ＝ “您的本机IP地址:” ＋ 文本_取出中间文本 (返回文本, “地址:&nbsp;”, “</p>”)
    来自 ＝ “来自:” ＋ 文本_取出中间文本 (返回文本, “来自：&nbsp;”, “</p>”)
.否则
    返回文本 ＝ 到文本 (编码_URL解码 (网页_访问s (“http://www.ip.la/ip/” ＋ 编辑框1.内容 ＋ “.html”)))
    .判断开始 (寻找文本 (返回文本, “friendly error page”, , 假) ≠ -1)
        地址 ＝ “你输入的IP有误！”
    .默认
        地址 ＝ “您查询的IP地址:” ＋ 文本_取出中间文本 (返回文本, “地址:&nbsp;”, “</p>”)
        来自 ＝ “来自:” ＋ 文本_取出中间文本 (返回文本, “来自：&nbsp;”, “</p>”)
    .判断结束

.如果结束
调试输出 (返回文本)
标签1.标题 ＝ 地址
标签2.标题 ＝ 来自

[/e]
看错了，貌似楼主问的是查询IP

zsl

﹎尐ゞL 发表于 2013-11-20 01:41
[e]
.版本 2
.支持库 spec

比如查出来 是 60.71.55.70  怎么给返回为 70.55.71.60  反过来

zsl

你不知道的事╮ 发表于 2013-11-20 01:21
行了哟

比如查出来 是 60.71.55.70  怎么给返回为 70.55.71.60  反过来