1,486
社区成员
发帖
与我相关
我的任务
分享
'Add "moduModule1.bas","moduModule2.bas" to your project!
Dim buffer(0 to 1024) as Byte
Dim cmddata(0 to 1024) as Byte
Dim errcode as Long
Dim hic,i,num,wRetLen as Long
Dim mgnCode(0 to 3)as Integer
'{{**查找打开锁
'注:查找方法1,2只能选一个,默认是1,普通查找,
'如果选2,则将其注释去掉,再将方法1注释掉即可
'{查找方法1:普通查找,找到所有加密锁
num = Find()
'}