用VB6.0编辑一个密码程序，如果密码真确，打开计算机中的某个文件

Private Sub Command1_Click()

a = InputBox("请输世嫌入密码"慧虚, "搜碧手请输入")

If a = "123" Then Shell "Notepad.exe", vbNormalFocus

End Sub

如果只是加个祥渗密码限制登录，在Form_load中加入这句代码汪睁就行了：

If Not InputBox("请输入密码"困宴岁) = "999" Then End

输入的密码是 999时，继续执行，否则退出程序。

自己编写一个文件夹加密软件，也太麻烦了。

文件夹加密软件，我使用的是文件夹加密超级大师。

文件夹加密超级大师支持所有windows系统，可以加密文件夹，加密唤亮文件，保护磁盘和数据粉碎，使用起来非常方便。老改

在需要加密的文件和文件夹上单击鼠标右键选择加密就可以了。

解密时只要双击加密的文件夹和文件，输入正确的密码就可以解密。

文件夹加密超级大师加密后的文件和文件夹可以防止删除、复制和移动。

相对于其他的文件夹加密软件和文件加密软件，功能和性能还有 *** 作都更加的出色。

并且有微软、360和金山的安全认证，是一款绝对安全的文件夹加密软件。

您可以到百度上下载文件夹加密超级大师来给您的侍链判文件和文件夹加密，看看使用效果怎么样？

---