注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

naigeer的知识库

不断学习,用知识武装头脑,用头脑创造未来!

 
 
 

日志

 
 

[转载]探索VB资源编辑器的奥秘  

2007-11-30 14:21:26|  分类: 编程系列 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
一、资源的概念
1.什么是资源
资源(Resource)可以视作一个程序携带的除了代码和窗体的额外数据,它像一个EXE的plugin和database,可以包含文本、图片、鼠标、光标、二进制数据等,几乎所有的Windows应用程序中都拥有资源,例如最常见的MFC程序,用eXeScope打开可以看到“资源段”,从这里也可以看出,资源和EXE代码段是分开的,EXE启动时并不一定需要加载它,而是在程序里通过一定语句读取处理,因此使用资源也能提高程序的效率。资源的文件载体通常以.RC(VC++)或.RES(VB)存在于存储介质上。

2.使用VB的资源编辑器
资源在VC编程里是很常见的了,可是在VB编程里,依然有很多人不知道这个功能,相不相信?其实它就藏在VB的“工具”菜单--->“ResourceEditor”(图1),资源编辑器界面就出来了(图2),它就长这模样,记住没有?
如果你的VB的“工具”菜单里没有这个选项,请在“选项”里的“可连接的”属性页里把“工程资源管理器”选上(图3)。

3.添加资源
VB的资源编辑器可以放入5种资源:文本、光标、图标、图片、自定义资源,以自定义资源为例,点一下问号旁边最近的一个按钮,把一个EXE文件添加进去,资源编辑器就会出现一个“CUSTOM”目录树,添加进去的文件序号从101开始。(图4)
记得保存哦,保存下来的RES文件已经和工程文件Link了,接下来开始编程。

4.重要语句
这个过程的作用是把CUSTOM资源里的指定数据读取出来写成文件,想到什么没有?不知道?后面再公布迷底:P
============================================================================
Sub CreateFile(FileName As String, ResID As Integer, Size AsLong)
'---------------------------------------------
'把资源读取出来保存为文件
'Author:小金(LK007)
'Site: www.s8s8.net
'E-MAIL: LK007@163.com
'Usage:CreateFile(文件名,资源序列号,文件大小)
'----------------------------------------------
On Error Resume Next
Dim File() As Byte 'Btye类型的数组
Dim Counter As Long
Dim FileNum As Integer

FileNum = FreeFile()

File = LoadResData(ResID, "CUSTOM")'将自定义资源中ResID号资源读入数组
Open FileName For Binary As #FileNum '以二进制方式写文件
For Counter = 0 To Size - 1 '注意因为从0 Byte开始因此以文件大小 -1Byte 为终
Put #FileNum, , File(Counter)
Next Counter
Close #FileNum
End Sub
============================================================================
注意!这个是最基本也是最重要的代码!

二、开始编程
在这里我并不想教大家用资源给自己的程序添加图标、光标等,那些不是本文讨论的范围。

1.文件捆绑
现在网络上随便都能下载到一个EXE捆绑机,它们的原理是把两个EXE通过适当的代码连接在一起,最终产生的集合体为两个EXE之和,用任意一款Hex分析工具就能看到两个PE头部和各个EXE的数据,这样的组合是启动了就马上分离出两个文件一起运行的,有点心思的人都能感觉到启动的速度比较慢(如果你机器很快就不算-_-),因为WriteFile和启动是需要时间的,而且我们不能控制这个过程。
其实用VB的资源段,我们可以做得比EXE捆绑机好得多,最重要的是,它不是简单的两个PE组合,而且我们能控制它。
强烈建议编程之前先用EXE压缩工具把EXE压小一点,对大家都有好处,真的。

新建一个EXE工程,把一个EXE文件(WinShell、灰鸽子随便了)添加入自定义资源,预先需要记录资源里的文件原体积哦,VB是瞎子,不会帮你看的。
现在可以找一个事件或者按钮来触发它,例如我把一个5000字节的EXE文件放入了101号资源,并在窗体加载时释放它到程序运行的目录下面,就这样做:
===================================================
Private Sub Form_Load()
On Error Resume Next
Call CreateFile(App.Path & "\resApp.exe",101,5000)'忘记了这个代码?看前面~~
'Shell App.Path & "\resApp.exe",vbHide''加上这句就马上偷偷运行了:)
End Sub
==================================================
编译成EXE,看看它的体积,发现没有?加入的资源是5000字节,出来的EXE是16KB,另外开个空EXE编译出来也是16KB,这个捆绑并不是简单的PE组合,因此两个文件总和始终小于简单的文件捆绑,经过多次测试,VB资源里捆绑的文件在编译出来后就等于被再次压缩了10%----45%,是不是很惊讶呢?
附:更详细的完整代码见附件。别怕,我捆绑的资源是一个HelloWorld程序,无害,也没什么用处。


