如何在VB中获得用户的IP地址啊,请指教

Question

给 你一个例子
你把下面的内容放到模块中
http://engineharbor.51.net/cpu/winsock.txt
在form中放两text和一个command
Option ExplicitDim StartupData As WSADataType
Private Sub Command1_Click()
    Dim RC As Integer
    Dim IPAddr As Long
    RC = WSAStartup(&H101, StartupData)
    If RC = -1 Then Exit Sub    IPAddr = GetHostByNameAlias(Text1.Text)
    Text2.Text = GetAscIP(IPAddr)
End Sub
然后在text1中输入名字，text2就可以显示IP地址

Answer 1

加一个Command和Winsock控件，然后：
Private Sub Command1_Click()
Print Winsock1.LocalIP
End Sub

Answer 2

http://expert.csdn.net/Expert/topic/1203/1203572.xml?temp=.1040766

Answer 3

LocalIP属性获得与对端通讯的网卡的本机IP地址
RemoteHostIP属性获得对端IP地址