公网、内网IP的判断以及获取.doc

文档介绍：公网、内网IP的判断以及获取

tcp/ip协议中,专门保留了三个IP地址区域作为私有地址,其地址范围如下:
:~
:~
:~
如果自己机器上网络接口的ip地址落在上述保留地址的范围内,则可以肯定自己处于内网模式下。
内网IP及机器名称获取:
IPSocket=CreateObject("")
?&&内网IP,如果你不是局域网上网就无所谓内外网IP了
?&&计算机名称
公网IP的获取就没这么方便了,我用VF尝试过很多方法但是一直得不到满意的果,
但是突然想到BBS类型的论坛网页上不管你是否登陆都可以显示你的外网IP,何不利用这个来获取呢,呵呵,别笑,实在是逼的没办法了。
代码如下:
公网IP:
loExplorer = CREATEOBJECT("")
("/bbs/")
wait window "正在获取本机的公网IP地址,请稍候!" nowait noclear
DO WHILE <> 4
ENDDO
wait clear
loDoc =
lcMyPublicIp = UPPER()
lcProcura = "您的IP是:"
IF lcProcura $ lcMyPublicIP
x = AT( lcProcura, lcMyPublicIP )
IF x > 0
lcMyIP = SUBSTR(lcMyPublicIP, x+LEN(lcProcura),15)
ENDIF
=messagebox("本机的公网IP地址是:"+lcMyIP,64,"信息提示")
else
=messagebox("抱歉,获取本机的公网IP地址失败。",48,"信息提示")
ENDIF
这种获得公网IP的速度就看你选择的网页的速度了,呵呵!
再来个方法,这个应该比上面的那个要快的多:
owsh=createobject("")
(" /c ping -n 1 -r 9 >",0,.t.)
:
Pinging . [] with 32 bytes of data:
Reply from : bytes=32 time=67ms TTL=52
Route: ->
->
->
->
->
->
202