Vb.net 如何比较我以前写过的流中数组的字节数？

我想检查我编辑的流是否有我的字节，但结果总是失败，我只是找不到我的函数的错误

Public Function passbyte(ByVal filename As String, ByVal pass As String) 
                          As Boolean
    Dim passarray(0 to 2) As Byte
    Dim realarray(0 To 2) As Byte
    Dim result = False
    Dim pos As Integer

    pos = 0
    If IO.File.Exists(filename) Then
        Using Stream As New FileStream(filename, FileMode.Open, FileAccess.ReadWrite, FileShare.ReadWrite)
            Stream.Seek(pos, SeekOrigin.Begin)
            passarray = System.Text.Encoding.ASCII.GetBytes(pass)
            Stream.Write(passarray, 0, 3)
            Stream.Read(realarray, 0, 3)
            If realarray(0) = passarray(0) and realarray(1) = passarray(1) and realarray(2) = passarray(2) Then
                result = True
                MsgBox("Success")
            Else
                result = False
                MsgBox("Failed")
            End If

        stream.close()
        End Using
    End If

    Return result
End Function

---

你不能在没有环的情况下这样做吗

If pass = My.Computer.FileSystem.ReadAllText(filename) Then

---

你的代码没有那么有意义。你为什么在同一条流上写东西和读东西？除了测试

pass

值是否与文件匹配外，您还想完成什么？谢谢！这很有帮助，是的，我需要创建新的流来阅读，问题解决了