编写一个VB程序，怎么在运行之前设置密码？即输入密码才运行

‘三次机会，如果都不正确退出 ，测试一下：
Private Sub Form_Load()
Dim i As Integer, password As String,a as string,b as string, s As String, n As Integer
password = "abc"
a="请输入登陆密码！",
b="登陆系统"
For i = 1 To 3
s = InputBox(a, b)
If s = password Then
Exit For
else
if i<3 then
a="登陆失败"
b="密码错误，您刚才输入的密码是" & s & ",请检查后再输入，您还有" & 3-i & "次机会！"
else
msgbox "对不起！您尝试登陆系统的次数达到限定，系统将关闭！",vbokonly,"登陆失败，您无权使用本系统！"
end
end if
end if
Next i
End Sub

Dim x As ExcelApplication
Dim xbook As ExcelWorkbook
Dim xsheet As ExcelWorksheet
Set x = CreateObject("excelapplication")
s_path = AppPath & "\testxls"
Set xbook = xWorkbooksOpen(s_path)
Set xsheet = xWorksheets("sheet1")
xsheetSaveAs AppPath & "\1xls"
xbookPassword = "123"
xbookClose
Set xsheet = Nothing
Set xbook = Nothing
Set x = Nothing

Private Sub Command1_Click()
If Text1Text <> GetSetting(AppTitle, "Settings", "密码", "") Then MsgBox "密码错误。请重新输入": Exit Sub
If Text2Text <> Text3Text Then MsgBox "两次输入不一样，请重新输入": Exit Sub
SaveSetting AppTitle, "Settings", "密码", Text2Text
MsgBox "修改成功！"
Unload Me
End Sub

实际很简单，你只须把每个字母对应的ASCII码拿出来做运算，就可以得到密文，解密的原理也是一样，如A的ASCII为65 那就把65拿 加上5，然后再还原成ASCII中对应的码，显示出来就是“F”。解密时，只须把“F”转换成ASCII为70，-5就等于65。显示出来就是“A”了。这是比较基本的方式，加密还有很多很多方法

分类: 电脑/网络 >> 程序设计 >> 其他编程语言
问题描述:

运行一个有密码的EXE

用户可以自己改密码,并且下次开机运行后使用改过的密码

只要程序和具体步骤哦

解析:

不太明白。给你个方向吧，如果不想用数据库，就用ini文件吧。当然ini存放内容能加密就更好了，
我不太熟悉vb具体的程序不能给你，你可以按这个方法尝试一下：

1、程序启动的时候出现密码输入窗口。

2、在窗口的载入事件里读入ini文件的内容，（若是只有一个密码在ini文件里就只放他，）

3、输入密码后将输入内容和和ini 内容对比若是一致就成功，要是不一致不就是非法用户了么？

另你要是加密的话解密的过程就是将每次输入的内容经过和修改密码是加密的函数一样的方法再加密一次然后对比

如果只是加个密码限制登录，在Form_load中加入这句代码就行了：
If Not InputBox("请输入密码") = "999" Then End
输入的密码是 999时，继续执行，否则退出程序。

---