怎么用VB语句获取本机IP并可直接显示

怎么用VB语句获取本机IP并可直接显示,第1张

1、在工程、部件里引用Microsoft Winsock Control;

2、把控件画到窗体上(Winsock1)

3、画一个Timer1控件,属性设置Interval=10000;

4、画一个Text1控件,用于显示本机IP;

5、复制以下代码:

Private Sub Timer1_Timer()

Text1Text = Winsock1LocalIP

End Sub

本程序已调试通过,有问题可来信 cuidong@vip163com

现在的计算机以及网络组成十分复杂。例如系统硬件方面就有主板、硬盘、网卡

软件方面有 *** 作系统、系统中安装的软件、正在运行的进程等等。网络方面有域、工作组

等等。利用WMI可以访问上面的全部信息,但是如果向上面一样的利用分项来访问的话会很

麻烦。为此,WMI提供了一种类似SQL语句的查询语句,可以通过查询语句获得WMI对象下的子项。

下面是一个遍历系统中安装的网卡并返回网卡MAC地址的代码:

Private Function MACAddress() As String

Set objs = GetObject("winmgmts:")ExecQuery( _

"SELECT MACAddress " & _

"FROM Win32_NetworkAdapter " & _

"WHERE " & _

"((MACAddress Is Not NULL) " & _

"AND (Manufacturer <> " & _

"‘Microsoft‘))")

For Each obj In objs

MACAddress = objMACAddress

Exit For

Next obj

End Function

上面的代码获得WMI对象,然后运行ExecQuery执行一个WMI查询语句获得安装的网卡并返回

网卡的MAC地址。

现在的计算机以及网络组成十分复杂。例如系统硬件方面就有主板、硬盘、网卡 。

软件方面有 *** 作系统、系统中安装的软件、正在运行的进程等等。网络方面有域、工作组

等等。利用WMI可以访问上面的全部信息,但是如果向上面一样的利用分项来访问的话会很

麻烦。为此,WMI提供了一种类似SQL语句的查询语句,可以通过查询语句获得WMI对象下的子项。

下面是一个遍历系统中安装的网卡并返回网卡MAC地址的代码:

Private Function MACAddress() As String

Set objs = GetObject("winmgmts:")ExecQuery( _

"SELECT MACAddress " & _

"FROM Win32_NetworkAdapter " & _

"WHERE " & _

"((MACAddress Is Not NULL) " & _

"AND (Manufacturer <> " & _

"‘Microsoft‘))")

For Each obj In objs

MACAddress = objMACAddress

Exit For

Next obj

End Function

上面的代码获得WMI对象,然后运行ExecQuery执行一个WMI查询语句获得安装的网卡并返回

网卡的MAC地址。

以上就是关于怎么用VB语句获取本机IP并可直接显示全部的内容,包括:怎么用VB语句获取本机IP并可直接显示、请问在VB6.0中怎样获取本机IP、用VB 6.0怎样获得本机IP地址等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/web/9819164.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-02
下一篇 2023-05-02

发表评论

登录后才能评论

评论列表(0条)

保存