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

怎么没人帮忙啊？

从过年前做到现在，都是这样的错误
尝试读取或写入受保护的内存。这通常指示其他内存损坏