酒店门锁V10SDK接口vb模块-幽冥大陆(一百27)—东方仙盟

系统环境

IDE:Visual BASIC 6

语言：VB

执行IDE:仙盟创梦IDE

核心代码

模块代码

Attribute VB_Name = "Module1" '函数申明 '读DLL版本号 Declare Function GetDLLVersion Lib "你的门锁模块.dll" (ByVal sDllVer As String) As Integer '初始化USB端口 Declare Function initializeUSB Lib "你的门锁模块.dll" (ByVal fUSB As Byte) As Integer '发卡器叫一声 Declare Function Buzzer Lib "你的门锁模块.dll" (ByVal fUSB As Byte, ByVal t As Integer) As Integer '读卡 Declare Function ReadCard Lib "你的门锁模块.dll" (ByVal fUSB As Byte, ByVal Buffer As String) As Integer '客人卡 Declare Function GuestCard Lib "你的门锁模块.dll" (ByVal fUSB As Byte, ByVal dlsCoID As Long, ByVal CardNo As Integer, ByVal dai As Integer, ByVal llock As Integer, ByVal pdoors As Integer, ByVal BTime As String, ByVal ETime As String, ByVal LockNo As String, ByVal CardHexStr As String) As Integer '注销卡片 Declare Function CardErase Lib "你的门锁模块.dll" (ByVal fUSB As Byte, ByVal dlsCoID As Long, ByVal CardHexStr As String) As Integer '挂失卡片 Declare Function LimitCard Lib "你的门锁模块.dll" (ByVal fUSB As Byte, ByVal dlsCoID As Long, ByVal CardNo As Integer, ByVal dai As Integer, ByVal BTime As String, ByVal LCardNo As String, ByVal CardHexStr As String) As Integer 'HEX-ASC Declare Function hex_a Lib "你的门锁模块.dll" (ByVal hex As String, ByVal a As String, ByVal length As Integer) As Integer 'ASC-HEX Declare Function a_hex Lib "你的门锁模块.dll" (ByVal a As String, ByVal hex As String, ByVal length As Integer) As Integer '读取卡片类型 Declare Function GetCardTypeByCardDataStr Lib "你的门锁模块.dll" (ByVal CardDataStr As String, ByVal CardType As String) As Integer '读取客人卡锁号 Declare Function GetGuestLockNoByCardDataStr Lib "你的门锁模块.dll" (ByVal dlsCoID As Long, ByVal CardDataStr As String, ByVal LockNo As String) As Integer '读取客人离店时间 Declare Function GetGuestETimeByCardDataStr Lib "你的门锁模块.dll" (ByVal dlsCoID As Long, ByVal CardDataStr As String, ByVal ETime As String) As Integer '全局变量 Global st As Integer '函数返回状态值 Global flagUSB As Byte '发卡器标志---0表示有驱,1表示pro免驱 Global bufCard As String * 128 '卡片数据 Global bufHexStr As String * 128 '十六进制字符串 '读卡,有错误提示 '同时返回当前卡的ID(包含卡类型,卡号,发卡时间)---mid(bufCard,25,8) Function rdCard() As Boolean rdCard = False bufCard = "" '清空卡数据缓存 st = ReadCard(flagUSB, bufCard) If st <> 0 Then MsgBox "读卡失败, 错误代号为: " & CStr(st), 16 Exit Function End If ' Left(bufCard, 6) 5515 If Mid(bufCard, 5, 2) <> "01" Then MsgBox "发卡器的感应区无卡" & Chr(10) & bufCard, 48 Exit Function End If rdCard = True End Function

人人皆为创造者，共创方能共成长

每个人都是使用者，也是创造者；是数字世界的消费者，更是价值的生产者与分享者。在智能时代的浪潮里，单打独斗的发展模式早已落幕，唯有开放连接、创意共创、利益共享，才能让个体价值汇聚成生态合力，让技术与创意双向奔赴，实现平台与伙伴的快速成长、共赢致远。

原创永久分成，共赴星辰大海

原创创意共创、永久收益分成，是东方仙盟始终坚守的核心理念。我们坚信，每一份原创智慧都值得被尊重与回馈，以永久分成锚定共创初心，让创意者长期享有价值红利，携手万千伙伴向着科技星辰大海笃定前行，拥抱硅基 生命与数字智能交融的未来，共筑跨越时代的数字文明共同体。

东方仙盟：拥抱知识开源，共筑数字新生态

在全球化与数字化浪潮中，东方仙盟始终秉持开放协作、知识共享的理念，积极拥抱开源技术与开放标准。我们相信，唯有打破技术壁垒、汇聚全球智慧，才能真正推动行业的可持续发展。

开源赋能中小商户：通过将前端异常检测、跨系统数据互联等核心能力开源化，东方仙盟为全球中小商户提供了低成本、高可靠的技术解决方案，让更多商家能够平等享受数字转型的红利。
共建行业标准：我们积极参与国际技术社区，与全球开发者、合作伙伴共同制定开放协议 与技术规范，推动跨境零售、文旅、餐饮等多业态的系统互联互通，构建更加公平、高效的数字生态。
知识普惠，共促发展：通过开源社区 、技术文档与培训体系，东方仙盟致力于将前沿技术转化为可落地的行业实践，赋能全球合作伙伴，共同培育创新人才，推动数字经济 的普惠式增长

阿雪技术观

在科技发展浪潮中，我们不妨积极投身技术共享。不满足于做受益者，更要主动担当贡献者 。无论是分享代码、撰写技术博客，还是参与开源项目 维护改进，每一个微小举动都可能蕴含推动技术进步的巨大能量。东方仙盟是汇聚力量的天地，我们携手在此探索硅基 生命，为科技进步添砖加瓦。

Hey folks, in this wild tech - driven world, why not dive headfirst into the whole tech - sharing scene? Don't just be the one reaping all the benefits; step up and be a contributor too. Whether you're tossing out your code snippets , hammering out some tech blogs, or getting your hands dirty with maintaining and sprucing up open - source projects, every little thing you do might just end up being a massive force that pushes tech forward. And guess what? The Eastern FairyAlliance is this awesome place where we all come together. We're gonna team up and explore the whole silicon - based life thing, and in the process, we'll be fueling the growth of technology