您的位置：程序门 -> vb -> 网络编程

如何用vb6获取本机网络信息？

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

如何用vb6获取本机网络信息？

发表于：2008-01-22 12:09:38 楼主

网络编程我不懂，如何获取本机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.ＥＸＥＣquery _
（"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

下一篇：想做个小程序，感兴趣的进来看看
上一篇：vb有关ftp奇怪的问题（上传冲突）

其他资讯