查看: 951|回复: 3

[其它] 怎样获得当前IP地址?

电梯直达

1^#

发表于 2003-9-28 06:33:00 | 只看该作者回帖奖励

分享到: QQ好友和群 QQ空间 腾讯微博 腾讯朋友

2^#

发表于 2003-9-28 16:10:00 | 只看该作者

Function GetLocalIP()
Dim WS
Set WS = CreateObject("MSWinsock.Winsock")
GetLocalIP = WS.LocalIP
End Function

回复支持反对

3^#

楼主| 发表于 2003-9-28 17:13:00 | 只看该作者

那个WINSOCK控件，是不是每台机器都有？我昨天家中没找到啊！

回复支持反对

4^#

发表于 2006-3-7 06:40:00 | 只看该作者

[em02]fffff

回复支持反对

帐号		自动登录	找回密码
密码			注册

群介绍
主题无相 (随机显示版	同地区群块其他地区)