正在阅读：.net中取得本机IP地址的方法两则.net中取得本机IP地址的方法两则

　　Option Explicit

　　Private Sub Command1_Click()
　　MsgBox "当前计算机网卡IP：" & Winsock1.LocalIP
　　End Sub

　　Option Explicit

　　Private Type WSAData
　　wVersion As Integer
　　wHighVersion As Integer
　　szDescription(0 To 256)
　　szSystemStatus(0 To 128)
　　wMaxSockets As Integer
　　dwVendorInfo As Long
　　End Type

　　Private Declare Function WSAStartup Lib "WSOCK32.DLL" (ByVal wVersionRequired As Long, lpWSAData As WSAData) As Long
　　Private Declare Function WSACleanup Lib "WSOCK32.DLL" () As Long
　　Private Declare Function gethostname Lib "WSOCK32.DLL" (ByVal szHost As String, ByVal dwHostLen As Long) As Long
　　Private Declare Function gethostbyname Lib "WSOCK32.DLL" (ByVal szHost As String) As Long
　　Private Declare Sub CopyMemoryIP Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long)