50分急求!!!如何在生成EXE文件时,把DLL,OCX文件也集成在EXE里面~~谢谢

Question

50分急求!!!如何在生成EXE文件时,把DLL,OCX文件也集成在EXE里面~~谢谢(不是指用制作成安装文件的方法~)谢谢~~

Answer 1

是运行EXE时自动加载DLL或者OCX吗?
如果是只要在运行时COPY一下就行了

Answer 2

完全按照你的要求，我觉得很难办到
把DLL,OCX文件 和你的 EXE 文件放到同一目录下就好了。

Answer 3

估计用VB不好办吧！
如果要用.dll,.ocx等也应该是调用系统自身的.dll和.ocx,要不怎么说什么什么病毒、木马之类的感染什么什么系统，换个系统当然系统文件也换了，所以...（这个是我猜的，我不会编写木马^-^)

Answer 4

使用资源文件是唯一的好方法，把需要的OCX和DLL以资源文件方式封装到EXE文件中，在目标计算机上首次运行（如果判断自己想办法吧）时将OCX和DLL释放出来然后用EXE的代码进行相关注册。
这种方法通常无法将msvbvm60.dll打进去，原因就是VB无论如何也不可能脱离这个文件运行，所以在winme以上计算机上可以不用带这个文件，将其它所有OCX和DLL都打到EXE中，不过注意，释放这些文件的窗体（初如化窗体应该不要加载其它第三方控件否则程序开始就无法运行）。在WIN98下你只能在EXE文件外再带一个msvbvm60.dll了。

Answer 5

谢谢~~jifangkeji(吉方科技)"OCX和DLL都打到EXE中"能否哪位朋友在能具体点~(有个例子更好~~)
谢谢~~

Answer 6

在文件中嵌入文件，一般都是通过资源文件来实现的，至于具体的实现步骤，我想就不用我罗嗦了，网上有很多这样的文章，不清楚的朋友可以自己搜索一下。但是有些情况下，用资源文件无法解决问题，就不得不迂回一下，比如要实现所谓的绿色软件（在这里我要说明的是，这篇文章没有涉及任何高级技巧，因此，您略过不看，我也不会感到难过），事实上，大家知道，vb程序的运行需要vb运行库的支持，所以，用vb做绿色软件几乎是不可能的事，幸运的是，某些版本的window预装了vb的运行库支持文件，为不可能变为可能，提供了机会。然而，一旦我们使用了第3方控件或在其他类似情况下，这种实现绿色软件的可能就微乎其微了，怎么办？如果用资源文件就称不上绿色软件了，那么，是不是就意味着我们必须放弃这种诱人的想法呢？别着急，往下看就知道应该如何去做了。：）[被屏蔽广告]       我的答案是直接以代码的形式，将文件嵌入到我们的vb程序中，下面我假设您已经知道了如何用api函数注册控件（当然在程序中调用regsvr32也可），知道了如何读写文件和注册表，这些问题和本问题息息相关，您有必要知道，如果不知道也不要紧，可以通过搜索引擎获取答案。      具体的实现步骤是：首先在程序加载时根据注册表中的键值，判断是否是第一次运行，如果是第一次运行，则将在您指定的路径生成需要的文件并写入数据，然后，调用api函数注册控件，同时，写注册表，标记已运行过本程序。     写文件的大致程序如下：     Dim buff() As Byte
     接下来写根据要嵌入的文件内容给数组赋值的语句
     Open 文件名 For Binary As #1
     Put #1, , buff
     Close #1      看到这里，有些朋友要被我气乐了，会愤怒的对我说：你说的这些我都知道，关键是怎么给数组赋值，难道你要我用16进制的编辑器查看文件数据，进行赋值吗？这时，我会回答：是的，不过这个过程可以通过程序实现，看看下面的代码：Private Sub writetext(ByVal FileName As String, ByVal ByteArrayName As String, ByVal TxtFile As String)
    Dim i As Long
    i = FileLen(FileName)
    Dim arr() As Byte
    ReDim arr(i - 1)
Open FileName For Binary As #1
    Get #1, , arr
    Close #1
    Dim temps As String
    Open TxtFile For Output As #1
    Print #1, "ReDim " + ByteArrayName + "(" + CStr(i - 1) + ")"
    For i = 0 To UBound(arr)
        temps = ByteArrayName + "(" + CStr(i) + ")=" + CStr(arr(i))
        Print #1, temps    Next
    Close #1
    'MsgBox "haha "
End Sub
       这段代码的作用是自动将你需要手动输入的代码写入一个文本文件，您剩下的工作就是，调用这段代码，手动打开刚刚生成的文件，把文字全部选中，复制，并粘贴到vb中您需要手动编写代码的地方。其中参数FileName为您需要嵌入的文件的文件名，ByteArrayName为您程序中用到的数组名（如果用我那段让您生气的代码，您就传入"buff"），TxtFile为要生成的文本文件的文件名。假如，您要将您磁盘上的c:\test.ocx嵌入程序，您在程序中的数组名称为"buff",您可以这样调用：writetext "c:\test.ocx", "buff", "d:\mc\mc\buff.txt"，然后打开文件d:\mc\mc\buff.txt，进行，全选，复制，粘贴。       不得不说的是，尽管您可以在程序中释放文件，自动注册，但是如果您用的第3方控件是您画到窗体上的，您的程序还是不会正常运行，也就是说，您必须在完成上面的步骤后，用代码在窗体上添加控件（用controls.add，需要知道progid，可用api读注册表获取，如果是activex dll的话，则用createobject进行绑定）。但是，这样的话，您不得不解决对控件事件的响应问题，这时只能用VBControlExtender解决问题，详细可参考：如何动态新增控制项？http://vbboshi.myrice.com/preblem/41-60/pr52.htm#259       总而言之，尽管用vb可以实现绿色软件，但是对第3方控件的处理实在是太麻烦了，而且文件体积会急剧增大，我的意见是这个绿色软件不实现也罢，其实用我上面说的方法，嵌入一个不需要注册的文件倒是一个不错的主意，不过，希望不要做危害别人安全的事，比如说，嵌入一段木马程序。