13518219792
你可以使用WMI来获取MAC ID。。加上一些特定的条件也可以实现获取WLAN MAC_ID
10年积累的成都网站建设、网站制作经验，可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你，你也不认识我。但先网站设计后付款的网站建设流程，更有镇原免费网站建设让你可以放心的选择与我们合作。
新建模块
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 正常
系统自带的WLAN里边只要有wifi信号就会显示这个信号有没有开启WPS功能
用 vb.net socket通信
Dim th As Threading.Thread
2 Dim tcpl As System.Net.Sockets.TcpListener
3
4 Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
5 th = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf MyListen))
6 th.Start()
7 End Sub
8
9 Public Sub SendMessage()Sub SendMessage(ByVal IP As String, ByVal SendMsg As String)
10 Try
11 If IP "" Then
12 Dim tcpc As New System.Net.Sockets.TcpClient(IP, 5656)
13 Dim tcpStream As Net.Sockets.NetworkStream = tcpc.GetStream
14 Dim reqStream As New IO.StreamWriter(tcpStream)
15 reqStream.Write(SendMsg)
16 reqStream.Flush()
17 tcpStream.Close()
18 tcpc.Close()
19 End If
20 Catch ex As Exception
21 MsgBox(ex.Message.ToString)
22 End Try
23 End Sub
24 Private Sub MyListen()Sub MyListen()
25 Try
26 Dim ipAddress As System.Net.IPAddress = System.Net.Dns.Resolve(System.Net.Dns.GetHostName).AddressList(0)
27 tcpl = New System.Net.Sockets.TcpListener(ipAddress, 5656)
28 tcpl.Start()
29 While True
30 Dim s As System.Net.Sockets.Socket = tcpl.AcceptSocket()
31 Dim MyBuffer(1024) As Byte
32 Dim i As Integer
33 i = s.Receive(MyBuffer)
34 If i 0 Then
35 Dim lstrRec As String
36 Dim j As Integer
37 For j = 0 To i - 1
38 TextBox1.Text += Chr(MyBuffer(j)) ","
39 Next
40 End If
41 End While
42 Catch ex As Exception
43 MsgBox(ex.Message.ToString)
44 End Try
45 End Sub
46
47 Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
48 SendMessage("192.168.0.61", TextBox2.Text)
49 End Sub
病情分析：
考虑为感冒的可能，可以采用小儿氨酚黄那敏颗粒治疗，
指导意见：
多喝开水，注意保暖很重要，必要时可以采用输液进行治疗的。
病情分析：
你好，谢谢你的咨询，感冒初期可以吃点牛磺酸颗粒，药店可以买到，是非处方药。同时补充大量维C。感冒药可以吃但只能缓解感冒症状而不能治疗感冒。
指导意见：
如果流鼻涕比较多，或者有点热度，可以吃一点消炎药，但是消炎药最好少吃。感冒一般一个星期自愈。症状如果加重就要去医院。
病情分析：
您好，根据您的情况分析宝宝可能是受凉引起的感冒。
指导意见：
建议您在平时让宝宝多喝水，同时您也要给宝宝吃点感冒药，注意保暖，在饮食上少吃冷凉的食物，这样宝宝慢慢会好的。
病情分析：
你好，七个月宝宝感冒鼻子不通气，考虑是感冒导致的鼻炎。吃点哎畅等抗感冒药就可以了。
指导意见：
平时多喝水，易消化饮食，保持室内空气流通，注意休息。
病情分析：
你好，你所说的这种症状是炎症的表现，是机体感染病菌的结果，应该在就医治疗的同时做好调整防护。
指导意见：
合理喂养，避免受凉，适当的增加衣物，减少易感人群的接触和各种不良刺激，从各方面进行调整，逐渐的减轻恢复正常。
病情分析：
小儿上呼吸道感染，多为病毒引起，应早期应用病毒唑颗粒等，辅以对症及支持治疗即可
指导意见：
日常应合理饮食，多饮水，加强护理，避免不良刺激，鼻塞等可应用扑尔敏，配合局部热敷，滴用麻黄碱滴剂等，具体应遵循临床医师的指导，
病情分析：
根据描述，考虑上呼吸道感染。
指导意见：
可以用点双黄连口服液。多喂水，注意保暖。
Microsoft.VisualBasic.Devices.Network.IsAvailable As Boolean
生成实例后可以通过此属性来获取是否联网的值，True代表已联网，False代表没有联网
Microsoft.VisualBasic.Devices.Network.NetworkAvailabilityChanged(ByVal Object, ByVal Microsoft.VisualBasic.Devices.NetworkAvailableEventArgs)
该事件是在电脑断开/连上互联网是引发的
其中：
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
If e.IsNetworkAvailable = True Then
MsgBox("已联网")
Else
MsgBox("未联网")
End If
End Sub
