无忧启动论坛

标题: 如何用VB把１.exe程序和２.exe程序　封装到　VB生成的３.exe [打印本页]

作者: 摩东王子 时间: 2011-4-21 14:54
标题: 如何用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 时间: 2011-4-23 13:22
放到资源就行，用时二进制放出来

作者: 摩东王子 时间: 2011-4-23 22:54
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

欢迎光临无忧启动论坛 (http://bbs.wuyou.net/)