2.ActiveX in Execute
VB程序的兼容性向来不是很好,一不小心就Can't createObject,归根结底是因为制作者用了ActiveX而又没有相关注册措施,例如一些VB编写的Hacker工具就普遍采用MSWINSCK.OCX作为WinSock介面(我写的Client也是这么偷懒的:P)
正是因为这样,VB程序经常危机重重,许多人不得不用M$提供的VB安装向导,一个程序才500KB,愣是做个2MB多的向导出来,资源极度浪费-_-而且你不可能想在肉鸡上用向导放你的宝贝程序吧?
用了VB的资源,你会发现原来一切都这么简单!
同样,建议你把需要的ActiveX文件用PECompact压缩一下……
制作这个不能像上面的EXE捆绑那样自由,因为你需要在需要的ActiveX没加载之前就把它交出来并DllRegister,否则你会发现错误依旧……所有窗体都没有加载前是最好的时机,别忘记VB的SubMain()
同上,制作一个EXE工程,把你需要的ActiveX塞进资源,记录体积,现在来看这个代码:
==================================================
Sub Main()
Dim rc As Integer
Call CreateFile("C:\WINDOWS\SYSTEM\richtx32.ocx", 101, 260096)'释放~~~
rc = Register("C:\WINDOWS\SYSTEM\richtx32.ocx") '注册~~~
If eRegisterServerReturn_RegSuccess Then
Load Form1 '加载~~~~~~
Form1.Show
Else
MsgBox "注册ActiveX失败,程序不能启动:(", vbCritical,"LK007"
End
End If
End Sub
==================================================
完成一个ActiveX的注册就这么简单,呵呵,谁也不会想到你的EXE里居然还捆绑着ActiveX。
当然,别忘记了注册ActiveX的代码……
==================================================
Public Const E_ERR_BASE = 17980 + vbObjectError
Public Enum EErrRegisterServer
eErrRegisterServer_InvalidFileName = E_ERR_BASE + 1
eErrRegisterServer_ComponentFailure
End Enum
Public Const S_ERR_InvalidFileName = "无效的文件"
Public Const S_ERR_ComponentFailure = "注册失败"

Public Enum ERegisterServerReturn
eRegisterServerReturn_CannotBeLoaded = 1
eRegisterServerReturn_NotAValidComponent = 2
eRegisterServerReturn_RegFailed = 3
eRegisterServerReturn_RegSuccess = 4
eRegisterServerReturn_UnregSuccess = 5
eRegisterServerReturn_UnregFailed = 6
End Enum

Public Declare Function LoadLibraryRegister Lib "kernel32" Alias"LoadLibraryA" (ByVal lpLibFileName As String) As Long
Public Declare Function FreeLibraryRegister Lib "kernel32" Alias"FreeLibrary" (ByVal hLibModule As Long) As Long
Public Declare Function CreateThreadForRegister Lib "kernel32"Alias "CreateThread" (lpThreadAttributes As Any, ByVal dwStackSizeAs Long, ByVal lpStartAddress As Long, ByVal lpparameter As Long,ByVal dwCreationFlags As Long, lpThreadID As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObjectAs Long) As Long
Public Declare Function GetProcAddressRegister Lib "kernel32" Alias"GetProcAddress" (ByVal hModule As Long, ByVal lpProcName AsString) As Long
Public Declare Function WaitForSingleObject Lib "kernel32" (ByValhHandle As Long, ByVal dwMilliseconds As Long) As Long
Public Declare Function GetExitCodeThread Lib "kernel32" (ByValhThread As Long, lpExitCode As Long) As Long
Public Declare Sub ExitThread Lib "kernel32" (ByVal dwExitCode AsLong)

Public Const STATUS_WAIT_0 = &H0
Public Const WAIT_OBJECT_0 = ((STATUS_WAIT_0) + 0)

Function Register(m_sFileName As String) AsERegisterServerReturn
On Error GoTo hComponentFailure
Dim dwExitCode As Long
Dim fSuccess As Long
Dim hThread As Long
Dim lLib As Long
Dim lProcAddress As Long
Dim lpThreadID As Long

If m_sFileName = "" Then Exit Function

lLib = LoadLibraryRegister(m_sFileName)
If lLib = 0 Then
Register = eRegisterServerReturn_CannotBeLoaded
Exit Function
End If

lProcAddress = GetProcAddressRegister(lLib,"DllRegisterServer")

If lProcAddress = 0 Then
Register = eRegisterServerReturn_NotAValidComponent
If lLib Then Call FreeLibraryRegister(lLib)
Exit Function
Else
hThread = CreateThreadForRegister(ByVal 0&, 0&, ByVallProcAddress, ByVal 0&, 0&, lpThreadID)
If hThread Then
fSuccess = (WaitForSingleObject(hThread, 10000) =WAIT_OBJECT_0)
If Not fSuccess Then
Call GetExitCodeThread(hThread, dwExitCode)
Call ExitThread(dwExitCode)
Register = eRegisterServerReturn_RegFailed
If lLib Then Call FreeLibraryRegister(lLib)
Exit Function
Else
Register = eRegisterServerReturn_RegSuccess
End If
Call CloseHandle(hThread)
If lLib Then Call FreeLibraryRegister(lLib)
End If
End If
Exit Function

hComponentFailure:
Err.Raise eErrRegisterServer_ComponentFailure, App.EXEName &".CRegisterServer", S_ERR_ComponentFailure

End Function
==================================================
附:更详细的完整代码见附件。程序释放并注册一个RichTextBox

三、EOF
牢记几个要点:
1.资源里的文件长度不要记错
2.太大的资源读取出来会很慢,如果你要做工具程序,建议在Load时使用SplashWindow,别让用户以为你的程序死翘翘了
3.别忘记养成压缩EXE的习惯,无论是放进资源的还是最终编译的
  评论这张
 
阅读(86)| 评论(1)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017