推荐文章
热门文章
您现在的位置:主页 > 365bet官网娱 >
使用VB代码从任意计算机获取网络连接信息
      当每个人在学习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天的秘密]虾美虾波浪小
COPYRIGHT 2012-2013 POWERED BY 百度,All RIGHTS RESERVED 欢迎各界人士前来咨询/学习
咨询电话:13888888888 Q Q:888888888    邮编:471001     洛阳化妆学校 洛阳化妆培训 百度 洛阳新娘跟妆