【access源码】一个获取本机外网IP的函数\获取本机公网IP的示例
时 间:2012-04-07 10:35:04
作 者:红尘如烟 ID:10768 城市:成都
摘 要:一个获取本机外网IP的函数
正 文:
'================================================================= '函数名称: GetWanIpAddress '功能描述: 获取本机的公网IP地址 '输入参数: 无 '返回参数: 能连接公网并能访问www.ip138.com网站时返回本机的公网IP,否则返回空字符串 '使用示例: =GetWanIpAddress() '相关调用: '使用注意: '兼 容 性: '参考资料: '作 者: 红尘如烟 '创建日期: 2010-8-9 '================================================================== Function GetWanIpAddress() As String On Error GoTo ErrorHandler Dim objHTTP As Object Dim strTemp As String Set objHTTP = CreateObject("Microsoft.XMLHTTP") objHTTP.Open "GET", "http://www.ip138.com/ip2city.asp", False objHTTP.Send If objHTTP.ReadyState = 4 Then strTemp = StrConv(objHTTP.ResponseBody, vbUnicode) End If GetWanIpAddress = Split(Split(strTemp, "[")(1), "]")(0) ExitHere: Exit Function ErrorHandler: ' MsgBox Err.Description, vbCritical, "Error" Resume ExitHere End Function |
相关示例:获取本机内网IP的示例
Access软件网官方交流QQ群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)