muchas gracias chicos, especialmente a sir Goldorak84 y sir blah238 basado en sus declaraciones, he encontrado una manera de registrar mi Arco Mapa 10.1 del archivo dll mediante programación utilizando vb.net esto es lo que hice
he añadido una clase denominada "regESRIdll.vb" (voy a pegar a continuación)
y al hacer clic en el botón de registro he añadido este código
Dim directoryInfo As New System.IO.DirectoryInfo(Application.StartupPath.ToString)
Dim fileInfos() As System.IO.FileInfo = directoryInfo.GetFiles()
Dim iCount As Integer
For Each fileInfo As System.IO.FileInfo In fileInfos
For Each extension As String In allowedExtensions
If UCase(extension) = UCase(fileInfo.Extension) Then
Dim myAssemblyName As Assembly = Assembly.LoadFile(fileInfo.FullName)
regESRIdll.Execute(True, myAssemblyName) '====to unregister the dll change True to False
iCount += 1
End If
Next
Next
y no olvide declarar regESRIdll como nuevo regESRIdll
'==========================================================================
Las Importaciones Del Sistema.IO
Clase pública regESRIdll
Public Enum Product
Desktop
Engine
End Enum
Public Sub Execute(ByVal register As Boolean, ByVal assemply As System.Reflection.Assembly, Optional ByVal product As Product = Product.Desktop, Optional ByVal timeout As Integer = 10000)
' Configure the process to execute the command
Dim process As New Process()
process.StartInfo.FileName = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.CommonProgramFiles), "ArcGIS\bin\ESRIRegAsm.exe")
process.StartInfo.Arguments = String.Format(If(register, """{0}"" /p:{1} /s", """{0}"" /p:{1} /u /s"), assemply.Location, product)
' Invoke the process
process.Start()
process.WaitForExit(timeout)
' Finish
Dim exitCode As Integer = process.ExitCode
process.Close()
If exitCode <> 0 Then
Throw New Exception(If(register, "ESRI registration failed", "ESRI unregistration failed"))
End If
End Sub
Final De La Clase
'===============================
-FINAL
gracias de nuevo, espero que este posts va a ayudar a aquellos que se encontrarán con el mismo problema en el futuro cercano.