 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
方式1：(控件法） 新建工程，在工程中加入Winsock控件和一个按钮控件 代码： Option Explicit Private Sub Command1_Click() MsgBox "当前计算机网卡IP：" & Winsock1.LocalIP End Sub 方式2：（API法） 新建工程，在工程中加入一个按钮控件 代码： 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) Private Function GetIPAddress() As String On Error GoTo Z Dim wsa As WSAData Dim rVal As Long Dim sHost As String * 256 Dim lp As Long Dim lpa As Long Dim IpAdr(0 To 3) As Byte rVal = WSAStartup((2 + &H100), wsa) If rVal = 0 Then gethostname sHost, 256 lp = gethostbyname(sHost) If lp Then CopyMemoryIP lpa, lp + 16, 4 CopyMemoryIP IpAdr(0), lpa, 4 GetIPAddress = CStr(IpAdr(0)) & "." & CStr(IpAdr(1)) & "." & CStr(IpAdr(2)) & "." & CStr(IpAdr(3)) End If WSACleanup End If Exit Function Z: GetIPAddress = "" End Function Private Sub Command1_Click() Dim ret As String ret = GetIPAddress If ret <> "" Then MsgBox "当前计算机网卡IP：" & ret End If End Sub 返回类别: 教程 上一教程: .NET 开发AutoCAD2006指南（二） 下一教程: .NET中自己构建一个ArrDictionary 您可以阅读与"取得本机IP地址的方式两则"相关的教程: · 如何取得IP/用户名等信息 · 通过指定IP地址得到当前的网络上的主机的域名 · 通过网络域名得到这台主机的IP地址 · 名称地址（Namespace） · 使用 Visual C# .NET 在 ADO.NET 中以编程方法构建连接字符串 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
