系统登陆如何记住用户名和密码，下次登陆只需要点击确定按钮就自动登陆系统。

记得有个什么"Open 文件名 For Output"命令，这可以把数据存入文件，需要登陆时先检测有没有这个文件。有的话用"Open　文件名 For Input", 将读出的数据填入文本框

谢谢！可否做个实例或者给个链接。

有三种方法：
1、OPEN 文件，可以自己封装加解密和使用二进制文件。加密强度可以提升。
2、使用INI文件，这个有专用　API 函数，并且网上有大把封装好了的函数。可以使用 字符串加密方式。
3、使用注册表。VB6自带注册表函数，虽然是固定一个位置，也可以用的。

简便，推荐第2种。加密，推荐第1种。一般情况下不推荐第3种。

谢谢老师关注。

'这是我一个程序当中直接剪贴出来的代码，道理是一样的。只不过我存入的是数组，你只存两个字符串，当然更加容易。
Private Sub mnuSave_Click()
Index = 0
For datanumber = 1 To 19 Step 2
  savedata(datanumber) = character(Index).Left
  Index = Index + 1
Next datanumber
Index = 0
For datanumber = 2 To 20 Step 2
  savedata(datanumber) = character(Index).Top
  Index = Index + 1
Next datanumber
savedata(21) = stage
Open App.Path + "\save\savefile.dat" For Output As 1
For datanumber = 1 To 21
  Print #1, savedata(datanumber)
Next datanumber
Close #1
End Sub
'-----------------------------------------
Private Sub mnuRead_Click()
Open App.Path + "\save\savefile.dat" For Input As 1
For Index = 1 To 21
  Input #1, savedata(Index)
Next Index
Index = 0
For datanumber = 1 To 19 Step 2
  character(Index).Left = savedata(datanumber)
  Index = Index + 1
Next datanumber
Index = 0
For datanumber = 2 To 20 Step 2
  character(Index).Top = savedata(datanumber)
  Index = Index + 1
Next datanumber
stage = savedata(21)
Me.Caption = "华容道－第" + Str(stage) + "关"
Close #1
End Sub

谢谢！我是刚学习vb，没有实例很难理解代码。

INI 文件的方法：

一、模块文件，可以保存为通用，以便其他程序调用

Option Explicit
'写
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
'读
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
   
'保存到INI文件
Public Function Wini(ByVal 段 As String, ByVal 键 As String, ByVal 值 As String, IniFile As String) As Boolean
Dim X As Long, buff As String * 128, i As Long                    '警告：最大长度不得超过127，否则会导致错误
buff = 值 & Chr(0)
X = WritePrivateProfileString(段, 键, buff, IniFile)
Wini = X
End Function

'从INI文件中读取
Public Function Rini(ByVal 段 As String, ByVal 键 As String, IniFile As String) As String
Dim X As Long, buff As String * 128, i As Long                '警告：最大长度不得超过127，否则会导致数据不完整
X = GetPrivateProfileString(段, 键, "", buff, 128, IniFile)
i = InStr(buff, Chr(0))
Rini = Trim(Left(buff, i - 1))
End Function

二、程序中的使用
如保存：

    Wini "Print", "左边距", 左边距, Path & ConfigPath & "\" & 打印设置
    Wini "Print", "右边距", 右边距, Path & ConfigPath & "\" & 打印设置

如对应的读取

    左边距 = Val(Rini("Print", "左边距", Path & ConfigPath & "\" & 打印设置))
    右边距 = Val(Rini("Print", "右边距", Path & ConfigPath & "\" & 打印设置))

生成的 INI 文件内容是：

生成的文件可以使用 记事本 进行编辑，对于用户来说，如果不加密，就相当于明文。
如果保存的密码，需要还原，可以去找那些可逆的加密方式。

谢谢版主,太深奥了，一时半会儿还消化不了。