VB.NET 把引用的DLL打包到exe里面,制作绿色软件

  今天以大家常用DLL'Newtonsoft.Json'为例给大家做个示范;

• 1、第一步新建项目

• 2、第二步,新建项目后,在窗体添加一个按钮Button和两个富文本框RichTextBox

• 3、第三步,VS->工具->NuGet包管理器->管理解决方案的NuGet 程序包->浏览->搜索（Newtonsoft）->安装第1个即可

• 4、第四步,在项目引用里面找到Newtonsoft引用然后把属性“复制到本地改为False”

• 5、第五步,在项目上面右击鼠标打开项目属性

• 6、第六步,在项目属性->资源->添加资源->添加现有文件；然后在项目目录packages->Newtonsoft.Json.13.0.1->lib->net45(根据项目框架选择)->Newtonsoft.Json.dll选择对应的dll文件添加到资源里面

• 7、第七步,编写测试代码

添加要格式化的json字符串

{“status”:1,“totalcount”:2,“list”:[{“id”:“2305b1e2-4e31-4fd3-8eb6-db57641914df”,“code”:“8147056167227050270”,“title”:“testing”,“type”:“产品”,“status”:“已处理”,“datetime”:“2014-07-12T21:16:46”,“replycontent”:“好的，只是测试”},
{“id”:“3a6546f6-49a7-4a17-b679-b3812b12b27e”,“code”:“8147056167227050269”,“title”:“我建议龙头有多种选配方式”,“type”:“产品”,“status”:“未处理”,“datetime”:“2014-07-12T18:49:08.933”,“replycontent”:''},
{“id”:“f735e461-ca72-4b44-8d7b-cd97ac09802f”,“code”:“8147056167227050268”,“title”:“这个产品不怎么好，不好用”,“type”:“产品”,“status”:“未处理”,“datetime”:“2014-07-12T15:06:19.1”,“replycontent”:''},
{“id”:“15926d9d-f469-4921-b01d-4b48ef8bd93d”,“code”:“7141054273018032465”,“title”:“jdjbcn”,“type”:“服务”,“status”:“未处理”,“datetime”:“2014-05-27T01:03:46.477”,“replycontent”:''},
{“id”:“1debf78f-42b3-4037-b71f-34075eed92bc”,“code”:“4141051277003536211”,“title”:“jdjbxn.x”,“type”:“服务”,“status”:“未处理”,“datetime”:“2014-05-27T00:53:21.18”,“replycontent”:''},
{“id”:“27593c52-b327-4557-8106-b9156df53909”,“code”:“1143051276001357050”,“title”:“ghggghh”,“type”:“服务”,“status”:“未处理”,“datetime”:“2014-05-27T00:35:05.933”,“replycontent”:''},
{“id”:“040198fc-b466-46c1-89d8-0514fbde9480”,“code”:“4142053251166372433”,“title”:“你好，你知道啦，我不喜欢白色浴缸”,“type”:“服务”,“status”:“未处理”,“datetime”:“2014-05-25T16:37:43.853”,“replycontent”:''},
{“id”:“16185418-d461-4e98-83c3-824eb7e344d6”,“code”:“4145058213013197148”,“title”:“hdjbchh”,“type”:“服务”,“status”:“未处理”,“datetime”:“2014-05-21T01:19:14.903”,“replycontent”:''},
{“id”:“6c043404-c1db-42e8-adeb-d4880fa7d1b5”,“code”:“0142051185128085372”,“title”:“ghhjdhd”,“type”:“服务”,“status”:“未处理”,“datetime”:“2014-05-18T12:08:37.997”,“replycontent”:''},
{“id”:“2dca1a38-a32b-4955-a99c-2ed7d6de60fa”,“code”:“3146050186122030382”,“title”:“hsibcn”,“type”:“服务”,“status”:“未处理”,“datetime”:“2014-05-18T12:03:38.913”,“replycontent”:''}]}

