關於VS.Net應用的圖示提取方法

.Net的資原始檔

        VS.Net 支援三種檔案型別的resource：.txt、.resx、.resources。

system.resources 名字空間支援三種資原始檔：

• • txt 檔案，只能有字串資源。因為不能被嵌入到 assembly 中，所以非常容易暴露，被客戶修改。最大缺點是僅支援字串資源，所以不推薦使用。
  • .resx 檔案，由 xml 組成，能加入所有資源，包括二進位制。同樣不能被嵌入到 assembly 中。在 system.resources 名字空間中有專用讀寫的類。vs.net 建立這種檔案然後將其轉成 .resources 檔案並根據設定將其嵌入到 assembly 中。
  • .resources 檔案，pe 格式，能加入所有資源。唯一能被嵌入到 assembly 的檔案，在 system.resources 名字空間中有專用讀寫的類。

1. 把resx檔案通過vs加入到.net工程中後，編譯完成時，它會被轉化為resources檔案並embed到assembly中。
2. System.resources.resourceManager負責讀取.net assembly中嵌入的resources檔案中的資源資訊。
3. 三種檔案型別，必須要轉為resources檔案，才能被resourcemanager讀取（顯然的）。ResGen.exe主要完成此項工作。
4. C++/CLI, vb.net, c#，大家都可以用resx檔案是自然的。只不過在Vs裡新增resx檔案時，c#工程要支援的更完備些：直接替你封裝好了對resourcemanager的使用。
5. 推薦工具

• • resgen.exe：sdk 中的工具，專門用來做資原始檔型別之間的轉換。支援 .txt <-> .resx <-> .resources 之間的轉換。
  • resourcer：專門用來建立資原始檔，簡單易用，支援 .resx 和 .resources 檔案格式。
  • .net reflector：用來瀏覽 assembly。如果你不確定一個資原始檔的完整名時能用這個工具在 assembly 中檢視。

ResX資原始檔中圖示的提取

    ResX檔案中，是將所有資源（包括二進位制）都寫入到XML檔案中，每個圖示不再以獨立檔案的形式存在。在程式設計工程中，尤其在學習、分析現有.Net應用程式過程中，需要提取現有應用程式中的圖示。基本思路是利用工具軟體，將應用程式的資原始檔提取出來（具體方法可以進行網上搜尋），生成resx或resources檔案。當生成resources檔案時，可以利用resgen.exe進行格式轉換。

    通過對resx檔案格式分析，開發了針對resx格式檔案的圖示提取工具，本工具的具體程式碼如下：

