金石博客 LVZZ BLOG

工具介紹：Thinstall

2008-06-11T20:55:13+08:00

作者：蔡學鏞

2004 年 9 月

軟體開發完畢，需要開始考慮到部署 (deployment) 的問題。部署往往不是一件簡單的事，有一些問題需要解決。早期，Java 尚未普及時，許多 Java 程式員都會面臨一個困擾，那就是：用 Java 開發出來的軟體，不保證可以在其他人的 PC 上執行，因為別人可能沒有安裝 JRE (Java Runtime Environment，Java 執行環境)。即使有安裝 JRE，JRE 的版本可能也不對。即使是現在，這個問題依然存在。

同樣地，.NET現在也遇到這個問題。目前，只有 Windows Server 2003 預先安裝好 .NET Framework，其他的作業系統都沒有預先安裝 .NET Framework。這會造成有些公司在評估開發工具時，會捨棄 .NET，而就 MFC，甚至回到 Win32 API，畢竟 MFC 和 Win32 的 DLL 在所有的 Windows 平台上都有。我常覺得這可稱為「舊技術不死，只是凋零」，凋零得還真慢呢！

如果讓安裝程式將 .NET Framework 附在其中，會造成一些問題：安裝 .NET Framework 時需要有足夠的權限，權限不夠則無法安裝。例如，Guest 帳戶無法存取 Registry，安裝 .NET Framework 需要存取 Registry。另外，體積也是一個大問題，.NET Framework 下載超過 20MB(安裝後超過100MB)。

幸好，有一些軟體廠商提供工具可以解決此問題，Thinstall 正是一個這樣的工具。在 .NET Framework 尚未普及的今日，這樣的工具更顯得重要。Thinstall 是 Jitit 公司的產品，你可以在 http://thinstall.com/ 找到它的資料，以及下載 30 天試用版。

顧名思義， Thinstall 是 Thin-Install 的意思，讓軟體免於安裝的困擾。利用 Thinstall ，可以將一個軟體的許多檔案包裝 (package) 成一個 EXE 檔，不需要解壓縮，不需要安裝 (install)，就可以直接執行。利用 Thinstall ，你可以將 .NET Framework 和你的程式，以及相關的檔案都包裝在一起，變成一個自給自足的 EXE 檔。

除了將 .NET Framework 包裝進 EXE 之外，Thinstall 還有一些額外的好處，包括了：

可以將 3rd Party 程式庫，以及相關的檔案，都包裝在一個 EXE 檔中，讓程式執行時，不會有檔案遺失的狀況。
Thinstall 使用的壓縮技術，壓縮比例可以比 ZIP 或 RAR 更高。
Thinstall 並不會將整個 .NET Framework 都包裝進 EXE，只把有使用到的部分包裝進 EXE，加上使用壓縮技術，這使得包裝出來的程式體積不大，一般都在 3~8MB 之間。
Thinstall 有使用加密技術，可以保障資料檔案不會輕易地被他人窺視與竄改，程式也更不容易被反編譯和反組譯。
Thinstall 整合安裝程式的功能，可以建立開始選單 (Start Menu) 與桌面捷徑 (Desktop Shortcut)。
Thinstall 可以讓軟體變成 30 天試用版 (Trial)。

使用 Thinstall 也不是全然沒有缺點，最明顯的缺點是，執行效率會或多或少受到影響，且浪費更多記憶體。我的經驗是，大多數的程式感覺不出效率變差，但某些用到特殊的技巧的程式，其效率的確變差了。另外，使用 Thinstall 時，必須考慮到法律的問題。因為 Thinstall 將許多程式庫都包裝進來，這些別人開發的程式庫 (包括.NET Framework) 是否可以隨著你的 EXE 而散播，Thinstall 的使用者需要好好研究其授權方式。

Thinstall 的使用方式非常容易，你可以在 Thinstall 的網站上看到用法介紹。較值得注意的是，Jitit 公司不希望 Thinstall 產品被不合法地盜用，所以對於 Thinstall 的保護相當嚴格。使用 Thinstall 時，電腦必須能上網，因為 Thinstall 需要連線到 License Server，來得知你是否為合法的用戶 (或試用戶)，否則將不能執行 Thinstall。你也可以向他們購買 USB 的 Key，就可以不用上網，離線使用 Thinstall。

