vb获取当前ip问题

VB6.0可使用Winsock控件读取它的LocalIP属性来获取当前本机的IP地址。

Winsock 控件，它提供了访问 TCP 和 UDP 网络服务的方便途径。Microsoft Access、Visual Basic、Visual C++ 或 Visual
FoxPro 的开发人员都可使用它。为编写客户或服务器应用程序，不必了解 TCP 的细节或调用低级的 Winsock
APIs。通过设置控件的属性并调用其方法就可轻易连接到一台远程机器上去，并且还可双向交换数据。

LocalIP 属性

返回本地机器的 IP 地址，格式是 IP 地址加点字符串 (xxx.xxx.xxx.xxx)。在设计时是只读的，而且是不可用的。

语法

object.LocalIP

object 所在处代表一个对象表达式，其值是“应用于”列表中的对象。

代码示例：

Private Sub Form_Load()
    Label1.Caption = Winsock1.LocalIP
End Sub

工程>部件选择“Microsoft Winsock Control 6.0 (SP6)”，新建一个Winsock命名为Winsock1。使用下面代码：
Private Sub Form_Load()
On Error Resume Next
MsgBox "远程电脑IP地址：" & Winsock1.RemoteHostIP
End Sub

API

Winsock
winsock1.RemoteHostIP

直接调用API 函数