AVEVE MARINE 二次开发之插件管理器

由于AVEVA 的产品部署插件比较麻烦，随机想到开发一个插件管理器

选择模块用来管理该模块的插件和自定义菜单

根据插件的部署原理

1.从注册表读取PDMS产品的安装路径

我用的是AM所以我写死了注册表路径

插件一般2个文件一个是dll文件，一个是菜单文件，uic是复制的模板然后进入AM修改的，这样便于部署，后期熟悉了可以根据反射写uic文件

 

Imports System.IO
 
Imports Microsoft.Win32
 
Public Class Form1
    Public AMinfor As AvevaMarinInfor
    Public AmAddin As PDMSAddin
 
    Public Const AmregPath As String = "SOFTWARE\WOW6432Node\AVEVA Solutions Ltd\Marine\12.14"
    Public ModuleNameAddin As New List(Of String)
    Public ModuleNameCustomization As New List(Of String)
    Public Const 模块自定义菜单后缀 As String = "Customization.xml"
    Public Const 模块插件后缀 As String = "Addins.xml"
    Public CurModuleName As String
    Public InstalledCurModuleAddins As List(Of String)
    Public InstalledCurModuleUics As List(Of PDMSAddinUic)
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim amReg = My.Computer.Registry.LocalMachine.OpenSubKey(AmregPath)
        If amReg IsNot Nothing Then
            Me.AMinfor = New AvevaMarinInfor(amReg)
            Dim di As New DirectoryInfo(Me.AMinfor.InstallPath)
            Me.ModuleNameAddin.AddRange(di.GetFiles("*Addins.xml").Select(Of String)(Function(c) c.Name.Replace(模块插件后缀， vbNullString)))
            Me.ComboBox1.Items.AddRange(Me.ModuleNameAddin.ToArray())
        End If
    End Sub
 
    ''' <summary>
    ''' 选择插件
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnOpen.Click
        Dim ofd As New OpenFileDialog() With {.InitialDirectory = Application.StartupPath,
        .Filter = "C# or VbNet AM dll file (*.dll)|*.dll",
        .FilterIndex = 2, .RestoreDirectory = True, .Multiselect = False
        }
        If ofd.ShowDialog() = DialogResult.OK Then
            Me.AmAddin = New PDMSAddin(New IO.FileInfo(ofd.FileName))
            Me.Text += "(" & Me.AmAddin.dllName & ")"
            Me.TextBox1.Text = ofd.FileName
            If Me.InstalledCurModuleAddins.Any(Function(c) Path.GetFileName(c) = Path.GetFileNameWithoutExtension(Me.AmAddin.dllName)) Then
                '检查dll的配置
                'MessageBox.Show($"插件{Path.GetFileNameWithoutExtension(Me.AmAddin.dllName)}已经存在请确认继续安装！")
                Dim curAddin = Me.InstalledCurModuleAddins.FirstOrDefault(Function(c) c.EndsWith(Path.GetFileNameWithoutExtension(Me.AmAddin.dllName)))
                Dim index = Me.CheckedListBox1.Items().IndexOf(curAddin)
                Me.CheckedListBox1.SetItemChecked(index, True)
                '检查uic的配置
                If Me.InstalledCurModuleUics.Any(Function(c) Path.GetFileName(c.Dir) = Me.AmAddin.UicName) Then
                    Dim curAddinUic = Me.InstalledCurModuleUics.FirstOrDefault(Function(c) Path.GetFileName(c.Dir) = Me.AmAddin.UicName)
                    Dim index1 = Me.CheckedListBox2.Items().IndexOf(curAddinUic.Dir)
                    Me.CheckedListBox2.SetItemChecked(index1, True)
                End If
            End If
        End If
 
    End Sub
 
    ''' <summary>
    '''删除插件
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub BtnDeleteAddin_Click(sender As Object, e As EventArgs) Handles BtnDelete.Click
        If Me.CheckedListBox1.SelectedItems.Count > 0 Then
            Dim hulldesignaddinxml = Path.Combine(Me.AMinfor.InstallPath, CurModuleName & 模块插件后缀)
            'Dim sb As New StringBuilder()
            Using fs As New FileStream(hulldesignaddinxml, FileMode.Open, FileAccess.ReadWrite)
                Dim xmldoc As New Xml.XmlDocument()
                xmldoc.Load(fs)
                For Each item As Xml.XmlElement In xmldoc.LastChild.ChildNodes
                    If Me.CheckedListBox1.SelectedItems.Contains(item.FirstChild.Value) Then
                        Me.InstalledCurModuleAddins.Remove(item.FirstChild.Value)
                        Me.CheckedListBox1.Items.Remove(item.FirstChild.Value)
                        MsgBox($"删除插件 {item.FirstChild.Value}成功！", MsgBoxStyle.Information + MsgBoxStyle.OkOnly)
                        item.ParentNode.RemoveChild(item)
                    End If
                Next
 
                fs.Close()
                'xmldoc.PreserveWhitespace = True
                xmldoc.Save(hulldesignaddinxml)
            End Using
 
        End If
 
        If Me.CheckedListBox2.SelectedItems.Count > 0 Then
            Dim hulldesignuic = Path.Combine(Me.AMinfor.InstallPath, CurModuleName & 模块自定义菜单后缀)
            'Dim sb As New StringBuilder()
            Using fs As New FileStream(hulldesignuic, FileMode.Open, FileAccess.ReadWrite)
                Dim xmldoc As New Xml.XmlDocument()
                xmldoc.Load(fs)
                For Each item As Xml.XmlElement In xmldoc.LastChild.FirstChild.ChildNodes
                    If Me.CheckedListBox2.SelectedItems.Contains(item.GetAttributeNode("Path").Value) Then
                        Dim curUic = Me.InstalledCurModuleUics.FirstOrDefault(Function(c) c.Dir = item.GetAttributeNode("Path").Value)
                        Me.InstalledCurModuleUics.Remove(curUic)
                        Me.CheckedListBox2.Items.Remove(curUic.Dir)
                        item.ParentNode.RemoveChild(item)
                        MsgBox($"删除菜单组 {curUic.Dir}成功！", MsgBoxStyle.Information + MsgBoxStyle.OkOnly)
                    End If
                Next
                fs.Close()
                'xmldoc.PreserveWhitespace = True
                xmldoc.Save(hulldesignuic)
 
            End Using
            'Me.CheckedListBox2.Items.AddRange(Me.InstalledHullDesignAddins.ToArray())
        End If
    End Sub
 
    ''' <summary>
    ''' 安装插件
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub BtnInstallAddin_Click(sender As Object, e As EventArgs) Handles btnInstall.Click
 
        '插入插件的dll的配置
        Dim hulldesignaddinxml = Path.Combine(Me.AMinfor.InstallPath, CurModuleName & 模块插件后缀)
        'Dim sb As New StringBuilder()
        Dim addinName = Me.TextBox1.Text.Replace(".dll", "")
 
        Using fs As New FileStream(hulldesignaddinxml, FileMode.Open, FileAccess.ReadWrite)
            Dim xmldocAddin As New Xml.XmlDocument()
            xmldocAddin.Load(fs)
            '插入节点
            If Me.InstalledCurModuleAddins.Contains(addinName) Then
                For Each item As Xml.XmlElement In xmldocAddin.LastChild.ChildNodes
                    If item.FirstChild.Value = addinName Then
                        Dim curNode As Xml.XmlElement = item
                        curNode.FirstChild.Value = addinName
                    End If
                Next
            Else
                Dim curNode As Xml.XmlNode = xmldocAddin.CreateElement("string")
                Dim curNode1 As Xml.XmlNode = xmldocAddin.CreateTextNode(addinName)
                curNode.AppendChild(curNode1)
                xmldocAddin.LastChild.AppendChild(curNode)
            End If
            fs.Close()
            'xmldoc.PreserveWhitespace = True
            xmldocAddin.Save(hulldesignaddinxml)
            Me.InstalledCurModuleAddins.Add(addinName)
            Me.CheckedListBox1.Items.Add(addinName)
            Me.CheckedListBox1.SetItemChecked(Me.CheckedListBox1.Items.Count - 1, True)
            MsgBox($"安装插件 {addinName}成功！", MsgBoxStyle.Information + MsgBoxStyle.OkOnly)
        End Using
 
        If Me.AmAddin.UicName <> String.Empty Then
 
            Dim xmldocUic As New Xml.XmlDocument()
            Dim hulldesignuic = Path.Combine(Me.AMinfor.InstallPath, CurModuleName & 模块自定义菜单后缀)
            Dim addinUicName = Path.ChangeExtension(Me.TextBox1.Text, ".uic")
 
            Using fs As New FileStream(hulldesignuic, FileMode.Open, FileAccess.ReadWrite)
                xmldocUic.Load(fs)
                '插入节点
                If Me.InstalledCurModuleUics.Any(Function(c) c.Dir = addinUicName) Then
                    For Each item As Xml.XmlNode In xmldocUic.LastChild.FirstChild.ChildNodes
                        If item.Attributes.GetNamedItem("Path").Value = addinUicName Then
                            Dim curEle As Xml.XmlElement = item
                            curEle.SetAttribute("Name", Path.GetFileNameWithoutExtension(addinUicName))
                            curEle.SetAttribute("Path", addinUicName)
                            Exit For
                        End If
                    Next
                Else
                    Dim curElement As Xml.XmlElement = xmldocUic.CreateElement("CustomizationFile")
                    curElement.SetAttribute("Name", Path.GetFileNameWithoutExtension(addinUicName))
                    curElement.SetAttribute("Path", addinUicName)
                    xmldocUic.LastChild.FirstChild.AppendChild(curElement)
                End If
 
                fs.Close()
                'xmldoc.PreserveWhitespace = True
                xmldocUic.Save(hulldesignuic)
                Me.InstalledCurModuleUics.Add(New PDMSAddinUic() With {.Dir = addinUicName, .UicName = Path.GetFileNameWithoutExtension(addinUicName)})
                Me.CheckedListBox2.Items.Add(addinUicName)
                Me.CheckedListBox2.SetItemChecked(Me.CheckedListBox2.Items.Count - 1, True)
                MsgBox($"安装插件菜单 {addinUicName}成功！", MsgBoxStyle.Information + MsgBoxStyle.OkOnly)
            End Using
        End If
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        If Me.ComboBox1.SelectedIndex <> -1 Then
            Me.CheckedListBox1.Items.Clear()
            Me.CheckedListBox2.Items.Clear()
            Me.CurModuleName = Me.ComboBox1.Text
            Me.InstalledCurModuleAddins = New List(Of String)()
            Me.InstalledCurModuleUics = New List(Of PDMSAddinUic)()
            Me.Text = Me.CurModuleName & " 插件管理器"
            Me.btnInstall.Text = "给 " & Me.CurModuleName & " 模块安装插件"
            Me.BtnDelete.Text = "从 " & Me.CurModuleName & " 模块卸载插件"
            Dim hulldesignaddinxml = Path.Combine(Me.AMinfor.InstallPath, Me.CurModuleName & 模块插件后缀)
            'Dim sb As New StringBuilder()
            Using fs As New FileStream(hulldesignaddinxml, FileMode.Open, FileAccess.Read)
                Dim xmldoc As New Xml.XmlDocument()
                xmldoc.Load(fs)
                For Each item As Xml.XmlElement In xmldoc.LastChild.ChildNodes
                    Me.InstalledCurModuleAddins.Add(item.FirstChild.Value)
                Next
                fs.Close()
            End Using
            Me.CheckedListBox1.Items.AddRange(Me.InstalledCurModuleAddins.ToArray())
            Dim hulldesignuic = Path.Combine(Me.AMinfor.InstallPath, Me.CurModuleName & 模块自定义菜单后缀)
            Using fs As New FileStream(hulldesignuic, FileMode.Open, FileAccess.Read)
                Dim xmldoc As New Xml.XmlDocument()
                xmldoc.Load(fs)
                For Each item As Xml.XmlElement In xmldoc.LastChild.FirstChild.ChildNodes
                    Dim uic As New PDMSAddinUic With {.UicName = item.GetAttributeNode("Name").Value, .Dir = item.GetAttributeNode("Path").Value}
                    Me.InstalledCurModuleUics.Add(uic)
                Next
                fs.Close()
            End Using
            Me.CheckedListBox2.Items.AddRange(Me.InstalledCurModuleUics.Select(Function(c As PDMSAddinUic) c.Dir).ToArray())
        End If
    End Sub
End Class
 
Public Class AvevaMarinInfor
    Public Ver As String
    Public ProductName As String
    Public ProductVersion As String
    Public InstallPath As String
    Public Sub New(regKey As RegistryKey)
        If regKey Is Nothing Then
            Throw New ArgumentNullException(NameOf(regKey))
        End If
        Me.Ver = regKey.ToString()
        Me.ProductVersion = regKey.GetValue("ProductVersion")
        Me.InstallPath = regKey.GetValue("Path")
        Me.ProductName = regKey.GetValue("ProductName")
    End Sub
End Class
 
Public Class PDMSAddin
    Public dllName As String
    Public UicName As String
    Public Dir As String
    Public Sub New(fi As System.IO.FileInfo)
        If fi Is Nothing Then
            Throw New ArgumentNullException(NameOf(fi))
        End If
 
        Dim curDir = fi.Directory
        Me.Dir = curDir.FullName
        Me.dllName = fi.Name
        Dim fls = curDir.GetFiles(IO.Path.ChangeExtension(fi.Name, ".uic"))
        If fls.Count() = 1 Then
            Me.UicName = fls.FirstOrDefault().Name
        End If
    End Sub
End Class
Public Structure PDMSAddinUic
    Public UicName As String
    Public Dir As String
End Structure