Function cAdd

Declare   Long      URLDownloadToFile In URLMON.Dll Long, String, String, Long, Long

Declare   Integer   DeleteUrlCacheEntry In wininet.Dll String

**** 攻取外网IP ****

cAdd ="http://www.ip138.com/ips138.asp"  && Alltrim(iniRead("获取外网IP网址","","获取外网IP",gcSysSetFile))

BeginStr ="您的IP地址是：[" && Alltrim(iniRead("开始字符","","获取外网IP",gcSysSetFile))

EndStr ="] 来自：" && Alltrim(iniRead("结尾字符","","获取外网IP",gcSysSetFile))

*!* If Empty(cAdd)

*!* *!* Messagebox('参数无效！','')

*!* Return

*!* Endif

cAdd = cAdd + '?' + Sys(2)

nDeclare = URLDownloadToFile(0, cAdd , "IP.txt", 0, 0)

If  0 = nDeclare

If  File('IP.TXT')

IPStr = Filetostr("IP.TXT")

Return  Substr(IPStr,At(BeginStr,IPStr) + Len(BeginStr),At(EndStr,IPStr) - (At(BeginStr,IPStr) + Len(BeginStr)))

Else

Return ""

Endif

Else

Return ""

Endif

If File('IP.txt')

Erase "IP.txt"

Endif

DeleteUrlCacheEntry(cAdd) && // 清理缓存

Endfunc