能不能将VB运行库捆绑到我的VB程序上去，大一点没关系。

Question

谢谢

Answer 1

VB写的程序起动就得要MSVBVM**.dll文件。

Answer 2

用winrar自解压（设置成无用户干预的）打包  ：）

Answer 3

不打凶的话
用VB根本无法实现
楼上说的用资源文件，也不行
因为你在运行的前提已用到了VB库文件用winrar自解压是可行的办法，把DLL放在当前目录就可

Answer 4

有必要吗~ 98、ME以下的操作系统在SYSTEM下放个MSVBVM60。DLL就可以了 其他的系统基本都带这个运行库不就几M的东西

Answer 5

不是想做木马啊，一个客户我给他写了一个程序，他说怎么可执行文件才200KB，太小了吧。我想干脆把VB运行库打包进去，不就大了吗？以前好像见过实现方法的，忘记了，就是将DLL文件和可执行文件绑在一起。不知道MSVBVM60.DLL是标准DLL文件还是activeX DLL.

Answer 6

放一个Image , 弄一个巨大的图片放在里面,  让它不可见就行了.

Answer 7

youngsheep() 的方法最省事,最方便.

Answer 8

那个人就是嫌程序小啊！如果放一些没用的代码是可以啊，但是如果再打包的话1MB程序＋msvbvm6.dll+其它控件就太大了吧！

Answer 9

可惜那个程序我找不到了，它的原理就是将DLL捆绑到可执行文件上去！

Answer 10

那个程序的实现原理不清楚，个人一个想法：可以将DLL文件中相应的函数提取出来，放到可执行文件中。

Answer 11

想它大一点还不容易，直接在主文件后面加一些没用的文件进去，不会影响主文件的使用的，不信你试试，给你一个合并文件的函数。
'**************************CombineFile文件合并*************************
'函 数 名：CombineFile
'作用说明：将若干个文件进行合并
'参数说明: pFileName 要合并的文件名的数组，pDenFileName 目标文件名
'输出说明：True 和 False
'建立日期: 2004/12/14
'作    者: york
'**********************************************************************
Public Function CombineFile(pFileName() As String, _
                                ByVal pDenFileName As String) As Boolean    Dim i As Integer
    Dim lfileSize As Long
    Dim Mem() As Byte
    Dim ifileNumSrc As Integer                      '源文件号
    Dim ifileNumDen As Integer                      '目标文件号
    Dim lAllLen As Long                             '整个文件的大小
    On Error GoTo Errhandle:
    If pDenFileName = "" Then                       '判断目标文件名是否为空
        Exit Function
    End If
    For i = LBound(pFileName) To UBound(pFileName)  '检测每一个文件是否存在
        If Dir(pFileName(i)) = "" Then
            CombineFile = False
            Exit Function
        End If
    Next i
    ifileNumDen = FreeFile
    Open pDenFileName For Binary Access Write As ifileNumDen
    For i = LBound(pFileName) To UBound(pFileName)
        ifileNumSrc = FreeFile
        Open pFileName(i) For Binary Access Read As #ifileNumSrc
        lAllLen = LOF(ifileNumSrc)
            Do While lAllLen <> 0
                If lAllLen > 1024 Then
                    ReDim Mem(1024 - 1) As Byte
                    lAllLen = lAllLen - 1024
                Else
                    ReDim Mem(lAllLen - 1) As Byte
                    lAllLen = 0
                End If
                Get #ifileNumSrc, , Mem
                Put #ifileNumDen, , Mem
            Loop
        Close #ifileNumSrc
    Next i
    Close #ifileNumDen
    CombineFile = True
    Exit Function
Errhandle:
    CombineFile = False
End Function

Answer 12

VB-PowerWrap这个软件是实现这个功能吗？华军软件园有下载：http://www.onlinedown.net/soft/31837.htm

Answer 13

我有合并DLL和EXE软件
[email protected]
给我来信

Answer 14

如果放一些没用的代码是可以啊，但是如果再打包的话1MB程序＋msvbvm6.dll+其它控件就太大了吧！
---------------------------------------------------------------------------------------
你可以写一个小程序a.exe，功能就是在exe文件后添加一些数据，你想加多少就加多少。
由于这个程序是很小的，打包后不会增加多少。
在安装时执行小程序a.exe，加大你的程序，不就可以了。