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