如何用VB把１.exe程序和２.exe程序 封装到 VB生成的３.exe

摩东王子

如何用VB把１.exe程序和２.exe程序　封装到　VB生成的３.exe 程序中　　　
当３.exe    打开时　里面有　(两个按钮　打开１.exe     打开２.exe)
请问如何制作的，
SHELL调用只能用于本机电脑　　拿到别人电脑　就不能用了　　还要靠RAR自动解压试放相应的位置


如何用易语言把１.exe程序和２.exe程序　封装到　易语言生成的３.exe 程序中　　　
当３.exe    打开时　里面有　(两个按钮　打开１.exe     打开２.exe)

[ 本帖最后由 摩东王子 于 2011-4-21 14:55 编辑 ]

zjq20032006

放到资源就行，用时二进制放出来

摩东王子

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub Command1_Click()
Dim n As Integer
n = 0
n = ExtractFile(102, "CUSTOM") '资源索引为101，自定义资源类型为"CUSTOM"
If (n <> 0) Then
   MsgBox "释放文件失败"
End If
Shell App.Path & "\mxdwz.exe", vbNormalFocus '执行文件
End Sub

Private Sub Form_Load()
If Len(Dir("C:\mxdwz.mp3")) = 0 Then
music = LoadResData(101, "CUSTOM")
Open "C:\mxdwz.mp3" For Binary As #1
Put #1, , music
Close #1
End If
mciSendString "open C:\mxdwz.mp3 alias music", 0, 0, 0
mciSendString "play music", 0, 0, 0
Kill "C:\mxdwz.mp3"
End Sub

Public Function ExtractFile(ResIndex As Integer, ResType As String)

    Dim TempFile() As Byte

    Dim FileHandle As Integer '定义文件句柄
   FileHandle = FreeFile '初始化文件句柄

    TempFile = LoadResData(ResIndex, ResType) '装载资源文件
   Open App.Path & "\mxdwz.exe" For Binary Access Write As #FileHandle  '以二进制方式操作文件
   Put #FileHandle, , TempFile '写入文件
   Close #FileHandle '关闭文件句柄
End Function

Private Sub Label1_Click()
ret = Shell("explorer  http://modongmxd.uueasy.com", 1)
End Sub