公司网站建设建设,彩票网站的统计怎么做,单位网站建设情况说明书,惠来建设局网站本示例使用设备介绍#xff1a;实时网络双门双向门禁控制板可二次编程控制网络继电器远程开关-淘宝网 (taobao.com)
Imports System.Net.Sockets
Imports System.Net
Imports System.Text
Imports System.ThreadingImports System.Net.NetworkInformation
Imports System.Man… 本示例使用设备介绍实时网络双门双向门禁控制板可二次编程控制网络继电器远程开关-淘宝网 (taobao.com)
Imports System.Net.Sockets
Imports System.Net
Imports System.Text
Imports System.ThreadingImports System.Net.NetworkInformation
Imports System.Management
Public Class Form1Dim PortNumber As Integer 侦听端口号 Dim ListenerThre As Thread 侦听线程Dim LocalIp As String 本地ip64Dim ready As Boolean False 线程运行标识Dim machinnos As StringDim RemoteIPoint As IPEndPointDim BeepCode As StringDim VoiceCode As StringPublic ListenerSock As Socket 侦听socketDelegate Sub EditUi(ByVal data0 As String, ByVal data1 As String) 线程内更新UI传送两个参数Delegate Sub EditTC(ByVal con As Integer, ByVal data1 As String)Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.LoadControl.CheckForIllegalCrossThreadCalls False 经典解决“线程间操作无效: 从不是创建控件的线程访问它 ,尽量不要用这种方式getIp()ComboBox2.SelectedIndex 0ComboBox3.SelectedIndex 1ComboBox4.SelectedIndex 16ComboBox5.SelectedIndex 1StartListener() 开始侦听End SubPublic Sub getIp() 获取本机所有网卡的IPDim Address() As System.Net.IPAddressDim i As IntegerAddress Dns.GetHostByName(Dns.GetHostName()).AddressListIf UBound(Address) 0 ThenMsgBox(未能查找到本台电脑安装的网卡暂不能启动本软件。, MsgBoxStyle.Critical vbOKOnly, 注意)EndElseFor i 0 To UBound(Address)ComboBox1.Items.Add(Address(i).ToString())NextComboBox1.SelectedIndex 0LocalIp ComboBox1.Text.Trim()End IfEnd SubPrivate Sub StartListener()Dim LocalPoint As IPEndPointPortNumber TextBox6.TextWhile Not readyTryLocalPoint New IPEndPoint(IPAddress.Parse(LocalIp), PortNumber)ListenerSock New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)ListenerSock.Bind(LocalPoint)ListenerThre New Thread(AddressOf ThrListener)ListenerThre.Start()ready TrueListBox1.Items.Add(LocalPoint.ToString() 已开始侦听......)Catch ex As ExceptionListenerSock.Close()ready FalseMsgBox( 有其它应用程序占用了 LocalPoint.ToString() 请检查并关闭此应用后再打开本程序。, vbCritical vbOKOnly, 警告)EndEnd TryEnd WhileEnd SubPrivate Sub ThrListener() 侦听线程 While readyTryDim bytes(1024) As ByteDim dataArray() As StringDim RemotePoint As System.Net.EndPoint New System.Net.IPEndPoint(System.Net.IPAddress.Any, 0)Dim NumGet As IntegerDim Msg As StringDim Sendinf As StringDim SendBuf As Byte()Dim i As IntegerDim DevBufferIpAddrStr As StringDim DevBufferRemoteAddrStr As StringDim DevBufferCardCode As StringDim DevBufferUseTimeStr As StringDim DevRecFramesStr As StringDim DevBufferMachinStr As StringDim DevBufferDatetimeStr As StringDim DevBufferCardidStr As StringDim DevBufferUseMoneryStr As StringDim DevBufferReaderStr As StringDim DevBufferDoorNoStr As StringDim DevBufferDelayStr As StringDim DevBufferPasswPropStr As StringDim DevBufferPassWStr As StringDim DevBufferStaryStr As StringDim DevBufferRecordAddStr As StringDim DevBufferAllNoStr As StringDim DevBufferFunctionStr1 As StringDim DevBufferFunctionStr2 As StringDim DevBufferSerialNumStr As StringDim DevBufferInputKeyStr As StringDim DevBufferCommandStr As StringDim DevBufferQrcodeInfStr As StringDim DevBufferStateStr As StringDim DevBufferRandomCode As StringDim DevBufferSwitchStr As StringDim DevBufferFireStr As StringNumGet ListenerSock.ReceiveFrom(bytes, RemotePoint)Msg Encoding.GetEncoding(936).GetString(bytes, 0, NumGet)Msg Encoding.UTF8.GetString(bytes, 0, NumGet) 读取中文wifi名称时需用utf8解码Me.Invoke(New EditUi(AddressOf EditUiNow), Now() ( FromIP Convert.ToString(RemotePoint) ).Substring(0, 30) Data, Msg) 用Invoke跨线程更新UI Me.Invoke(New EditTC(AddressOf EditTCNow), 3, Convert.ToString(RemotePoint)) 用Invoke跨线程更新UIdataArray Split(Convert.ToString(Msg), ,)Select Case dataArray(0)Case 101 接收到 1、终端开机时向电脑发送的开机信息, 2、电脑发送002查询设备时间所返回的信息DevRecFramesStr dataArray(1) 包序列号DevBufferIpAddrStr dataArray(2) 终端IPDevBufferRemoteAddrStr dataArray(3) 远程电脑指机IPDevBufferMachinStr dataArray(4) 机号DevBufferDatetimeStr dataArray(5) 日期时间*/If dataArray.Length 6 Then 2018年以后的设备有唯一硬件序号*/DevBufferSerialNumStr dataArray(6)End IfSendinf 001, DevRecFramesStr 向设备发此数据表示已收到信息否则设备会连续发三次SendBuf Encoding.GetEncoding(936).GetBytes(Sendinf)ListenerSock.SendTo(SendBuf, SendBuf.Length, SocketFlags.None, RemotePoint)Me.Invoke(New EditTC(AddressOf EditTCNow), 2, Now() ( SendTo Convert.ToString(RemotePoint) ).Substring(0, 30) Data Sendinf)Dim SystemTimeStr As String String.Format({0:yyyy-MM-dd HH:mm:ss}, DateTime.Now)If DevBufferDatetimeStr.Substring(0, 16) SystemTimeStr.Substring(0, 16) ThenSendinf 003, DevRecFramesStr , SystemTimeStrSendBuf Encoding.GetEncoding(936).GetBytes(Sendinf)ListenerSock.SendTo(SendBuf, SendBuf.Length, SocketFlags.None, RemotePoint)Me.Invoke(New EditTC(AddressOf EditTCNow), 2, Now() ( SendTo Convert.ToString(RemotePoint) ).Substring(0, 30) Data Sendinf)End IfMe.Invoke(New EditTC(AddressOf EditTCNow), 1, DevBufferDatetimeStr) 用Invoke跨线程更新UI Case 150 接收到实时考勤门禁机刷卡数据DevRecFramesStr dataArray(1) 包序列号DevBufferIpAddrStr dataArray(2) 终端IPDevBufferRemoteAddrStr dataArray(3) 远程电脑指机IPDevBufferMachinStr dataArray(4) 机号DevBufferCardidStr dataArray(5) 卡号DevBufferReaderStr dataArray(6) 消费金额*/DevBufferDoorNoStr dataArray(7) 门或继电器号*/DevBufferDelayStr dataArray(8) 门磁未关秒数0表示已关*/DevBufferPasswPropStr dataArray(9) 密码属性0密码无效1刷卡后按密码,2补签密码,3开门密码4防迫胁密码*/DevBufferPassWStr dataArray(10) 密码(最多8位数字)*/DevBufferUseTimeStr dataArray(11) 消费时间*/ If dataArray.Length 12 ThenDevBufferSerialNumStr dataArray(12) 2018年以后的设备有唯一硬件序号End IfSendinf 001, DevRecFramesStr 向设备发此数据表示已收到信息否则设备会连续发三次SendBuf Encoding.GetEncoding(936).GetBytes(Sendinf)ListenerSock.SendTo(SendBuf, SendBuf.Length, SocketFlags.None, RemotePoint)Me.Invoke(New EditTC(AddressOf EditTCNow), 2, Now() ( SendTo Convert.ToString(RemotePoint) ).Substring(0, 30) Data Sendinf)此处加入业务对数据库的查、增、删、减操作用050指令返回开门成功051指令返回开门失败正式系统开发时要有重发机制Select Case VoiceCodeCase 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15 发送禁止开门的指令Sendinf 051, DevBufferMachinStr , DevBufferCardidStr , TextBox5.Text.Trim() , Format(NumericUpDown2.Value, 0) , BeepCode , VoiceCodeCase Else 发送开门指令Sendinf 050, DevBufferMachinStr , DevBufferCardidStr , TextBox5.Text.Trim() , Format(NumericUpDown2.Value, 0) , BeepCode , VoiceCode , DevBufferReaderStr , DevBufferDoorNoStr , Format(NumericUpDown1.Value, 0) , Format(NumericUpDown2.Value, 0)End SelectSendBuf Encoding.GetEncoding(936).GetBytes(Sendinf)ListenerSock.SendTo(SendBuf, SendBuf.Length, SocketFlags.None, RemotePoint)Me.Invoke(New EditTC(AddressOf EditTCNow), 2, Now() ( SendTo Convert.ToString(RemotePoint) ).Substring(0, 30) Data Sendinf)Case 151 发送按钮开门申请信息DevRecFramesStr dataArray(1) 包序列号DevBufferIpAddrStr dataArray(2) 终端IPDevBufferRemoteAddrStr dataArray(3) 远程电脑指机IPDevBufferMachinStr dataArray(4) 机号DevBufferInputKeyStr dataArray(5) 按钮号DevBufferReaderStr dataArray(6) 对应的门或继电器号DevBufferDelayStr dataArray(7) 门磁未关秒数(0门已关)DevBufferUseTimeStr dataArray(8) 刷卡时间If UBound(dataArray) 9 Then DevBufferSerialNumStr dataArray(9) Else DevBufferSerialNumStr 唯一硬件序号Sendinf 001, DevRecFramesStr 向设备发此数据表示已收到信息否则设备会连续发三次SendBuf Encoding.GetEncoding(936).GetBytes(Sendinf)ListenerSock.SendTo(SendBuf, SendBuf.Length, SocketFlags.None, RemotePoint)Me.Invoke(New EditTC(AddressOf EditTCNow), 2, Now() ( SendTo Convert.ToString(RemotePoint) ).Substring(0, 30) Data Sendinf)Select Case VoiceCodeCase 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15 发送禁止开门的指令Sendinf 051, DevBufferMachinStr , DevBufferInputKeyStr , TextBox5.Text.Trim() , Format(NumericUpDown2.Value, 0) , BeepCode , VoiceCodeCase Else 发送开门指令Sendinf 050, DevBufferMachinStr , DevBufferInputKeyStr , TextBox5.Text.Trim() , Format(NumericUpDown2.Value, 0) , BeepCode , VoiceCode , DevBufferInputKeyStr , DevBufferReaderStr , Format(NumericUpDown1.Value, 0) , Format(NumericUpDown2.Value, 0)End SelectSendBuf Encoding.GetEncoding(936).GetBytes(Sendinf)ListenerSock.SendTo(SendBuf, SendBuf.Length, SocketFlags.None, RemotePoint)Me.Invoke(New EditTC(AddressOf EditTCNow), 2, Now() ( SendTo Convert.ToString(RemotePoint) ).Substring(0, 30) Data Sendinf)Case 152 门磁报警信息DevRecFramesStr dataArray(1) 包序列号DevBufferIpAddrStr dataArray(2) 终端IPDevBufferRemoteAddrStr dataArray(3) 远程电脑指机IPDevBufferMachinStr dataArray(4) 机号DevBufferInputKeyStr dataArray(5) 门磁号DevBufferReaderStr dataArray(6) 对应的门或继电器号DevBufferDelayStr dataArray(7) 门磁未关秒数(0门已关)DevBufferUseTimeStr dataArray(8) 刷卡时间If UBound(dataArray) 9 Then DevBufferSerialNumStr dataArray(9) Else DevBufferSerialNumStr 唯一硬件序号Sendinf 001, DevRecFramesStr 向设备发此数据表示已收到信息否则设备会连续发三次SendBuf Encoding.GetEncoding(936).GetBytes(Sendinf)ListenerSock.SendTo(SendBuf, SendBuf.Length, SocketFlags.None, RemotePoint)Me.Invoke(New EditTC(AddressOf EditTCNow), 2, Now() ( SendTo Convert.ToString(RemotePoint) ).Substring(0, 30) Data Sendinf)Case 153 返回查询设备状态的053指令DevRecFramesStr dataArray(1) 包序列号DevBufferIpAddrStr dataArray(2) 终端IPDevBufferRemoteAddrStr dataArray(3) 远程电脑指机IPDevBufferMachinStr dataArray(4) 机号DevBufferInputKeyStr dataArray(5) 继电器号DevBufferReaderStr dataArray(6) 继电器状态DevBufferDelayStr dataArray(7) 门磁未关秒数(0门已关)DevBufferStateStr dataArray(8) 门磁报警状态If UBound(dataArray) 9 Then DevBufferSerialNumStr dataArray(9) Else DevBufferSerialNumStr 唯一硬件序号Sendinf 001, DevRecFramesStr 向设备发此数据表示已收到信息否则设备会连续发三次SendBuf Encoding.GetEncoding(936).GetBytes(Sendinf)ListenerSock.SendTo(SendBuf, SendBuf.Length, SocketFlags.None, RemotePoint)Me.Invoke(New EditTC(AddressOf EditTCNow), 2, Now() ( SendTo Convert.ToString(RemotePoint) ).Substring(0, 30) Data Sendinf)Msg 继电器号 DevBufferInputKeyStr 继电器状态 DevBufferReaderStr 门磁未关秒数 DevBufferDelayStr 门磁报警状态 DevBufferStateStrMe.Invoke(New EditTC(AddressOf EditTCNow), 9, Msg)Case 154 接收到实时考勤门禁机卡离开感应区DevRecFramesStr dataArray(1) 包序列号DevBufferIpAddrStr dataArray(2) 终端IPDevBufferRemoteAddrStr dataArray(3) 远程电脑指机IPDevBufferMachinStr dataArray(4) 机号DevBufferCardidStr dataArray(5) 卡号DevBufferSerialNumStr dataArray(6)Case 155 门禁脱网记录发送----DevRecFramesStr dataArray(1) 包序列号DevBufferIpAddrStr dataArray(2) 终端IPDevBufferRemoteAddrStr dataArray(3) 远程电脑指机IPDevBufferMachinStr dataArray(4) 机号DevBufferCardidStr dataArray(5) 卡号DevBufferReaderStr dataArray(6) 读头DevBufferDoorNoStr dataArray(7) 门或继电器号DevBufferPasswPropStr dataArray(8) 密码属性0密码无效1刷卡后按密码,2补签密码,3开门密码4防迫胁密码DevBufferUseTimeStr dataArray(9) 刷卡时间DevBufferStaryStr dataArray(10) 状态 0扣费 1计次DevBufferRecordAddStr dataArray(11) 记录地址标识DevBufferAllNoStr dataArray(12) 总计录数If UBound(dataArray) 13 Then DevBufferSerialNumStr dataArray(13) Else DevBufferSerialNumStr 唯一硬件序号Sendinf 001, DevRecFramesStr 向设备发此数据表示已收到信息否则设备会连续发三次SendBuf Encoding.GetEncoding(936).GetBytes(Sendinf)ListenerSock.SendTo(SendBuf, SendBuf.Length, SocketFlags.None, RemotePoint)Me.Invoke(New EditTC(AddressOf EditTCNow), 2, Now() ( SendTo Convert.ToString(RemotePoint) ).Substring(0, 30) Data Sendinf)If Not IsDateTime(DevBufferUseTimeStr) Then 记录的刷卡时间非法表示此记录有问题测试时的其它数据DevBufferUseTimeStr 9999-99-99 99:99:99End If这里对脱网记录进行处理If CheckBox3.Checked Then 选择清除已上传的记录驱使用设备继续上传剩下的记录Sendinf 055, DevBufferMachinStr , DevBufferCardidStr , DevBufferUseTimeStr , DevBufferRecordAddStr 清除设备内当前这条记录,设备才会传下一条记录SendBuf Encoding.GetEncoding(936).GetBytes(Sendinf)ListenerSock.SendTo(SendBuf, SendBuf.Length, SocketFlags.None, RemotePoint)Me.Invoke(New EditTC(AddressOf EditTCNow), 2, Now() ( SendTo Convert.ToString(RemotePoint) ).Substring(0, 30) Data Sendinf)End IfCase 158 响应电脑远程开门的058指令DevRecFramesStr dataArray(1) 包序列号DevBufferIpAddrStr dataArray(2) 终端IPDevBufferRemoteAddrStr dataArray(3) 远程电脑指机IPDevBufferMachinStr dataArray(4) 机号DevBufferStaryStr dataArray(5) 0开门成功,1开门密码认证失败2开门密码认证失败超过6次需等待一段时间后再能再次接收058指令(防暴力破解)3 不允许此时间段开门DevBufferRandomCode dataArray(6) 动态随机码(8位十六进制)Me.Invoke(New EditTC(AddressOf EditTCNow), 10, DevBufferRandomCode)Msg Select Case DevBufferStaryStrCase 0Msg IP DevBufferIpAddrStr 开门成功Case 1Msg IP DevBufferIpAddrStr 开门密码认证失败!Case 2Msg IP DevBufferIpAddrStr 开门密码认证失败超过6次需等待一段时间后再能再次接收058指令(防暴力破解)Case 3Msg IP DevBufferIpAddrStr 不允许此时间段开门End SelectMe.Invoke(New EditTC(AddressOf EditTCNow), 9, Msg)Me.Invoke(New EditTC(AddressOf EditTCNow), 10, DevBufferRandomCode)Case 159 心跳信息DevRecFramesStr dataArray(1) 包序列号DevBufferIpAddrStr dataArray(2) 终端IPDevBufferRemoteAddrStr dataArray(3) 远程电脑指机IPDevBufferMachinStr dataArray(4) 机号DevBufferQrcodeInfStr dataArray(5) 信息类型DevBufferSwitchStr dataArray(6) 继电器状态(bit0为第1门bit1为第2门)DevBufferFireStr dataArray(7) 消防输入状态DevBufferRandomCode dataArray(8) 动态随机码(8位十六进制)DevBufferDatetimeStr dataArray(9) 日期时间DevBufferSerialNumStr dataArray(10) 设备硬件号Me.Invoke(New EditTC(AddressOf EditTCNow), 10, DevBufferRandomCode)End SelectCatch ex As ExceptionMe.Invoke(New EditTC(AddressOf EditTCNow), 2, ERROR vbCrLf ex.GetHashCode ex.Message vbCrLf)End TryEnd WhileEnd Sub
