VB.NET 调用 BY1000.DLL 字幕卡出现 不能读取或写入受保护内存

    Declare Function SFCG_GetVideoBase Lib "by1000.dll" (ByRef address As ULong) As Boolean
      Public Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Dim S As New ULong
           S = 0
        Try
            If SFCG_GetVideoBase(S) Then '出现异常，不能读取或写入受保护内存
                Me.TextBox14.Text = "PUT DATssEO="
                Me.TextBox5.Text = S
            End If
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

    End Sub