获取IP地址和IP的所在的地区源码

asd5886848

大神们帮一下我写个源码吧，我需要的要求是，当打开软件就自动获取IP地址和IP的所在的地区在标签上，还有这个按钮怎么样写在软件上的，希望能帮下

Mr.Yang

.版本 2
.支持库 internet

.子程序 Mr_系统_取本机IP, 文本型, 公开, 取出本机的IP地址

返回 (Mr_文本_取中间文本 (到文本 (HTTP读文件 (“http://iframe.ip138.com/ic.asp”)), “您的IP是：[”, “] 来自：”))

.版本 2
.支持库 internet

.子程序 Mr_系统_获取IP归属地, 文本型, 公开, 返回查询IP地址的归属地 查询失败返回空白文本
.参数 IP地址, 文本型, , 必须正确的IP格式 如:255.255.255.255
.局部变量 返回文本, 文本型

返回文本 ＝ 到文本 (HTTP读文件 (“http://www.ip138.com/ips138.asp?ip=” ＋ IP地址))
返回文本 ＝ Mr_文本_取中间文本 (返回文本, “本站主数据：”, “</li><li>”)
返回 (返回文本)


.版本 2

.子程序 Mr_文本_取中间文本, 文本型, 公开
.参数 被搜索文本, 文本型
.参数 欲搜索文本_前, 文本型
.参数 欲搜索文本_后, 文本型
.参数 是否保留前文本, 逻辑型, 可空
.参数 是否保留后文本, 逻辑型, 可空
.参数 指定起始位置, 整数型, 可空
.参数 搜索结果位置, 整数型, 参考 可空
.参数 是否区分大小写, 逻辑型, 可空
.局部变量 前, 整数型
.局部变量 后, 整数型
.局部变量 返回文本, 文本型

前 ＝ 寻找文本 (被搜索文本, 欲搜索文本_前, 指定起始位置, 取反 (是否区分大小写))
.如果真 (前 ≠ -1)
    后 ＝ 寻找文本 (被搜索文本, 欲搜索文本_后, 前 ＋ 1, 取反 (是否区分大小写))
    .如果 (后 ≠ -1)
        搜索结果位置 ＝ 前 ＋ 取文本长度 (欲搜索文本_前)
        返回文本 ＝ 取文本中间 (被搜索文本, 前 ＋ 取文本长度 (欲搜索文本_前), 后 － 前 － 取文本长度 (欲搜索文本_前))
        .如果真 (是否保留前文本 ＝ 真)
            返回文本 ＝ 欲搜索文本_前 ＋ 返回文本
        .如果真结束
        .如果真 (是否保留后文本 ＝ 真)
            返回文本 ＝ 返回文本 ＋ 欲搜索文本_后
        .如果真结束
        返回 (返回文本)
    .否则
        后 ＝ 寻找文本 (被搜索文本, 欲搜索文本_后, 前 ＋ 2, 取反 (是否区分大小写))
        .如果 (后 ≠ -1)
            搜索结果位置 ＝ 前 ＋ 取文本长度 (欲搜索文本_前)
            返回文本 ＝ 取文本中间 (被搜索文本, 前 ＋ 取文本长度 (欲搜索文本_前), 后 － 前 － 取文本长度 (欲搜索文本_前))
            .如果真 (是否保留前文本 ＝ 真)
                返回文本 ＝ 欲搜索文本_前 ＋ 返回文本
            .如果真结束
            .如果真 (是否保留后文本 ＝ 真)
                返回文本 ＝ 返回文本 ＋ 欲搜索文本_后
            .如果真结束
            返回 (返回文本)
        .否则
            返回 (“”)
        .如果结束

    .如果结束

.如果真结束
返回 (“”)

asd5886848

Mr.Yang 发表于 2013-1-6 23:18
.版本 2
.支持库 internet

能给我发给我吗，直接点我的QQ发我就可以啦，或者发上来