<分区>
VB6如何在不使用Winsock控件的情况下获取本地IP地址
我不想使用或不需要 Winsock 的原因是因为我的应用程序应该脱机工作。
我对 VB6 有点陌生,我对这个主题的搜索失败了。我想我需要一些 WinAPI,任何指针或代码示例都可以理解。
<分区>
VB6如何在不使用Winsock控件的情况下获取本地IP地址
我不想使用或不需要 Winsock 的原因是因为我的应用程序应该脱机工作。
我对 VB6 有点陌生,我对这个主题的搜索失败了。我想我需要一些 WinAPI,任何指针或代码示例都可以理解。
最佳答案
这是我喜欢使用的功能,不需要 API:
Public Function getIP()
Dim WMI As Object
Dim qryWMI As Object
Dim Item As Variant
Set WMI = GetObject("winmgmts:\\.\root\cimv2")
Set qryWMI = WMI.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration " & _
"WHERE IPEnabled = True")
For Each Item In qryWMI
getIP = Item.IPAddress(0)
Next
Set WMI = Nothing
Set qryWMI = Nothing
End Function
关于vb6 - 在没有Winsock控件的情况下在VB6中获取本地IP地址,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/13755880/