在上网时如何知道本机的IP地址？

[ourbone]

在VB中如何编程实现在上网时能获取本机在Internet上动态分配的IP？

[zjcxc]

打开netmetting--帮助--关于
就可以看到本机的IP地址了.

或者ping 计算机名

[rednod]

MsgBox Winsock1.LocalIP '本机ip
MsgBox Winsock1.LocalHostName '显示本机名称
MsgBox Winsock1.LocalPort '显示本地端口.
MsgBox
MsgBox Winsock1.RemoteHost
MsgBox Winsock1.Object
我实验winsock控件试过的,很简单.
但是如果你本身在局域网里,然后又拨号,得到的是 你在局域网的ip .
你只要把Winsock1.LocalIP 传个一个变量就可以了, 或象我那样的 直接输出.

[blueskywjs]

ping yourpcname

[zq_benben]

ipconfig

[JohnsonHome]

为什么MsgBox Winsock1.RemoteHost
MsgBox Winsock1.Object
消息框显示出来没有内容的，我是局域网里试的

[IT硬科技]

在窗体上加一个Winsock控件: 控件在 工程-部件-Microsoft Winsock Control6.0
再加入以下代码就行了
aa= Winsock1.LocalIP
bb= Winsock1.LocalHostName

aa变量得到的就是本机IP
bb变量得到的就是本机名

答对了，记得多给点分数啊,谢谢了

[jornet]

ipconfig

[gpo2002]

Private Type HOSTENT
hName As Long
hAliases As Long
hAddrType As Integer
hLen As Integer
hAddrList As Long
End Type

Private Declare Function gethostbyname Lib "wsock32" (ByVal hostname As String) As Long
Private Declare Sub CopyMemoryIP Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long)
Private Declare Function GetComputerNameA Lib "kernel32" (ByVal lpBuffer As String, nSize As Long) As Long


Public Function GetIPFromHostName(ByVal sHostName As String) As String

Dim ptrHosent As Long
Dim Host As HOSTENT
Dim dwIPAddr As Long
Dim tmpIPAddr() As Byte
Dim I As Integer
Dim sIPAddr As String

ptrHosent = gethostbyname(sHostName & vbNullChar)

If ptrHosent <> 0 Then

CopyMemoryIP Host, ptrHosent, Len(Host)
CopyMemoryIP dwIPAddr, Host.hAddrList, 4
ReDim tmpIPAddr(1 To Host.hLen)
CopyMemoryIP tmpIPAddr(1), dwIPAddr, Host.hLen
For I = 1 To Host.hLen - 1
sIPAddr = sIPAddr & tmpIPAddr(I) & "."
Next
sIPAddr = sIPAddr & tmpIPAddr(I)
GetIPFromHostName = sIPAddr

End If

End Function

Public Function GetComputerName() As String
Dim UserName As String * 255

Call GetComputerNameA(UserName, 255)
GetComputerName = Left$(UserName, InStr(UserName, Chr$(0)) - 1)
End Function

===========================

Private Sub Command1_Click()
MsgBox GetComputerName & vbCrLf & GetIPFromHostName(GetComputerName)
End Sub

[dddd8888]

MsgBox Winsock1.LocalIP

[viena]

命令行ipconfig/all