7,763
社区成员
发帖
与我相关
我的任务
分享如何获得计算机网络信息
网络编程我不懂，如何获取本机IP，主机名，MAC地址，哪些端口开放哪些端口关闭等问题，就是本机相关网络信息，怎么获得呢？谢谢大家帮忙。应该使用winsock控件么？还有，有个网友给了我以下程序，也能获得IP和MAC，但是好像没有用到WINSOCK网络编程，是什么原理呢？
Private Sub Command1_Click()
Dim strComputer As String
Dim objWMI As Object
Dim colIP As Object
Dim IP As Object
Dim I As Integer
strComputer = "."
Set objWMI = GetObject("winmgmts://" & strComputer & "/root/cimv2")
Set colIP = objWMI.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each IP In colIP
If Not IsNull(IP.IPAddress) Then
For I = LBound(IP.IPAddress) To UBound(IP.IPAddress)
MsgBox "IP 地址:" & IP.IPAddress(I) & Chr(10) & _
"網卡類型:" & IP.Description(I) & Chr(10) & _
"網卡地址:" & IP.Macaddress(I)
Next
End If
Next
End Sub
Private Sub Command1_Click()
Dim strComputer As String
Dim objWMI As Object
Dim colIP As Object
Dim IP As Object
Dim I As Integer
strComputer = "."
Set objWMI = GetObject("winmgmts://" & strComputer & "/root/cimv2")
Set colIP = objWMI.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each IP In colIP
If Not IsNull(IP.IPAddress) Then
For I = LBound(IP.IPAddress) To UBound(IP.IPAddress)
MsgBox "IP 地址:" & IP.IPAddress(I) & Chr(10) & _
"網卡類型:" & IP.Description(I) & Chr(10) & _
"網卡地址:" & IP.Macaddress(I)
Next
End If
Next
End Sub
...全文
请发表友善的回复…
发表回复
naixian1983 2008-01-24
- 打赏
- 举报
gethostname() //获取主机名
inet_ntoa() //IP
inet_ntoa() //IP
东方之珠 2008-01-22
- 打赏
- 举报
Visual Basic编程访问WMI对象:
http://www.bdstudio.cn/showart.asp?id=505&showpage=1
http://www.bdstudio.cn/showart.asp?id=505&showpage=1
东方之珠 2008-01-22
- 打赏
- 举报
用WMI
by_guo 2008-01-22
- 打赏
- 举报
谁能回答一下呢
ZOU_SEAFARER 2008-01-22
- 打赏
- 举报
Winsock1.LocalIP 'IP
Winsock1.LocalHostName'机器名
Winsock1.LocalHostName'机器名
