使用VB代码从任意计算机获取网络连接信息
发布时间:2019-02-21 18:35 发布者:365bet开户地址
当每个人在学习VB时遇到问题并感到他们无法前进,
永不放弃
这一次离成功并不遥远。
如果遇到困难,你将退休,成功不会是你。
九万人是六打,这是事实。
网络简介
微网络知识的介绍
计算机网络,也称为计算机通信网络,是一组计算机系统,它们通过通信线路连接多台计算机,以便从逻辑功能的角度传输信息。计算机网络包括传输介质和通信设备。
连接到计算机网络的主要目的是计算机(例如大型计算机,工作站,微型计算机)或附加数据终端设备(例如各种外部计算机设备,终端服务器)。)
简而言之,计算机网络是一个功能强大的大型系统,它将分布在不同地理区域的计算机与特殊的外部设备互连,在它们之间传输信息并共享硬件和软件。你可以做到。数据
根据以前的知识,我们编写VB代码来实现计算机网络连接。
和我一起学习VB
了解网络连接代码的大纲
私有语句函数InternetGetConnectedState Lib“wininet.dll”(ByRef dwflags As,ByVal dwReserved As Long)
私有常量Private_CONNECTION_OFFLINE As Long = H20
私有常量私有INTERNET_RAS_INSTALLED,long = H10
私有常量Private_CONNECTION_MODEM length = H1
私有常量长度为Private_CONNECTION_PROXY = H4
私有常量Private_CONNECTION_MODEM_BUSY length = H8
私有常量INTERNET_CONNECTION_ LAN最长= H2
私有常量长度= H40 Private_CONNECTION_CONFIGURED
私有函数IsLAN()作为布尔值
?昏暗的dwflags长
调用InternetGetConnectedState(dwflags,0)
IsLAN = dwflags和INTERNET_CONNECTION_LAN
最终功能
私有函数作为布尔值IsModem()
?昏暗的dwflags长
调用InternetGetConnectedState(dwflags,0)
IsModem = dwflags和INTERNET_CONNECTION_MODEM
最终功能
Private Sub Command1_Click()
如果IsLAN()Text1.Text =“Yes”,否则Text1.Text =“No”'输出函数的返回值
Text2.Text =“是”如果IsModem(),否则Text2.Text =“No”'输出
If IsProxy()Text3.Text =“Yes”否则Text3.Text =“No”'输出函数的返回值
如果IsOnLine(),则Text4.Text =“是”,否则Text4.Text =“否”
如果IsRASIn()Text5.Text =“Yes”,否则Text5.Text =“No”'输出
Text6.Text = GETS()
结束子
私有子命令2 _ Click()
结束
结束子
代码执行如下。
如果您不了解本文,则可以添加更详细的查询。
如果您遇到VB问题,可以添加小信号micro:vbyjk 521
继续按上面的二维码,注意和我一起学习VB的公共平台
上一篇:“幽灵宝贝到灵魂7”你可以杀死一个活着的死鬼
下一篇:[鲁尚进入中央商圈品牌34天的秘密]虾美虾波浪小 永不放弃
这一次离成功并不遥远。
如果遇到困难,你将退休,成功不会是你。
九万人是六打,这是事实。
网络简介
微网络知识的介绍
计算机网络,也称为计算机通信网络,是一组计算机系统,它们通过通信线路连接多台计算机,以便从逻辑功能的角度传输信息。计算机网络包括传输介质和通信设备。
连接到计算机网络的主要目的是计算机(例如大型计算机,工作站,微型计算机)或附加数据终端设备(例如各种外部计算机设备,终端服务器)。)
简而言之,计算机网络是一个功能强大的大型系统,它将分布在不同地理区域的计算机与特殊的外部设备互连,在它们之间传输信息并共享硬件和软件。你可以做到。数据
根据以前的知识,我们编写VB代码来实现计算机网络连接。
和我一起学习VB
了解网络连接代码的大纲
私有语句函数InternetGetConnectedState Lib“wininet.dll”(ByRef dwflags As,ByVal dwReserved As Long)
私有常量Private_CONNECTION_OFFLINE As Long = H20
私有常量私有INTERNET_RAS_INSTALLED,long = H10
私有常量Private_CONNECTION_MODEM length = H1
私有常量长度为Private_CONNECTION_PROXY = H4
私有常量Private_CONNECTION_MODEM_BUSY length = H8
私有常量INTERNET_CONNECTION_ LAN最长= H2
私有常量长度= H40 Private_CONNECTION_CONFIGURED
私有函数IsLAN()作为布尔值
?昏暗的dwflags长
调用InternetGetConnectedState(dwflags,0)
IsLAN = dwflags和INTERNET_CONNECTION_LAN
最终功能
私有函数作为布尔值IsModem()
?昏暗的dwflags长
调用InternetGetConnectedState(dwflags,0)
IsModem = dwflags和INTERNET_CONNECTION_MODEM
最终功能
Private Sub Command1_Click()
如果IsLAN()Text1.Text =“Yes”,否则Text1.Text =“No”'输出函数的返回值
Text2.Text =“是”如果IsModem(),否则Text2.Text =“No”'输出
If IsProxy()Text3.Text =“Yes”否则Text3.Text =“No”'输出函数的返回值
如果IsOnLine(),则Text4.Text =“是”,否则Text4.Text =“否”
如果IsRASIn()Text5.Text =“Yes”,否则Text5.Text =“No”'输出
Text6.Text = GETS()
结束子
私有子命令2 _ Click()
结束
结束子
代码执行如下。
如果您不了解本文,则可以添加更详细的查询。
如果您遇到VB问题,可以添加小信号micro:vbyjk 521
继续按上面的二维码,注意和我一起学习VB的公共平台