json格式化vb代码

    ''' <summary>
    ''' 格式化JSON字符串
    ''' </summary>
    ''' <param name='str'></param>
    ''' <returns></returns>
    Private Function ConvertJsonString(str As String) As String
        Dim serializer As New JsonSerializer()
        Dim tr As TextReader = New StringReader(str)
        Dim jtr As New JsonTextReader(tr)
        Dim obj As Object = serializer.Deserialize(jtr)
        If obj IsNot Nothing Then
            Dim textWriter As New StringWriter()
            Dim jsonWriter As New JsonTextWriter(textWriter) With {
                .Formatting = Formatting.Indented,
                .Indentation = 4,
                .IndentChar = ' 'c
            }
            serializer.Serialize(jsonWriter, obj)
            Return textWriter.ToString()
        Else
            Return str
        End If
    End Function

• 8、第八步,加载资源中DLL代码重点来咯

Public Sub New()
''加载DLL到exe的事件
AddHandler AppDomain.CurrentDomain.AssemblyResolve, New ResolveEventHandler(AddressOf CurrentDomain_AssemblyResolve)
InitializeComponent()
End Sub


''' <summary>
''' 把DLL加载到EXE中
''' </summary>
''' <param name='sender'></param>
''' <param name='args'></param>
''' <returns></returns>
Private Function CurrentDomain_AssemblyResolve(sender As Object, args As ResolveEventArgs) As System.Reflection.Assembly
Dim dllName As String = If(args.Name.Contains(','), args.Name.Substring(0, args.Name.IndexOf(','c)), args.Name.Replace('.dll', ''))
dllName = dllName.Replace('.', '_')
If dllName.EndsWith('_resources') Then
Return Nothing
End If
Dim rm As New System.Resources.ResourceManager([GetType].Namespace & '.Resources', System.Reflection.Assembly.GetExecutingAssembly())
Dim bytes As Byte() = DirectCast(rm.GetObject(dllName), Byte())
Return System.Reflection.Assembly.Load(bytes)
End Function

• 9、完整实现代码

Imports System.IO
Imports Newtonsoft.Json

Public Class Form1

    Public Sub New()
        ''加载DLL到exe的事件
        AddHandler AppDomain.CurrentDomain.AssemblyResolve, New ResolveEventHandler(AddressOf CurrentDomain_AssemblyResolve)
        InitializeComponent()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        RichTextBox2.Text = ConvertJsonString(RichTextBox1.Text)
    End Sub
    ''' <summary>
    ''' 把DLL加载到EXE中
    ''' </summary>
    ''' <param name='sender'></param>
    ''' <param name='args'></param>
    ''' <returns></returns>
    Private Function CurrentDomain_AssemblyResolve(sender As Object, args As ResolveEventArgs) As System.Reflection.Assembly
        Dim dllName As String = If(args.Name.Contains(','), args.Name.Substring(0, args.Name.IndexOf(','c)), args.Name.Replace('.dll', ''))
        dllName = dllName.Replace('.', '_')
        If dllName.EndsWith('_resources') Then
            Return Nothing
        End If
        Dim rm As New System.Resources.ResourceManager([GetType].Namespace & '.Resources', System.Reflection.Assembly.GetExecutingAssembly())
        Dim bytes As Byte() = DirectCast(rm.GetObject(dllName), Byte())
        Return System.Reflection.Assembly.Load(bytes)
    End Function

    ''' <summary>
    ''' 格式化JSON字符串
    ''' </summary>
    ''' <param name='str'></param>
    ''' <returns></returns>
    Private Function ConvertJsonString(str As String) As String
        Dim serializer As New JsonSerializer()
        Dim tr As TextReader = New StringReader(str)
        Dim jtr As New JsonTextReader(tr)
        Dim obj As Object = serializer.Deserialize(jtr)
        If obj IsNot Nothing Then
            Dim textWriter As New StringWriter()
            Dim jsonWriter As New JsonTextWriter(textWriter) With {
                .Formatting = Formatting.Indented,
                .Indentation = 4,
                .IndentChar = ' 'c
            }
            serializer.Serialize(jsonWriter, obj)
            Return textWriter.ToString()
        Else
            Return str
        End If
    End Function
End Class