vb安全弹出(卸载)U盘源码

时间:2011-12-08 06:59:04
【文件属性】:

文件名称:vb安全弹出(卸载)U盘源码

文件大小:15KB

文件格式:RAR

更新时间:2011-12-08 06:59:04

弹出 卸载 U盘 安全

运行程序后,插入U盘时,会弹出检测到U盘,点击相应按钮可以安全弹出U盘,有详细的注释和应用例子。


【文件预览】:
Form1.frm
工程1.vbp
modLockFileInfo.bas
modGetDriveType.bas
modRemoveUsbDrive.bas

网友评论

  • 有一定的参考价值!
  • 代码中已嵌入进去,效果还可以。
  • WIN7系统下无法弹出U盘,程序运行后再插入U盘无法识别
  • 有一定的参考价值!
  • 这就是我要的东西,不错,原来我都是用靠控制鼠标去删除移动盘标示,还得隐藏很多项目,只让电脑右下角显示一个移动盘标示,现在想想当时真是笨笨的,现在终于OK了
  • xp可用,但win7接入U盘后会弹出一个扫描的提示,在不确认的情况下U盘处于占用状态,这时是不能弹出的。
  • 还不错,能实现此功能
  • 多学无虞,有价值。
  • It is not good for real USB disk and happen error again and again.
  • 检测不了U盘
  • 很好,可以弹出U盘 , 但是无法检测是否有程序正在使用U盘, 导致会弹出一个系统对话框, 如果这个能改进就更好了。
  • 挺不错的源码,如果能实现自动禁止U盘显示或实现就好了。
  • 貌似不能够用 不过还是谢谢了
  • 转vb.net后 图片不显示呢
  • 我觉得不错,加以改进完善中
  • 功能实现了,但多次测试中发现,使用不方便,如:弹出慢,检测不及时...
  • 代码写的有点过于复杂了,我还给简化了一下 插入检测自己做了 Dim u As String u = Dir("F:\") ‘U盘盘符 If u = "" Then MSGBOX "未插入U盘 (F:\)" Else MSGBOX "检测到U盘! 点击打开" End If
  • 速度很慢 无法检测移动应盘
  • 以前见过的源码,弹出很慢,而且经常有问题弹不出来。
  • 已经试过,可以用,非常好,但是多次检测U盘就有问题,例如多次插入拔出,另外还有些滞后,不知道为什么
  • 弹出效果实现了
  • 弹出效果很好,代码写的不错,值得推荐。
  • 弹出效果实现了,插入检测还是没做好