当前位置： 首页 > news >正文

常州网站建设服务seo入门培训

news 2025/9/18 9:42:49
常州网站建设服务,seo入门培训,深圳龙华昨天死人新闻,织梦网站排版能调整吗本示例使用设备介绍：实时网络双门双向门禁控制板可二次编程控制网络继电器远程开关-淘宝网 (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.Load'Control.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 = True'ListBox1.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:99"End 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 "0"Msg = "IP：" & DevBufferIpAddrStr & " 开门成功"Case "1"Msg = "IP：" & DevBufferIpAddrStr & " 开门密码认证失败!"Case "2"Msg = "IP：" & DevBufferIpAddrStr & " 开门密码认证失败超过6次，需等待一段时间后再能再次接收058指令(防暴力破解)"Case "3"Msg = "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

 

http://www.yayakq.cn/news/75845/

相关文章：

  • 临沂网站建设推广wordpress怎么修改logo尺寸
  • .net做网站用mvc外贸网站建设优化
  • 教育机构做网站的目的网络工程师中级
  • 网站着陆页是什么意思禅城建设网站
  • 做网站用图片算侵犯著作权吗平面设计在线课程
  • 广西南宁建设银行招聘网站wordpress主页登录注册
  • wordpress主页显示浏览数温州 网站优化
  • 深圳团购网站设计哪家好有自己的网站如何做淘宝客
  • 绍兴市交通建设有限公司网站wordpress创业邦
  • 无锡网站维护公司四川城乡住房城乡建设厅网站
  • 网站解析后中国建设人才认证服务平台
  • 建设部信息中心网站最缺工的一百个职业
  • 做一个网站页面多少钱wordpress 首页 矩阵
  • 邵阳做网站局域网建设网站工具
  • 做外贸最好的网站有哪些学校响应式网站模板下载
  • 临海钢结构设计网站网站建设人员分工
  • 河池网站建设服务wordpress积分与奖励
  • 建设公司网站模板下载吉林长春有做网站的吗
  • 科技软件公司网站模板wordpress变慢了
  • 建设银行手机银行银行下载官方网站定制网站建设哪家好
  • 如何获取网站访客qq建设局属于什么单位
  • 分布式网站架构网站建设的什么是网站建设的第一阶段
  • 巴中区建设局网站企业网站留言板
  • 专业南京网站建设电子商务网站建设与管理的背景
  • 做网站的费用记哪个科目wordpress插件授权码
  • 做网站用什么电脑配置wordpress 左图右文
  • 租空间开网站网站建设编写代码问题
  • 做网站漯河wordpress 定时任务 hook
  • 岳阳网站开发报价做设计什么兼职网站建设
  • 博达网站建设一汽大众网站谁做的