Thinstall 可以利用PE檔案格式的 Import Table，以及利用 .NET Metadata Table 內記錄的資訊，來得知此程式使用了哪些 DLL，Thinstall 會自動加入這些 DLL，甚至連間接使用到的 DLL (也就是 DLL 所使用的 DLL)，也會被自動加入。但是，Thinstall 無法得知程式中利用 Win32 的 LoadLibrary() 或 .NET的Assembly.Load() 等API所動態載入的 DLL 有哪些，所以使用者必須自行將這些 DLL 加入到 Thinstall 中，以免包裝出來的 EXE 檔殘缺不全。

Thinstall 採用的機制相當巧妙，利用一個 Virtual OS 將程式和 OS 隔開來。如果你的程式是 .NET 程式，則在你的程式和 Virtual OS 之間，還有一個 .NET CLR，如圖 1 所示：

圖 1

如果你利用Thinstall來包裝.NET程式，那麼Thinstall所產生出來的EXE檔內，除了包含你的原始EXE檔之外，還有.NET Framework，以及Thinstall Virtual OS，如圖2所示。

圖 2

Thinstall Virtual OS 重新改寫了 300+ 個 Win 32 API，這些 API 大都是和檔案、Registry、Process 等有關。Virtual OS 內有自己的 Virtual File System 和 Virtual Registry。這些被改寫的 API，將 Virtual File System 和 Real File System 整合起來，成為一個新的 File System；將 Virtual Registry 和 Real Registry 整合起來，變成一個新的 Registry。

當系統載入此 Thinstall 包裝出來的 EXE 時，Virtual OS 會先被載入，Virtual OS 會接著載入原始的 EXE (以及.NET Framework)，然後解壓縮與解密、並該更改此 EXE(以及.NET Framework) 所使用到的這 300+ API，使其呼叫到 Virtual OS 的版本，而不是 Real OS 的版本。最後把執行權交給此 EXE。偷天換日的工作，於是完成！

因為 Thinstall 內部使用這套 Virtual OS 的機制，而不是針對 .NET 來設計一個專屬的機制，所以 Thinstall 除了用來包裝 .NET 程式，也可以用來包裝 Java 程式，甚至 VB，或其他程式。我覺得這是一套很方便的工具，值得您也試試。

平淡的新年断气的工作寂寥的日子

2008-02-27T10:09:28+08:00

2008的新年过去了，平台无奇，寂寥相当。先留下个位置，以后补上。

2008年上班第一个月，工作有了变化，也是占位待补。

完。

石城南京的暴雪

2008-01-28T11:28:30+08:00

风肆意的飞，雪无情的下，大地一片苍茫。

前天星期六，雪很大，路上不好走动，加班。昨天星期天，雪狂大，还不停的下，依然加班。今天一早起来，雪还是在下，风还是在刮，真是疯狂。预报说还要下几天，这应该是我这一生来看过最大的雪，暴雪。

昨夜加班到10点左右，徒步到新街口地铁站，短短的路上，见到好几个行人跌倒。一片路灯，霓虹灯，照射在茫茫白雪之上，白雪泛着薄弱的光辉，映的漫天都是白色的光芒，美景美景！厚厚的积雪，狠狠的压弯了梧桐树枝，不时的有树枝因为承受不住压力而有力的弹起，于是，一堆雪密集的摔下，在路灯的照映下，显得小有辉煌。那一堆雪，柔和的打在行人的头上，满头满身白色的行人却没有一丝懊恼，而且都很愉悦。路边常常看到一些雪人，有的做的很好看，常常有人停下来和雪人合影，都想留下这美丽的画面。走在路上，心里满是是温暖与舒坦，开阔和愉快。

新街口大洋百货门口，一群人在雪中驻足观望。几只小狗在雪中开心的跳跃，追着主人玩耍。我也禁不住，拿出手机拍了两张照片，可惜手机不是相机，拍的效果不好。

