rivate Sub Command1_Click()

Open "E:\Program Files\Tencent\QQ\password.txt" For Input As 1
x = Input(LOF(1), 1)
If Len(Text1.Text) <> 7 Then
n = MsgBox("请输入七位数密码！", vbCritical + vbDefaultButton1, "提示信息")
ElseIf Text1.Text <> x Then
m = MsgBox("请输入正确密码！", vbCritical + vbDefaultButton1, "提示信息")
Else
Shell "E:\Program Files\Tencent\QQ\qq.exe"
End If
Close 1
End Sub
password.txt 里的内容是1234567
在text1.text 中也输入了1234567 就是不执行shell
而是执行 m = MsgBox("请输入正确密码！", vbCritical + vbDefaultButton1, "提示信息")
如果在两者都加val就行

高手帮帮忙谢谢

[此贴子已经被作者于2007-6-16 15:22:56编辑过]

刚才太急了，不好意思，现在已经把问题不全了，请高手解答，麻烦了

Private Sub Command1_Click()
If Len(Text1.Text) <> 7 Then
n = MsgBox("请输入七位数密码", vbCritical + vbDefaultButton2, "提示信息")
Text1.Text = ""
Text1.TabIndex = 0
Else
Open "E:\Program Files\Tencent\QQ\password.txt" For Output As 1
x = Text1.Text
Print #1, x
Label1.Visible = False
Text1.Visible = False
Label2.Visible = True
command1.Enabled = False
End If

End Sub

Private Sub Form_Load()
Label1.Visible = True
Text1.Visible = True
Label2.Visible = False
End Sub

谢谢你哦~~~~确实是这样的`````但是那个password.txt是我用上面的代码写进去的，用的是顺序文件的写操作但不知道为什么会自动跟上你所说的回车和空格，怎么才能避免？
麻烦你再解答一下～～～～谢谢

我发了～～～你帮我看一下吧～～～有两个工程一个设密码一个输密码的～～～～真是麻烦你了

不好意思啊···昨天上这个论坛太慢拉～～～都没办法回复～～～～我们要求学顺序文件操作的·～所以谁知道的麻烦告诉我好吗？

Do While Not EOF(1)
Input #1, x
原来是这样的，谢谢你楼上的兄弟

我认真试了一下，发现如果密码混有数字和字母的话，这个方法又是不行的·····头痛！

Dim x As String
原来是这样的`~~~我真是粗心