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

            End If

            If Not br Is Nothing Then

                br.Close()

            End If

        End Try

        Return ip

    End Function

    Private Function reanConfig(ByVal strPath As String) As String

        Dim Ip As Integer = SeekPostion(strPath)