从安德门地铁站出来，美妙的心情就没有了，踏着厚厚的学，看到路边凌乱的停着几辆出租车，出租车都打着停运的标识，搞的我没车坐，于是想等公交车，结果想想，这个天还是不要指望公交车会出现了，还是坐小黑车吧，结果小黑车也不带，他们要跑远点的，钱可以多点。直接晕倒。我很不爽的问一辆停运的出租车：“还跑啊？”，结果他说：“跑怎么不跑的。”我很干脆的说：“铁心桥多少钱？”，他犹豫了一下，回答“30”，我：“走！”，就这样，在安德门晃悠了15分钟的我，终于上了出租车，一路上，我看到不少人在向铁心桥方向步行，想想，其实不是每个人都能这么慷慨的打车，慷慨的接受司机的黑刀的，人家宁愿走回去，也不愿意打车，有志气！一路车子滑到了水文所门口。

美妙的，又不美妙的一个下班旅途……

今天早晨，我按预想的，早起约半小时，洗漱完毕，早早出门，结果刚下楼就摔了个跟头，有点无语……

走到铁心桥主干道上，看到大路上全是人，都在等车，我犹豫了一会，往前走了点，到通往三江的十字路口，一路上看到的都是焦急等待的人，打电话说要迟点到的人，抢上出租车的人。在十字路口，等了约二十几分钟，一部能坐的车都没有，今天的大路，根本看不到路面，约有20公分的雪，压在路面上，一部部车就在路上滑行。好不容易，来了一辆空车，居然好像是我昨天上班坐的那辆车，依然是送到小行小区地铁站。一路上看到很多人徒步在行走，也有想拦我们车的，结果都很遗憾的发现我们车里已经坐满了。前面有辆卡车，很明显的看到卡车的后轮子在打滑。晃晃悠悠，就这样到了小行小区地铁站。

一路地铁过来新街口，不在话下。出了地铁站，发现雪更大了。我心里总嘀咕，这样大的雪，政府应该出台政策干预了，要么让企业放假，要么就把交通搞好。今天早上到公司，晨会宣布今天迟到不算，我今天迟到了不到5分钟，还算比较幸运了。呵呵。

好了不多写了咯……

去掉MSN的广告栏最绿色有效的办法

2008-01-04T12:41:00+08:00

最近在网上看到一位高人破解的MSN8.1方法觉得很是不错：

Windows Live Messenger 8.1去广告方法：

百度一个ResHacker或者Restorator软件，下载安装打开。
在C:\Program Files\MSN Messenger下面找到msgsres.dll文件。

一、去除主面板广告:打开4004-923号资源，查找里面的ID=Atom(SSConstrainer)
将其前面的layoutpos=top改为layoutpos=none。

二、去除聊天对话框广告:打开4004-920号资源，查找里面的id=atom(adbannergutter)
将其前面的layoutpos=bottom改为layoutpos=none。

XmlDocument如何转成XmlReader

2007-12-26T16:15:08+08:00

总是记不住XmlDocument如何转成XmlReader，很糟糕，还是记下来，省的以后又浪费时间琢磨。

            '转为XmlReader
            Public xmlstring As String
            Dim xd As New Xml.XmlDocument
            xd.LoadXml(xmlstring)
            Dim xmlr As Xml.XmlReader
            xmlr = Xml.XmlReader.Create(New IO.StringReader(xd.OuterXml))
            '转为DataTable
            Dim ds As New Data.DataSet
            ds.ReadXml(xmlr)
            Dim dt As System.Data.DataTable = ds.Tables("item")

总是记不住字符串如何转成BASE64编码，也记下：

        Dim cc As String = "字符串字符串"
        Dim bt() As Byte = System.Text.Encoding.Default.GetBytes(cc)
        Dim b64str As String = Convert.ToBase64String(bt)
        MessageBox.Show(b64str)

总是记不住图片如何转成BASE64编码，也记下：
                Dim PhotoBase64 As String
                If Not DocumentObj.TaxTempletDesign.BackgroundImage Is Nothing Then
                    Dim PhotoStream As New IO.MemoryStream
                    DocumentObj.TaxTempletDesign.BackgroundImage.Save(PhotoStream, Imaging.ImageFormat.Jpeg)
                    Dim PhotoByte() As Byte = PhotoStream.ToArray
                    PhotoBase64 = Convert.ToBase64String(PhotoByte)
                Else
                    PhotoBase64 = ""
                End If

