锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net判断物理网卡 vbs检测网络状态

IT技术header

vb.net中如何判断网络连接？新建模块
Function IsHearOK(ByVal URL As String) As Boolean'判断网页是否存在函数
Dim XMLObject As Object, ReturnType As String
XMLObject = CreateObject("Microsoft.XMLHTTP")
XMLObject.Open("GET", URL, False)
XMLObject.setRequestHeader("CONTENT-TYPE", "application/x-www-form-urlencoded")
XMLObject.setRequestHeader("Range", "bytes=1-255")
Try
XMLObject.Send()
If XMLObject.Status = 200 Or XMLObject.Status = 206 Then
ReturnType = XMLObject.getResponseHeader("CONTENT-TYPE")
If UCase(ReturnType)"TEXT/HTML" Then
IsHearOK = True
Else
IsHearOK = False
End If
Else
IsHearOK = False
End If
Catch
MsgBox("连接异常 ， 请检查网络！", , "提醒")
XMLObject = Nothing
End Try
End Function
调用ishearok（url）=true正常
vb.net改端口物理地址怎么查1、点击右侧的网络连接 ， 在弹出的对话框中点击打开网络和共享中心 。
2、在网络和共享中心界面中点击更改适配器设置 。
3、进入网络连接界面，右键本地连接 。
4、在弹出的菜单中选择属性 。
5、在本地连接属性界面中点击配置按钮 。
6、切换到高级选项卡，在属性列表中找到并点击网络地址，在右侧输入修改后的网络地址，点击确定按钮 。
7、使用命令提示符，输入Ipconfig-all，可以查看修改后的物理地址 。
求大神指点vb.net 怎么判断 网络是否连接 和取本机局域网IP和互联网IP你这段代码可以获得该主机名下的所有ip，每个ip地址都是有类型簇的，可以区别本地地址和网络地址、ip6地址 。
你获取索引为0的ip，不一定是正确的网络地址，它有时顺序在中间，在后面 。
应该获取所有ip ， 再通过ip地址簇类型区分
判断连接本身有一个函数，不过有时没联网也是真 。
可以用ping，ping百度、ping访问速度快、不经常维护断线的网络主机 。
求大神指点 vb.net 怎么获取 所有网卡的 描述呢? vbs 的也可以Private Sub GetMyIP()
Dim strComputer As String
Dim objWMI As Object
Dim colIP As Object
Dim IP As Object
Dim I As Integer
strComputer = "."
objWMI = GetObject("winmgmts://"strComputer"/root/cimv2")
colIP = objWMI.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each IP In colIP
If Not IsNothing(IP.IPAddress) Then
For I = LBound(IP.IPAddress) To UBound(IP.IPAddress)
MsgBox("IP 地址:"IP.IPAddress(I)Chr(10)_
"网卡类型:"IP.Description(I)Chr(10)_
"网卡地址:"IP.Macaddress(I))
Next
End If
Next
End Sub
VB.NET如何判断电脑是否已连接到网络？Microsoft.VisualBasic.Devices.Network.IsAvailable As Boolean
生成实例后可以通过此属性来获取是否联网vb.net判断物理网卡的值，True代表已联网，False代表没有联网
Microsoft.VisualBasic.Devices.Network.NetworkAvailabilityChanged(ByVal Object, ByVal Microsoft.VisualBasic.Devices.NetworkAvailableEventArgs)
该事件是在电脑断开/连上互联网是引发的
其中vb.net判断物理网卡：
e.IsNetworkAvailable
的功能同Microsoft.VisualBasic.Devices.Network.IsAvailable
实例:
Dim netListener As New Microsoft.VisualBasic.Devices.Network '生成实例
If netListener.IsAvailable = True Then
MsgBox("已联网")
Else
MsgBox("未联网")
End If
NetworkAvailabilityChanged实例：
WithEvents netListener As New Microsoft.VisualBasic.Devices.Network '生成实例
Private Sub OnNetworkChanged(ByVal Object, ByVal Microsoft.VisualBasic.Devices.NetworkAvailableEventArgs)Handles netListener.NetworkAvailabilityChanged

推荐阅读


上一篇：多台电脑怎么一起重装系统，多台电脑怎么共享一台打印机

下一篇：阿里云服务器开游戏，阿里云游戏服务器多少钱一个月