关于vb中打开已有文件作为密码输入时遇到的问题
Form_Load()
Dim a
Dim b
On Error GoTo sss
Open ( "c:\abc.abc ") For Input As #1
Input #1, b
Close #1
a = InputBox( "请输入密码! ")
If a < > b Then MsgBox "密码错误,您不能使用本软件! ": End
Exit Sub
sss:
a = InputBox( "请建立密码! ")
Open ( "c:\abc.abc ") For Output As #2
Print #2, a
Close #2
MsgBox "建立密码成功! "
End Sub
上文是我编写的一个软件的加密部分,不知道为什么我建的c:\abc.abc里面的b是
19811020,不过当我下次输入19811020时,他却说密码错误,请学vb的高手帮我