炒股巨亏特做兼职

2007-11-15T14:10:12+08:00

因本人炒股巨亏，经济困难，特做兼职，有意者来电来函咨询，本人承接以下业务：

苦力搬运，装卸，车工，钳工，焊工，水电工，瓦工，砸墙，砌墙，筛沙，油漆，通下水道，贴瓷砖，拆洗油烟机，拆装空调，Vb，C++， .NET，C#，Java，j2ee， j2me，asp，delphi，php，汇编，PC游戏开发，网络游戏代练。网络维护管理,重装系统，电脑维修，三维建模，照片上色，平面设计，建筑效果图，flash动画，QQ挂级，硬件设计,电路板设计，单片机开发, 四六级替考，办证，代开发票，黑枪，黑车，暗杀，洗钱，要债，洗头，搓澡，按摩，刮痧,拔火罐，算命，割双眼皮......
另：本人长期代写小学生寒、暑假作业。替小学生欺负其他同学（年龄在10岁以下），代替学生父母开家会。

收费标准：
寒假作业:（48页1-3年级）25元
　　     （48页4-6年级）35元
暑假作业:（62页1-3年级）35元
　　　   （62页4-6年级）45元
欺负同学:（身高1.3m-1.4m）45元
　　　   （身高1.4m-1.6m）65元
　　　   （身高1.6m-1.8m）85元
　　　   （身高1.8m以上）价格面议
打老师：女老师（75元）
　　　　男老师（100元）
　　　　体育老师（价格面议）
代开家长会：一律50元

再次装反IIS和.NET FRAMWORK2.0的顺序

2007-09-29T17:50:31+08:00

新装电脑，一不小心就把IIS和.NET FRAMWORK2.0的顺序给装反了，装反了也罢，行内人就知道FW2.0在这种情况下是不向IIS注册自己的，这种事情也不是第一次碰到了，每次都是DOS重新注册。可是老是忘记路径，这次记下来吧：

C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\aspnet_regiis -u

C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\aspnet_regiis -i

再忘记就可以查到咯，呵呵。

ASP数据库连接以及查询

2007-08-27T13:37:30+08:00

<%
'该代码可以执行RS读取,以及其他任何单SQL语句(SQL不能用分号分开)
Set rs_cmd = Server.CreateObject ("ADODB.Command")
rs_cmd.ActiveConnection = "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("test.mdb")
rs_cmd.CommandText = "update Users set User_name='GGG' where User_id=1"
Set rs = rs_cmd.Execute
%>

<%
'该代码省略了可以执行RS读取,以及其他任何单SQL语句(SQL不能用分号分开)
Set rs_cmd = Server.CreateObject ("ADODB.Command")
rs_cmd.ActiveConnection = "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("test.mdb")
rs_cmd.CommandText = "update Users set User_name='GGG' where User_id=1"
rs_cmd.Execute
%>

<%
'该代码可以执行RS读取
Set conn = server.createobject("adodb.connection")
conn.open = "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("test.mdb")
Set rs = server.createobject("adodb.recordset")
rs.open "select * from users",Conn,2,2
%>

规则文件批量下载精灵

2007-07-06T00:20:20+08:00

常常在网上看到一些软件，因为由于论坛的限制，网网被上传者用RAR打包成一个个连续的小压缩包，摆成一长串，放在网络上。真的是很受不了一个一个点着去下载！

常常在网上看到一些漂亮的图片，习惯性的右键保存，或者索性用迅雷之类的下载工具来个批量下载，很可惜的是，迅雷只能支持一个变量，即只支持一个变动数字，或者同时变动相同的数字，并且，迅雷不会在批量下载的时候帮我把文件跟着网站的不同路径来把分文件夹摆放，全部放在一起不断的重名……

不想多说了，我想，没碰过以上情况的朋友可能认为这个软件没大价值！不过我敢说，碰过以上情况的朋友，一定会喜欢上它的。喜欢就来使用吧。它支持多线程，双变量（一般情况下也够用了吧），自动分文件夹，批量建立文件夹群等功能。不想再受下载工具约束的朋友，赶紧来试试吧。呵呵……