介面設計程式碼：

 

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmMain
    Inherits System.Windows.Forms.Form

    'Form 重寫 Dispose，以清理元件列表。
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    'Windows 窗體設計器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下過程是 Windows 窗體設計器所必需的
    '可以使用 Windows 窗體設計器修改它。  
    '不要使用程式碼編輯器修改它。
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
        Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
        Me.ListView1 = New System.Windows.Forms.ListView()
        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
        Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
        Me.FleToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.mnuFileOpen = New System.Windows.Forms.ToolStripMenuItem()
        Me.mnuFileExport = New System.Windows.Forms.ToolStripMenuItem()
        Me.mnuFileExit = New System.Windows.Forms.ToolStripMenuItem()
        Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
        Me.MenuStrip1.SuspendLayout()
        Me.SuspendLayout()
        '
        'ImageList1
        '
        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
        Me.ImageList1.Images.SetKeyName(0, "bmp00002.bmp")
        Me.ImageList1.Images.SetKeyName(1, "")
        Me.ImageList1.Images.SetKeyName(2, "")
        Me.ImageList1.Images.SetKeyName(3, "")
        Me.ImageList1.Images.SetKeyName(4, "")
        Me.ImageList1.Images.SetKeyName(5, "")
        Me.ImageList1.Images.SetKeyName(6, "")
        Me.ImageList1.Images.SetKeyName(7, "")
        Me.ImageList1.Images.SetKeyName(8, "")
        Me.ImageList1.Images.SetKeyName(9, "")
        Me.ImageList1.Images.SetKeyName(10, "")
        Me.ImageList1.Images.SetKeyName(11, "")
        Me.ImageList1.Images.SetKeyName(12, "")
        Me.ImageList1.Images.SetKeyName(13, "")
        Me.ImageList1.Images.SetKeyName(14, "")
        '
        'ListView1
        '
        Me.ListView1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.ListView1.HideSelection = False
        Me.ListView1.LargeImageList = Me.ImageList1
        Me.ListView1.Location = New System.Drawing.Point(0, 25)
        Me.ListView1.Name = "ListView1"
        Me.ListView1.Size = New System.Drawing.Size(763, 544)
        Me.ListView1.SmallImageList = Me.ImageList1
        Me.ListView1.TabIndex = 3
        Me.ListView1.UseCompatibleStateImageBehavior = False
        Me.ListView1.View = System.Windows.Forms.View.SmallIcon
        '
        'OpenFileDialog1
        '
        Me.OpenFileDialog1.FileName = "OpenFileDialog1"
        '
        'MenuStrip1
        '
        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FleToolStripMenuItem})
        Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
        Me.MenuStrip1.Name = "MenuStrip1"
        Me.MenuStrip1.Size = New System.Drawing.Size(763, 25)
        Me.MenuStrip1.TabIndex = 4
        Me.MenuStrip1.Text = "MenuStrip1"
        '
        'FleToolStripMenuItem
        '
        Me.FleToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuFileOpen, Me.mnuFileExport, Me.mnuFileExit})
        Me.FleToolStripMenuItem.Name = "FleToolStripMenuItem"
        Me.FleToolStripMenuItem.Size = New System.Drawing.Size(36, 21)
        Me.FleToolStripMenuItem.Text = "&Fle"
        '
        'mnuFileOpen
        '
        Me.mnuFileOpen.Name = "mnuFileOpen"
        Me.mnuFileOpen.Size = New System.Drawing.Size(180, 22)
        Me.mnuFileOpen.Text = "&Open"
        '
        'mnuFileExport
        '
        Me.mnuFileExport.Name = "mnuFileExport"
        Me.mnuFileExport.Size = New System.Drawing.Size(180, 22)
        Me.mnuFileExport.Text = "&Export..."
        '
        'mnuFileExit
        '
        Me.mnuFileExit.Name = "mnuFileExit"
        Me.mnuFileExit.Size = New System.Drawing.Size(180, 22)
        Me.mnuFileExit.Text = "e&Xit"
        '
        'frmMain
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(763, 569)
        Me.Controls.Add(Me.ListView1)
        Me.Controls.Add(Me.MenuStrip1)
        Me.MainMenuStrip = Me.MenuStrip1
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "frmMain"
        Me.Text = "Export Images From ImageList"
        Me.MenuStrip1.ResumeLayout(False)
        Me.MenuStrip1.PerformLayout()
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub

    Friend WithEvents ImageList1 As ImageList
    Friend WithEvents ListView1 As ListView
    Friend WithEvents OpenFileDialog1 As OpenFileDialog
    Friend WithEvents MenuStrip1 As MenuStrip
    Friend WithEvents FleToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents mnuFileOpen As ToolStripMenuItem
    Friend WithEvents mnuFileExport As ToolStripMenuItem
    Friend WithEvents mnuFileExit As ToolStripMenuItem
    Friend WithEvents FolderBrowserDialog1 As FolderBrowserDialog
End Class

       程式程式碼：

