Question

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

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

Answer 1

如果没有循环，你不能这样做吗？

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

如何比较之前我写过的流中的数组字节？

1 个答案: