用VB代码获取任意计算机的*网络连接*信息

当大家在VB学习中遇到问题，觉得坚持不下去的时候，

千万不要放弃。

因为这个时候就是你离成功不远的时候。

如果遇到困难就后退，成功也会与你无缘。

行百里者半九十，说的就是这个道理。






网络简介

网络知识微介绍


计算机网络也称计算机通信网络。从逻辑功能上看，计算机网络是以传输信息为基础目的，用通信线路将多个计算机连接起来的计算机系统的集合，一个计算机网络组成包括传输介质和通信设备。

计算机网络连接的主要对象有：计算机（如大型计算机、工作站、微型计算机等）或奇特数据终端设备（如各种计算机外部设备、终端服务器等）。

简单来说计算机网络就是把分布在不同地理区域的计算机与专门的外部设备用通信线路互联成一个规模大、功能强的系统，从而使众多的计算机可以方便地互相传递信息，共享硬件、软件、数据信息等资源。


根据上述知识，我们编写VB代码来实现计算机的网络连接情况。


跟我学VB

获取网络连接情况代码简介


Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef dwflags As Long, ByVal dwReserved As Long) As Long

Private Const INTERNET_CONNECTION_OFFLINE As Long = &H20

Private Const INTERNET_RAS_INSTALLED As Long = &H10

Private Const INTERNET_CONNECTION_MODEM As Long = &H1

Private Const INTERNET_CONNECTION_PROXY As Long = &H4

Private Const INTERNET_CONNECTION_MODEM_BUSY As Long = &H8

Private Const INTERNET_CONNECTION_LAN As Long = &H2

Private Const INTERNET_CONNECTION_CONFIGURED As Long = &H40

Private Function IsLAN() As Boolean

  Dim dwflags As Long

    Call InternetGetConnectedState(dwflags, 0&)

    IsLAN = dwflags And INTERNET_CONNECTION_LAN

End Function

Private Function IsModem() As Boolean

  Dim dwflags As Long

    Call InternetGetConnectedState(dwflags, 0&)

    IsModem = dwflags And INTERNET_CONNECTION_MODEM

End Function

Private Sub Command1_Click()

If IsLAN() Then Text1.Text = "是" Else Text1.Text = "否"  '输出函数返回值

If IsModem() Then Text2.Text = "是" Else Text2.Text = "否" '输出

If IsProxy() Then Text3.Text = "是" Else Text3.Text = "否" '输出函数返回值

If IsOnLine() Then Text4.Text = "是" Else Text4.Text = "否"

If IsRASIn() Then Text5.Text = "是" Else Text5.Text = "否" '输出

Text6.Text = GETS()  

End Sub

Private Sub Command2_Click()

End

End Sub


代码运行如下图

对本文有不懂之处，可以添加小编详细咨询。

Tags：代码,获取,任意,计算机,网络,连接,信息,大家,学习,遇到

转载：文章来自用户投稿不代表本站观点，如有侵权请联系我们。