Question

VB代码问题，做了一个用户登录和注册的界面

如何验证用户名和密码？如果验证时关联的是TXT文本不是数据库，怎么在txt文本中存入用户名和密码，格式是怎样的？完成后怎么txt和工程打包成一个EXE，就是打开这个exe就可以验证用户名，密码，用户使用时是看不到TXT文本的。

Answer 1

如果用户看不到txt文档，那么你又何必要自己写一个txt文档呢。。。

还有，txt和工程没有办法编译在一起的吧，头一回听说。。。

下面是我采用的两个验证账户密码的方式，供你参考。。。

1. 直接将账户密码写到代码中，然后编译生成exe

2. 让生成的exe程序去读取配置文件，配置文件是经过md5加密后的，后缀也可以改成自己的。。。然后再写一分程序，专门可以生成配置文件的。。。

追问

txt是充当数据库的，就是用户输入和写在里面的的用户名和密码匹配时才可以登录成功，如果不行那可以连接数据库吗？数据库里存入N个用户名和密码。输入符合其中一个就登录成功。

追答

还是上面两个方法，单单修改后缀是没有用的，如pass.html，我手动改回txt就可以看到你的真实数据了。。。

如果你的n个账户密码是固定的，建议写到程序代码中，这样也不容易分析。。。

如果可能是变化的，那么建议还是按照第二个方式，专门写配置文件（就是你的账户密码集的文件）的程序。。。

至于怎么写，直接在百度找vb txt输出就可以了。。。建议还是要加密，加密方式也可以百度 vb md5加密 晚上都是有现成的源代码的。。。你可直接拿过来用的。。。

至于数据库，如果程序不麻烦，用数据库反而会影响程序。。。而且数据库文件无非常用的access
Oracle，有了打开工具也是能够查看到内容的。。。如果再加密数据库，又麻烦了。。。

追问

谢谢，回答很专业，忘了说这只是作业不是真的投入应用的程序......所以不怕泄露问题，请写一下关联文本文档并核对用户名密码的代码

追答

下面是读和写

Private Sub Command2_Click()
    Open "F:\TEST\b.txt" For Output As #1
    Print #1, Text1.Text
    Close
End Sub
以上代码可以创建一个txt文件
Private Sub Command1_Click()
    Dim str
    Open "F:\TEST\a.txt" For Append As #1
    str = Text1.Text
    Write #1, str
    Close #1
End Sub

读入字符串后，可以按照自己写入的格式取出你的账户密码，格式是你自己定的。。。不过建议xml格式，这样方便多了。。。

看着vb的代码真心别扭，我写vb.net的，不过差不太多。。。上面的是vb的。。。

至于对比，你只要取出来了账户密码，对比应该不是问题的

Answer 2

VB怎么读写文本文件的代码有很多，你可以搜一下这里就不写了。如果你一定要用文本文件来保存的话可以简单这样做：

1、每新增一个用户，在文本文件里写入 "name(" & textname.text &" )password(" textpwd.text & ")"。比如新增一个用户，用户名是qqq，密码是123，那么就在文本文件末尾写入name(qqq)password(123).
2、用户登录时，打开并读入文本文件，核对用户名和密码。比如用户qqq登录时，查找到name(qqq)的位置，再取出后面跟着的密码，与输入的密码核对无误即可。
3、没办法把TXT文件和工程打成包，如果你怕用户看到txt文件，你可以把它的后缀改了，不用 .txt也一样能读写。

追问

哦，这样啊。那怎么关联这个TXT文件呢，假设这个txt文件最后改为pass.html，关联并验证的代码怎么写

追答

不用什么关联呀，在代码里就当着文本文件一样操作就行了
文件不用分行，就一行
读出
Dim tmp As String
Open App.Path + "\pass.html" For Input As #1
Line Input #1, tmp
Close #1
接着对tmp进行处理，代码自己加
tmp里存的就是用户信息，按照上边的方法找出用户名和密码核对是否一致就行了
保存
假设用户名和密码分别在textname,和textpwd两个文本框里，保存的办法是先读出文件内容，把新的用户名和密码加再后面，再保存
Dim tmp As String
Open App.Path + "\pass.html" For Input As #1
Line Input #1, tmp
Close #1
tmp=tmp &"name(" & textname.text &" )password(" textpwd.text & ")"

Open App.Path + "\pass.html" For Output As #2
Print #2, tmp
Close #2
这样就行了，另外，那个文本文件的后缀可以随便改，改成系统不认识的也没关系。改成html貌似可以直接打开被人看到了

Answer 3

将你的用户名和密码直接写到程序中，这样生成exe文件后，其他用户是根本看不到的。

追问

考虑到注册问题，已经放弃了将密码内置了。那么注册用户的用户名和密码怎么记录下次能用注册的登录呢？

追答

你可以将用户名和密码写入能够存储的文件中，例如文本文件、数据库或其他例如*.dat文件等等，这样在登录时读取用户名和密码就可以了。