在登录界面上，怎么样记住用户名和密码呢？

Question

在登录窗体上，我想设置可以记录用户名和密码，那么下次登录的时候只要点“登录”键就可以了。   但是这个用户名和密码是变量，不知道怎么往程序里加。   请教高手～～

Answer 1

写到INI文件里,写到文件的时候记着要加密一下呀.

Answer 2

既然是下次只要点登陆就可以了，那么设置密码有什么用呢？直接把用户名写在INI文件中，下次直接读用户名就可以了

Answer 3

像QQ， popo这样记住密码的  也是放到注册表中么？我觉得写进ini之类的文件里比较好，不太喜欢动注册表

Answer 4

写进一个二进制文件中吧,如user.dat
用print #1,xxx,xxx

Answer 5

写入ini或注册表都可以~网上有很多源码。

Answer 6

写入注册表
写入INI
或是写入文件中
想办法加密

Answer 7

把（用户名,密码）用加密方法生成字符串，如MD5加密方法，把加密后的字符串保存在INI文件中即可。
如：
用户名=abc
密码=123
可以把abc123当作一个字符串来加密把加密结果存到INI中。MD5加密方法在网上有很多代码下载，直接使用即可写到INI文件中在CSDN中就有，自己去找。

Answer 8

寫在Ini或Dat文件中,也可以寫在注冊表中
寫INI比較麻煩一點,要用到API,不過如果做成一個讀寫INI的DLL就方便了,
寫在Dat文件中也是一種可以選用的方法,和INI不同的是,INI文件可以很方便的用它的[項目名]來定位到相應的項目下面去讀取數據,而DAT文件則相對要簡單很多,定位不太好,但保存一些簡單的數據<如樓主要用到的用戶名和密碼>還是可以勝任的,寫在這樣的文件中比較符合<綠色>軟件的規范
寫在注冊表中相對操作起來比較容易,因為VB自帶了几個讀寫注冊表的函數
SaveSetting
GetSetting
DeleteSetting
GetAllSettings
不過最好要加一下密哦

Answer 9

在讀寫注冊表時,我通常的做法是
保存時 SaveSetting 工程名,窗體名,變量名,變量值
讀取時=GetSetting (工程名,窗體名,變量名,默認值)

Answer 10

zichen66() ，你好，能不能把你的语句写出来啊 我写的不是语法不对，就是没反应。

Answer 11

Private Sub Command1_Click() '保存
Dim strUseName, useParsword As String
strUseName = "张三"
useParsword = "123"
SaveSetting "MyApp", "useName", "Name", strUseName
SaveSetting "MyApp", "useName", "Parsword", useParsword
End SubPrivate Sub Command2_Click() '取出Dim strUseName, useParsword As StringstrUseName = GetSetting("MyApp", "useName", "Name", 0)
useParsword = GetSetting("MyApp", "useName", "Parsword", 0)MsgBox strUseName
MsgBox useParsword
End Sub

Answer 12

把帐号和密码都保存在一个.md5文件里面
然后把帐号和密码都保存成MD5模式

Answer 13

Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As IntegerPublic Function GetIniContent(lpAppName As String, lpKeyName As String, lpIniFile As String) As String
    Dim RetLen As Integer
    Dim retStr As String * 255
    
    RetLen = GetPrivateProfileString(lpAppName, lpKeyName, "default", retStr, Len(Trim(retStr)), lpIniFile)
    GetIniContent = Left$(retStr, RetLen)
End FunctionPublic Function WriteIniContent(lpAppName As String, lpKeyName As String, retStr As String, lpIniFile As String) As String
    WritePrivateProfileString lpAppName, lpKeyName, retStr, lpIniFile
End FunctionPublic Function SaveIni() As String
    Dim WinDirectory As String * 255
    Dim RetLen As Integer, i As Integer    On Error GoTo errini    RetLen = GetWindowsDirectory(WinDirectory, Len(WinDirectory))
    IniFilePath = Left(WinDirectory, RetLen) & "\TestBug.ini"
    
    Section = "User"
    WriteIniContent Section, "TEAM", sTeam, IniFilePath
    WriteIniContent Section, "USERNAME", sUsername, IniFilePath
    WriteIniContent Section, "SelectBug", sSelectBug, IniFilePath
    
    Exit Function
    
errini:
    SaveIni = "启动文件已损坏或不存在！"
    Exit Function
End FunctionPublic Function ReadIni() As String
    Dim WinDirectory As String * 255
    Dim Section As String
    Dim RetLen As Integer, i As Integer
        
    ReadIni = ""
    On Error GoTo errini
    
    AppPath = App.Path & "\"
    'IniFilePath = AppPath & "TestBug.ini"
    RetLen = GetWindowsDirectory(WinDirectory, Len(WinDirectory))
    IniFilePath = Left$(WinDirectory, RetLen) & "\TestBug.ini"
    
    Section = "USER"
    sTeam = GetIniContent(Section, "Team", IniFilePath)
    sTeam = LeftB(sTeam, GetLen(sTeam))
    sUsername = GetIniContent(Section, "Username", IniFilePath)
    sUsername = LeftB(sUsername, GetLen(sUsername))
    sSelectBug = GetIniContent(Section, "SelectBug", IniFilePath)
    sSelectBug = LeftB(sSelectBug, GetLen(sSelectBug))
    
    Exit Function
    
errini:
    ReadIni = "启动文件已损坏或不存在！"
    Exit Function
End Function

Answer 14

写到数据库，INI，注册表，里都可以。

Answer 15

写到INI文件里,写到文件的时候记着要加密一下呀.同意这个。当然你也可以写在mdb上也行