VB6:如何得到本机IP,计算机名和MAC

thinclient 2011-04-21 11:20:04

...全文

858 26 打赏收藏转发到动态举报

写回复

用AI写文章

26 条回复

切换为时间正序

请发表友善的回复…

发表回复

hspcyeling 2014-01-02

打赏
举报

For cnt = 0 To PhyAddrLen - 1 If bpMacAddr(cnt) = 0 Then tmp = tmp & "00-" Else tmp = tmp & Hex$(bpMacAddr(cnt)) & "-" End If Next 90-FB-A6-8-81-39 前面有0就不对了.

zhaoleinefu 2011-06-25

打赏
举报

有自带的控件

weiji9988 2011-06-25

打赏
举报

CMD/IPCONFIG/ALL

嗷嗷叫的老马 2011-04-23

打赏
举报

参考:

取得本机IP地址列表(VB6.0代码)

嗷嗷叫的老马 2011-04-23

打赏
举报

[Quote=引用 16 楼 thinclient 的回复:]
想得到的只是局域网IP,不是对外的,就是局域网的如192.168.1.37,都是固定IP[/Quote]
那这个调用GetIpAddrTable就可以得到,我写个封装吧.

嗷嗷叫的老马 2011-04-22

打赏
举报

计算机名直接调用getcomputername.

嗷嗷叫的老马 2011-04-22

打赏
举报

关于MAC地址,请参考:

http://www.m5home.com/blog/article.asp?id=510

关于本机IP,猜你想得到的是对外IP.

这要考虑很多情况.

如果目标机器是在局域网中通过网关而不是直接拨号上网,要获取就得通过外部服务器.

简单点,访问:

http://www.ip138.com/

再对"您的IP地址是：[XXXXXXXXX]"做个处理就可以了.

赵4老师 2011-04-22

打赏
举报

[Quote=引用 11 楼 thinclient 的回复:]
引用 5 楼 zhao4zhong1 的回复:
shell "ipconfig /all >c:\ipconfig.txt",vbHide
'然后读文件c:\ipconfig.txt的内容

执行了这命令不报错，也没产生文件，为什么？
我在dos窗口下直接ipconfig /all >c:\ipconfig.txt能产生文件
为什么？
[/Quote]
那就生成一个批处理文件比如c:\ipall.bat内容为
ipconfig /all >c:\ipconfig.txt
然后
shell "c:\ipall.bat",vbHide

thinclient 2011-04-22

打赏
举报

[Quote=引用 14 楼 myjian 的回复:]
关于MAC地址,请参考:

http://www.m5home.com/blog/article.asp?id=510

关于本机IP,猜你想得到的是对外IP.

这要考虑很多情况.

如果目标机器是在局域网中通过网关而不是直接拨号上网,要获取就得通过外部服务器.

简单点,访问:

http://www.ip138.com/

再对"您的IP地址是：[XXXXXXXX……
[/Quote]
想得到的只是局域网IP,不是对外的,就是局域网的如192.168.1.37,都是固定IP

jianyun2002 2011-04-22

打赏
举报

jianyun2002 2011-04-22

打赏
举报

其实用shell是最方便的一个方法，但关键的问题是上面的写法没对，
你用这个吧！
Shell "cmd /c ipconfig /all > " & Chr(34) & "c:\ip.txt " & Chr(34), vbHide
运行后可以在c盘根下生成一个ip.txt文件的！
vb6测试通过！

wwhunter1214 2011-04-22

打赏
举报

这两种方法都挺好的

收藏了。

咸清 2011-04-21

打赏
举报

http://www.programbbs.com/doc/488.htm

thinclient 2011-04-21

打赏
举报

谢回复
求代码

东方之珠 2011-04-21

打赏
举报

WMI 全都可以

GetPrivateProfileInt 2011-04-21

打赏
举报

看看这个
http://hi.baidu.com/cbm666/blog/item/668d09232507d34a93580755.html

布衣散人 2011-04-21

打赏
举报

搜索一下，很多例子

thinclient 2011-04-21

打赏
举报

[Quote=引用 7 楼 lixiyo 的回复:]
我现在用的。需要Winsock

VB code

'*************************************************************
'取本机MAC地址
Private Function GetRemoteMACAddress(ByVal sRemoteIP As String, sRemoteMacAddress As String) As……
[/Quote]
没想到是这么麻烦，谢谢大侠，一定会给分
不过我可能会采取５楼的方法，只是５楼的方法产生不了文件

thinclient 2011-04-21

打赏
举报

[Quote=引用 5 楼 zhao4zhong1 的回复:]
shell "ipconfig /all >c:\ipconfig.txt",vbHide
'然后读文件c:\ipconfig.txt的内容
[/Quote]
执行了这命令不报错，也没产生文件，为什么？
我在dos窗口下直接ipconfig /all >c:\ipconfig.txt能产生文件
为什么？