Dim WSH
Private Sub cmdGetIP_Click() 'cmdGetIP按钮,当然也可以是别的控件.
Set WSH = CreateObject("WScript.Shell")
ret = WSH.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters\Interfaces\{ECEF46F6-390A-4C5F-8399-91946F0B9ECA}\DhcpIPAddress")
GetIP=ret 'GetIP是text控件,当然print也可以.
End Sub


'返回值是0.0.0.0就是没连网.(至少XP下是这个样子.)
'太简单了,高手勿笑哦~

在Interfaces下面有很多个类似{ECEF46F6-390A-4C5F-8399-91946F0B9ECA}的键值，哪个是真正的网卡呢？
而且，这个值不同的机器是不一样的，如何查询呢？

谢谢提醒,看来是要用api的那个,,,

是不一样.这个是说下注册表的访问,还有regwrite和regdelete

我是小区宽带上网，还是没有外网IP。
----------------------------------------------------
1. IP address :192.168.188.23
IP Subnetmask :255.255.255.0
BroadCast IP address :1.0.0.0
----------------------------------------------------
2. IP address :0.0.0.0
IP Subnetmask :0.0.0.0
BroadCast IP address :1.0.0.0
----------------------------------------------------
3. IP address :127.0.0.1
IP Subnetmask :255.0.0.0
BroadCast IP address :1.0.0.0
----------------------------------------------------

而且，即使有一个是外网IP，这三个IP哪一个是呢，程序能自动辨别吗？

[此贴子已经被作者于2005-11-13 12:27:48编辑过]

还是网页来吧~

[IMG]http://www1.myelogo.com/elogo_user/10379.jpg[/IMG]

什么？？？？！！！！！我不怕

假的