PB读取局域网访问的外网IP
2010-10-18 11:59
169 查看
//====================================================================
// 事件: nvo_ip.uf_getwanip()
//--------------------------------------------------------------------
// 描述:
//--------------------------------------------------------------------
// 参数:
//--------------------------------------------------------------------
// 返回: string
//--------------------------------------------------------------------
// 作者: 呈顼 日期: 2010年06月01日
//--------------------------------------------------------------------
//Copyright (c) 2002-2009 呈顼, All rights reserved.
//--------------------------------------------------------------------
// 修改历史:
//
//====================================================================
Inet iinet_base
n_ir iir_msgbox
String WebHTML
Long FPos
String wanip
This.GetContextService("Internet", iinet_base)
iir_msgbox = Create n_ir
//iinet_base.GetURL ("http://www.tms56.com/Query.asp?BillCode="+billid, iir_msgbox)
iinet_base.GetURL ("http://www.ip138.com/ip2city.asp", iir_msgbox)
WebHTML = Lower(String( iir_msgbox.lb_data , EncodingANSI!))
FPos = Pos( WebHTML, Lower("您的IP地址是:"))
IF FPos > 0 THEN
wanip = Mid(WebHTML, FPos + Len("您的IP地址是:"), 17)
wanip = Mid(wanip ,2 , pos( wanip,"]") - 2 )
Destroy iir_msgbox
return wanip
ELSE
Destroy iir_msgbox
RETURN ""
END IF
// 事件: nvo_ip.uf_getwanip()
//--------------------------------------------------------------------
// 描述:
//--------------------------------------------------------------------
// 参数:
//--------------------------------------------------------------------
// 返回: string
//--------------------------------------------------------------------
// 作者: 呈顼 日期: 2010年06月01日
//--------------------------------------------------------------------
//Copyright (c) 2002-2009 呈顼, All rights reserved.
//--------------------------------------------------------------------
// 修改历史:
//
//====================================================================
Inet iinet_base
n_ir iir_msgbox
String WebHTML
Long FPos
String wanip
This.GetContextService("Internet", iinet_base)
iir_msgbox = Create n_ir
//iinet_base.GetURL ("http://www.tms56.com/Query.asp?BillCode="+billid, iir_msgbox)
iinet_base.GetURL ("http://www.ip138.com/ip2city.asp", iir_msgbox)
WebHTML = Lower(String( iir_msgbox.lb_data , EncodingANSI!))
FPos = Pos( WebHTML, Lower("您的IP地址是:"))
IF FPos > 0 THEN
wanip = Mid(WebHTML, FPos + Len("您的IP地址是:"), 17)
wanip = Mid(wanip ,2 , pos( wanip,"]") - 2 )
Destroy iir_msgbox
return wanip
ELSE
Destroy iir_msgbox
RETURN ""
END IF
相关文章推荐
- 花生壳实现SVN客户端远程访问某局域网内SVN服务器(内网ip地址映射外网地址)
- 如何设置让外网通过路由器IP加端口号访问到局域网一台Web服务器
- Apache2.4.9本地访问正常但是在局域网或外网IP拒绝访问
- Linux下iptables 禁止端口和开放端口(仅供参考,里面含有iptables如何指定允许外网访问的端口号范围,以及对局域网的ip全部开放端口)
- Apache2.4.9本地访问正常但是在局域网或外网IP拒绝访问
- Apache2.4.9本地访问正常但是在局域网或外网IP拒绝访问
- 解决笔记本连接问题: 固定IP可以正常连接局域网,用TP-Link连接提示"受限制或无连接",无法访问外网?
- 动态IP或无公网IP时外网访问内网SVN
- 外网访问内网WEB网站(适合动态IP)
- 手机访问网站获取外网IP
- 通过外网访问局域网中的IPCamera
- windows 2003 server开始-运行输入IP访问局域网机子时提示“无任何网络提供程序接受指定的网络路径”
- 解决svn只能localhost访问,局域网ip或127.0.0.1 都不好用
- SQL2008禁止某些IP访问, 记录外网访问的触发器处理机制
- 1. 怎么设置可以使得虚拟机里面既可以访问主机也可以访问局域网而且是静态ip
- wamp下apache2.4.9局域网ip访问时提示403错误
- 获取局域网外网Ip的方法
- java获取本地局域网的外网IP ....
- 局域网内部建设的web serverice服务器被外网访问调试过程。
- 外网访问 虚拟机下的web服务器 设置主机端口与虚拟机ip和端口的映射