PB读取局域网访问的外网IP

//====================================================================
// 事件: 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