欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

vfp9想得到外网的ip值与内网ip值,请好手们帮忙

更新时间: 2014-01-05 02:27:33 责任编辑: Author_N1

 

vfp9想得到外网的IP值与内网IP值,请高手们帮忙!
我想得到外网的IP值(公网那种)
还有想得到内网IP值如192.168.0.100....,请高手们帮忙!

--参考方法--
内网IP:
方法一:
ox=Createobject("MSwinsock.Winsock")
?'IP地址:',ox.LocalIP

方法二:
Local oWMI As Object,oLocal As Object,oHARDWARE As Object,object1 As Object
oWMI=Createobject("WbemScripting.SWbemLocator")
oLocal=oWMI.ConnectServer(".", "root\cimv2")
oHARDWARE=oLocal.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration Where IPEnabled=1")
For Each object1 In oHARDWARE
LcIP=object1.Properties_('IPAddress').Value
Exit
Endfor
?'IP地址:',LcIP

外网IP:
方法一:
Clear
oHttp=Newobject('Microsoft.XmlHttp')
oHttp.Open('GET','http://iframe.ip138.com/ic.asp?ts='+Sys(2015))
oHttp.Send()
Do While oHttp.readyState<>4
Inkey(0.1)
Enddo
cBody=Strconv(oHttp.responsebody,2)
?Strextract(cBody,'您的IP是:[',']')
Messagebox(Strextract(cBody,[<body style="margin:0px"><center>],[</center></body></html>]))

方法二:
owsh=Createobject("wscript.shell")
owsh.Run("command.com /c ping -n 1 -r 9 www.163.com >IP.txt",0,.T.)
If File('ip.txt')
If At('Route',Filetostr('ip.txt'))>0
st=Filetostr('ip.txt')
ip=Substr(st,At_c('Route:',st)+6,At_c('->',st)-At_c('Route:',st)-6)
=Messagebox('你的外网:'+ip,64,'获取')
Else
=Messagebox('网络连接失败',48,信息提示')
Endif
Erase ip.txt
Else
=Messagebox('获取失败',48,'信息提示')
Endif
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 02:27:33
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/10052/
本文WWW.DOC100.NET DOC100.NET版权所有。