软件界面很通俗易懂，没有多余的TOOLTIP，一般的朋友都能看懂，如果有不会使用的朋友欢迎在此处提问。

软件名称: 规则文件批量下载精灵

运行环境:. WIN NT 操作系统 + .NET FRAMEWORK 2.0

注意：
使用规则文件批量下载精灵的计算机必须安装有微软的.net Framework 2.0，本站也提供下载。

软件性质: 完全免费

软件作用:批量下载网络上常见的成批规则文件，请注意预处理文件夹才能使得下载成功。支持多线程下载。

软件截图:

下载地址:

点击下载: 规则文件批量下载精灵

点击下载: .NET FRAMEWORK 2.0

VB.NET多线程开发实例

2007-07-04T02:09:10+08:00

VB.NET（Visual Basic.NET）是为适应Microsoft .NET框架的需要，对Visual Basic进行了重大改造后的开发工具。它比Visual Basic 6.0功能更强大，更易于使用。其中最重要的变化就是对象继承，在VB.NET中，所有可管理的类型都衍生自System.Object。作为编程工具，最重要的一个特性就是垃圾碎片的回收，它由CLR（Common Language Runtime）进行控制，并提供更好的内存管理功能。通用的类型定义可以提供更好的互操作性和协同工作能力，因此，VB.NET显得更强大、更具可靠性。在VB.NET中，大多数CLR内建的类型都在System名字空间里已经定义了。比如：System.Object, System.Int32, 和 System.String。要注意的是：一个名字空间可能嵌在另一个名字空间内，象System.Data里就有System.Data.DataSet的类。代表是CLR编程模型很重要的一个新概念。代表是一个特殊类型的可管理的类，当你创建一个代表的实例时，你必须提供一个带有匹配签名的方法执行的地址，一旦创建了一个代表的实例，调用方法将变的很容易。过去，我们利用VB开发多线程的应用程序时，是一件很令人痛苦的事，经常是多线程的程序运行是会变成多错误的程序！但在VB.NET中，这种状况已经大为改观。现在，我们利用VB.NET处理多线程和利用JAVA处理多线程一样简单了。下面我们就举个例子，来看看VB.NET的多线程吧！

下面是多线程程序threadtest.vb的代码：
　
imports System
imports System.Threading
　
public class AClass
　
public sub Method1()
Dim i as integer
For i = 1 to 100
Console.Writeline("这是类AClass方法method1的内容",i)
next
end sub
　
public sub Method2()
Dim i as integer
For i = 1 to 100
Console.Writeline("这是类AClass方法method2的内容",i)
next
end sub
　
end class
　
public class ThreadTest
　
public shared sub Main()
dim obj as new aclass
dim th1,th2 as thread
　
th1=new Thread(new ThreadStart(addressof obj.method1))
th1.start
　
th2=new Thread(new ThreadStart(addressof obj.method2))
th2.start
　
dim i as integer
For i= 1 to 100
Console.WriteLine("Main方法里的内容",i)
Next
end sub
　
end class
　
现在，来让我们剖析一下上面的例子：
1.我们创建了我们自己的类AClass，并创建了两个方法：Method1和Method2。
2.这两个方法很简单，只有一个For循环，向输出设备输出一些信息。
3.我们还定义了另外一个类ThreadTest来使用上面创建的类AClass。
4.在Main()方法中，我们创建了类Thread的实例。
5.类Thread可以在System.Threading名字空间里得到，它定义了处理线程的属性和方法。
6.在类Thread的构造器中，我们使用了类ThreadStart，类ThreadStart是一个代表，标志着当一个线程开始时就开始执行定义的方法。
7.为了执行定义的方法，我们实际调用的是线程的Start()方法。
8用VBC来编译上面的程序： vbc /out:threadtest.exe threadtest.vb
9.运行编译后的程序，我们将会看到我们定义的两个方法和main()方法的混合输出，这就说明每一个方法都在自己的线程下运行。
10.除了上面的方法，线程还有下面常用的方法：
Stop():停止线程的运行。
Suspend()：暂停线程的运行。
Resume()：继续线程的运行。
Sleep()：停止线程一段时间（单位为毫秒）。
　
上面只是VB.NET多线程的一个简单的例子，希望对大家有所启发！