Imports System.Resources
Imports Microsoft.VisualBasic.CompilerServices
Public Class frmMain
    Private Sub mnuFileOpen_Click(sender As Object, e As EventArgs) Handles mnuFileOpen.Click
        Me.OpenFileDialog1 = New OpenFileDialog
        Me.OpenFileDialog1.DefaultExt = "resx"
        Me.OpenFileDialog1.AddExtension = True
        Me.OpenFileDialog1.Filter = ("Microsoft.Net managed Resource File") + " (*.resx)|*.resx"
        Me.OpenFileDialog1.FilterIndex = 1
        If Me.OpenFileDialog1.ShowDialog() = DialogResult.OK AndAlso Operators.CompareString(Me.OpenFileDialog1.FileName, "", False) <> 0 Then
            filename = Me.OpenFileDialog1.FileName
            mnuFileExport.Enabled = True
            Dim rsxr As ResXResourceReader = New ResXResourceReader(filename)
            Dim resxSet As New ResXResourceSet(filename)
            Dim d As DictionaryEntry
            Dim n As Integer = 0
            For Each d In rsxr
                If Operators.CompareString(d.Value.ToString(), "System.Drawing.Bitmap", False) = 0 Then
                    Console.WriteLine(d.Key.ToString() + ":" + ControlChars.Tab + "'" + d.Value.ToString() + "'")
                    Dim image As Bitmap = CType(resxSet.GetObject(d.Key.ToString(), True), Bitmap)
                    If image IsNot Nothing Then
                        ImageList1.Images.Add(image)
                        ListView1.Items.Add(New ListViewItem(n.ToString(), n))
                        n += 1
                    End If
                End If
            Next d
            rsxr.Close()
        End If
    End Sub
    Private filename As String = ""
    Private Sub mnuFileExport_Click(sender As Object, e As EventArgs) Handles mnuFileExport.Click
        If Operators.CompareString(filename, "", False) <> 0 Then
            Me.FolderBrowserDialog1.SelectedPath = "C:\"
            Me.FolderBrowserDialog1.Description = "選擇儲存圖示的目錄"
            If Me.FolderBrowserDialog1.ShowDialog() = DialogResult.OK AndAlso Operators.CompareString(Me.FolderBrowserDialog1.SelectedPath, "", False) <> 0 Then
                Dim rsxr As ResXResourceReader = New ResXResourceReader(filename)
                Dim resxSet As New ResXResourceSet(filename)
                Dim d As DictionaryEntry
                For Each d In rsxr
                    If Operators.CompareString(d.Value.ToString(), "System.Drawing.Bitmap", False) = 0 Then
                        Console.WriteLine(d.Key.ToString() + ":" + ControlChars.Tab + "'" + d.Value.ToString() + "'")
                        Dim image As Bitmap = CType(resxSet.GetObject(d.Key.ToString(), True), Bitmap)
                        If image IsNot Nothing Then
                            image.Save(Me.FolderBrowserDialog1.SelectedPath + "\" + d.Key.ToString() + ".bmp")
                        End If
                    End If
                Next d
                rsxr.Close()
            End If
        End If
    End Sub
    Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        mnuFileExport.Enabled = (Operators.CompareString(filename, "", False) <> 0)
    End Sub
End Class

 

 

   程式執行後，通過File-Open載入resx資原始檔，圖示將列在ListView控制元件中，介面如下：

 

    通過File——Export...選擇目標目錄，將圖示匯出到指定目錄。

另外，針對System.Drawing.Icon、ImageList的ImageStream也可以進行相應處理，程式碼如下：

                If Operators.CompareString(d.Value.ToString(), "System.Drawing.Icon", False) = 0 Then
                    Dim image As Icon = CType(resxSet.GetObject(d.Key.ToString(), True), Icon)
                    If image IsNot Nothing Then
                        ImageList1.Images.Add(image)
                        ListView1.Items.Add(New ListViewItem(n.ToString(), n))
                        n += 1
                    End If
                End If
                If Operators.CompareString(d.Key.ToString(), "ImageList1.ImageStream", False) = 0 Then
                    imgList.ImageStream = CType(resxSet.GetObject(d.Key.ToString(), True), System.Windows.Forms.ImageListStreamer)
                    For i As Integer = 0 To imgList.Images.Count - 1
                        ImageList1.Images.Add(imgList.Images(i))
                        ListView1.Items.Add(New ListViewItem(n.ToString(), n))
                        n += 1
                    Next
                End If

其中，可以輸入ImageList控制元件名稱，來選擇具體解析物件。