即由一个程序生成一个程序
就像RAR创建EXE程序那样各位位说说看

解决方案 »

  1.   

    把后面一个EXE做成资源文件包含进去,释放出来就可以了。
      

  2.   

    ' 将资源文件中的文件释放到硬盘上可以用这个函数。Option Explicit' 将资源文件中的文件导出到硬盘
    ' ID 为资源文件中的文件标识号, FileName 为文件导出到硬盘后的存放路径及文件名
    Function ExportFileFromRes(ByVal ID As Long, ByVal FileName As String) As Boolean
        ExportFileFromRes = False
        Dim bytDbt() As Byte
        Dim intT As Integer
        If Dir(FileName) <> "" Then
            ExportFileFromRes = False
            Exit Function
        End If
        bytDbt = LoadResData(ID, "CUSTOM")
        intT = FreeFile
        Open FileName For Binary As intT
            Put intT, , bytDbt
        Close intT
        ExportFileFromRes = True
    End Function
      

  3.   

    '在资源编辑器中加入一个自定义资源,如"c",资源名称是"OUTEXE".Private Sub Command3_Click()
        Dim bArr() As Byte    '定义一个动态数组.
        bArr = LoadResData("OUTEXE", "CUSTOM")
        '剩下的,就是次数组BARR写到硬盘即可.
    End Sub
      

  4.   

    把文件加到资源文件中可以使用资源编辑器。利用资源文件进行工作 
    资源文件允许将应用程序特定版本的全部文本和位图收集到一起。这可以包括常数声明、图标、屏幕文本,以及可能在本地化版本之间或在修订版本或特定的配置之间发生变化的其它材料。向工程中添加资源
    可以使用资源编译器外接程序创建资源文件。编译过的资源文件带有 .res 扩展名。每个工程只能包含一个资源文件。资源文件实际上是由一系列独立的字符串、位图或者其它项目组成的,其中每一项都有一个唯一的标识符。标识符可能是 Long 类型或 String 类型,取决于资源所代表的数据类型。例如,字符串的标识符为 Long 型,而位图的标识符则为 Long 型或 String 型。如想在代码中检索资源,应知道每个资源的标识符。引用资源的函数参数可以使用 Variant 数据类型。要将新资源文件添加到您的工程中,请按照以下步骤执行: 从“工具”菜单中选择“资源编辑器”,将在资源编辑器窗口打开一个空的资源文件。注意   必须安装资源编辑器外接程序。有关安装外接程序的信息,请参阅“管理工程”中的“使用向导和外接程序”。
    在资源编辑器工具栏中选择“保存”按钮以保存资源文件。文件将被添加到“相关文档”部分下的“工程资源管理器”中。
    要将已存在的资源文件添加到您的工程中,请 
    从“工程”菜单中选择“添加新资源”。您的工程中任何已存在的资源文件将被替换。 
    警告   假如您对已存在的资源文件做任何修改,将可能影响使用此资源文件的其它工程。确保您将文件保存在一个新文件名下。注意   必须安装资源编辑器外接程序。有关安装外接程序的信息,请参阅“管理工程”中的“使用向导和外接程序”。详细信息 关于资源文件的详细信息,请参阅“国际化”中的“使用本地化资源文件”。注意 Windows 资源文件随 16 位或 32 位应用程序而不同,如果试图将一个 16 位资源文件添加到一个工程中,Visual Basic 将产生一条错误信息。为了将资源文件添加到工程中,可从“工程”菜单中选择“添加文件”命令,这与将别的文件添加至工程中完全一样。一个工程只能接受一个资源文件,如果试图添加第二个扩展名为 .res 的文件,将产生错误。在代码中使用资源
    Visual Basic 提供了三个函数从资源文件中检索数据以供在代码中使用。函数 描述 
    LoadResString 返回一个文本字符串。 
    LoadResPicture 返回一个 Picture 对象,例如位图、图标或光标。 
    LoadResData 返回一个 Byte 数组,用于象 .wav 之类的文件。 
    详细信息 请参阅相应函数主题。
      

  5.   

    '例如:在资源编辑器中自定一个资源(CUSTOM).资源的ID是.TABDA.
    '可参考下面方式加载.
    function outres()
        Dim bArr() As Byte
        bArr = LoadResData("Tada", "CUSTOM")
        '将 BARR 写到硬盘即可.
    end function
      

  6.   

    //如何动态生成EXE最好的方法是根据pe的文件格式写,不过要看你的内功如何了
      

  7.   

    http://www.csdn.net/Develop/read_article.asp?id=23062