帮忙哦,用VB检测到指定 "卷标" 的移动U盘...............

ainiture 2011-10-27 10:20:31
我想实现以下功能:

用VB检测到指定 "卷标" 的移动U盘就提示找到,否则就提示未找到
然后再检测以上指定卷标的移动U盘里的a.txt里的内容,如果内容等于123就提示对,否则提示错

希望各位能贴出"完整"的代码哦
我没有分给你们哦,里面分空空的。谢谢各位啦
...全文
60 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
yejian520 2011-10-28
  • 打赏
  • 举报
回复
Private Declare Function GetDriveType Lib "kernel32 " Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Private Sub Command1_Click()
Dim i As Long
For i = Asc("C ") To Asc("Z ")
If GetDriveType(Chr(i) + ": ") = 2 Then Debug.Print "现有U盘: " & Chr(i)
Next i
End Sub

这是枚举U盘的


Private Sub Command1_Click()
Dim fso As Object, drv As Object
Dim dr As Long, fn As String
fn = "123.txt" '指定文件
Set fso = CreateObject("scripting.filesystemobject")
For dr = 99 To 122
If fso.driveexists(Chr(dr) & ":") Then
Set drv = fso.GetDrive(Chr(dr) & ":")
If drv.drivetype = 1 Then
Print Chr(dr) & "盘 "; drv.volumename; " ";
If Dir(Chr(dr) & ":\" & fn) = "" Then
Print "未找到指定文件"
Else
Print "找到了指定文件"
End If
End If
End If
Next
Set drv = Nothing
Set fso = Nothing
End Sub
自己再结合一下吧
本系统免费使用,使用条件是把计算机名和C盘卷标改为'爱科软件'即可免费使用,无任何功能限制。

爱科U盘认证的特点:

1. 支持移动硬盘、读卡器等所有的移动存储设备;

2. 支持多系统认证,一个U盘可以用于多个系统;

3. 完善的安全机制,即使U盘没有序列号或序列号相同,也可以已保证安全;

4. 可以自定义密码;

5. 可以存储128个字符的特定信息;

6. 支持使用记录,最大可以为1000条;

7. 提供丰富的函数,完善的功能,及其简单的开发过程

现在市场上出现各种各样的基于硬件的加密设备,但应用于身份认证的还很少,大部分应用在软件产品的加密方面。

软件开发商在开发软件特别是行业软件时经常用到身份验证,传统当方式是采用用户名+密码的方式进行认证,这样的验证方式存在很多缺点主要表现在以下两个方面:

1. 用户信息容易泄密

2. 用户信息容易遗忘

3. 给领导使用带来不便

作为软件开发商为了提高软件的可用性、加载身份认证功能。但需要从市场上加密厂商手中购买身份认证设备,但存在以下弊端:

1. 增加软件的成本

2. 每一个用户需要一套,当系统用户较多时产生较高的成本

3. 设备内部的核心技术不了解,增加了软件推广应用中的风险

4. 身份认证设备功能单一

随着科技的发展,IT技术的投飞猛进发展。优盘走进了普通计算机用户的手中,逐渐了取代了计算中的软驱的位置。现在的优盘生产厂家较多、价格比较低廉、稳定性较高、容量较大、功能也越来越多。使用计算机用户手中的优盘设备作为加密载体是最合适的选择。因为不需要任何软件商的投资,不用担心核心技术的控制。最为软件厂商的工作就是开发一套基于优盘的机密体系。


基于优盘的加密体系方案设计:

优盘在生产时在设备上标注了物理编号,这种编号具有终生不变、不任何操作的影响、只能读取不能写入的特点。所以可以采用优盘物理编号作为加密方案设计的起点。

采用优盘的物理编号作为加密的种子,利用算法转成密文生成一认证文件,可以在文件中附加身份验证信息。在设计软件登录时只需判断当前优盘和当前优盘中许可文件是否一致,用户信息在中心数据库中是否存在即可,这样有效的保护了用户信息,也避免了用户信息记忆不便的问题。

采用这种机密方式主要的安全保障措施是:

采用优盘的物理编号(保证不被复制)杜绝加密文件因用户非法拷贝造成的问题(在检测设备时可以检查物理编号是否一致)

742

社区成员

发帖
与我相关
我的任务
社区描述
VB 版八卦、闲侃,联络感情地盘,禁广告帖、作业帖
社区管理员
  • 非技术类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