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编辑过]

你说清楚一点，是什么问题？？

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

文件的读写操作很久没用了，有些忘了。

不加val就不行的原因是，你password.txt文体里的1234567 后面跟随了一个回车换行符。你重新那建一个
password.txt，在里面输入1234657 就保存退出。后面不要加回车和空格，不用val也可以了。


val是将字符变量转成数字变量，所以他会去掉变量后面的回车符和空格。

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是我用上面的代码写进去的，用的是顺序文件的写操作但不知道为什么会自动跟上你所说的回车和空格，怎么才能避免？
麻烦你再解答一下～～～～谢谢

我都有一年多不搞VB了，现在改C/C++了，都忘的差不多了。要不你把程序发上来
我调一下看看。

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

我想不起来了。你不能换一种方法吗？？用FileSystemObject

你上传的压缩包不对。里面就一个 .vbp

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

Private Sub Command2_Click()
Open "d:/password.txt" For Input As 1
Do While Not EOF(1)
Input #1, x
Loop
Close #1

If Len(Text1.Text) = 0 Then
n = MsgBox("请输入七位数密码！", vbCritical + vbDefaultButton1, "提示信息")
ElseIf Text1.Text <> x Then
m = MsgBox("请输入正确密码！", vbCritical + vbDefaultButton1, "提示信息")
Else

End If
Close 1
End Sub