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

公网、内网IP的判断以及获取 tcp/ip协议中，专门保留了三个IP地址区域作为私有地址，其地址范围如下：/8：～55/12：～55/16：～55 如果自己机器上网络接口的ip地址落在上述保留地址的范围内，则可以肯定自己处于内网模式下。内网IP及机器名称获取：IPSocket=CreateObject(MSWinsock.Winsock)?IPSocket.LocalIP内网IP，如果你不是局域网上网就无所谓内外网IP了?IPSocket.localhostname计算机名称 公网IP的获取就没这么方便了，我用VF尝试过很多方法但是一直得不到满意的果，但是突然想到BBS类型的论坛网页上不管你是否登陆都可以显示你的外网IP，何不利用这个来获取呢，呵呵，别笑，实在是逼的没办法了。代码如下： 公网IP：loExplorer = CREATEOBJECT(InternetExplorer.Application)loExplorer.Navigate2(/bbs/index.asp)wait window 正在获取本机的公网IP地址，请稍候！ nowait noclearDO WHILE loExplorer.readystate 4ENDDOwait clearloDoc = loExplorer.DocumentlcMyPublicIp = UPPER(loDoc.Body.Innertext)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(wscript.shell)owsh.run( /c ping -n 1 -r 9 IP.txt,0,.t.) 生成的IP.txt这个文件的格式为： Pinging [2] with 32 bytes of data: Reply from 2: bytes=32 time=67ms TTL=52 Route: 07 - 2 - 22 - 90 - 91 - 33 - 32 - 6 - 6 Ping statistics for 2: Packets: Sent = 1, Received = 1, Lost = 0 (0% loss), Approximate round trip times in milli-seconds: Minimum = 67ms, Maximum = 67ms, Average = 67ms 完整代码： owsh=createobject(wscript.shell)owsh.run( /c ping -n 1 -r 9 IP.txt,0,.t.)IF FILE(ip.txt)IF AT(Route,FILETOSTR(ip.txt))0st=FILETOSTR(ip.txt)ip=SUBSTR(st,AT_C(Route:,st)+6,AT_C(-,st)-AT_C(Route:,st)-6)=MESSAGEBOX(你的外网:+ip,获取成功)ELSE=MESSAGEBOX(网络连接失败,信息提示)ENDIFDELETE FILE ip.txtELSE=MESSAGEBOX(获取失败,信息提示)endi 看到没有，文件里面一大堆IP地址，第一个就是我们需要的外网IP地址 其他的代表什么我这里就暂不多说了