窗体3
Private Sub Command1_Click()
Dim a As String
Dim b As String
a = Text1.Text
Shell "cmd /c attrib -h c:\mm.txt", vbHide
If a = QQ登录.Lines Then

If Text3.Text = Text2.Text Then

If Text2.Text = "" Then
MsgBox "再次设置空密码？"
Shell "cmd /c attrib +h c:\mm.txt", vbHide
密码修改.Hide
登录界面.Show
End If

Open "c:\mm.txt" For Output As #1
Print #1, Text3.Text
Close #1
MsgBox "密码设置成功！"
Shell "cmd /c attrib +h c:\mm.txt", vbHide
密码修改.Hide
登录界面.Show
Text2.Text = ""
Text3.Text = ""
Else
MsgBox "两次密码不同，请重新设置！"
Shell "cmd /c attrib +h c:\mm.txt", vbHide
End If

Else
MsgBox "原密码错误！"
Shell "cmd /c attrib +h c:\mm.txt", vbHide
End If
End Sub

Private Sub Picture1_Click()

End Sub

窗体4
Private Sub Command1_Click()
Dim a As String

a = Text1.Text
Shell "cmd /c attrib -h c:\mm.txt", vbHide
Shell "cmd /c attrib -h c:\path.txt", vbHide
If a = QQ登录.Lines Then
If Text2.Text = "" Then
MsgBox "空路径？"

路径修改.Hide
登录界面.Show
Shell "cmd /c attrib +h C:\path.txt", vbHide
Shell "cmd /c attrib +h c:\path.txt", vbHide
End If
Open "c:\path.txt" For Output As #1
Print #1, Text2.Text
Close #1
Shell "cmd /c attrib +h c:\mm.txt", vbHide
Shell "cmd /c attrib +h c:\path.txt", vbHide

MsgBox "路径设置成功！"
路径修改.Hide
登录界面.Show

Shell "cmd /c attrib +h C:\path.txt", vbHide
Shell "cmd /c attrib +h c:\path.txt", vbHide
Text2.Text = ""
Text1.Text = ""

Else
MsgBox "密码错误！"
Shell "cmd /c attrib +h c:\path.txt", vbHide
Shell "cmd /c attrib +h c:\path.txt", vbHide
End If
End Sub

Private Sub Picture1_Click()

End Sub

[此贴子已经被作者于2007-10-5 23:48:59编辑过]

其实也没什么原理了
3年前学了点这个，早忘没了
就是几个shell，隐藏（显示）文件的应运而已
主要是那个密码的设置与重新设置