vb.net实现木马注册机原理：动态配置exe[6]

            Me.l_res.Text = "该程序已经被配置过了！"

        End If

    End Sub

    Function SeekPostion(ByVal strPath As String) As Integer

        Dim ip As Integer = 0 '位置

        Dim ms As IO.FileStream

        Dim br As IO.BinaryReader