Question

VB中如何嵌入EXE文件

VB里杂嵌入个EXE文件 运行时候在释放出来 还有 杂样做个按钮 点击时候用浏览器打开制定网站.. 大虾帮忙 谢谢..

Answer 1

'一.嵌入EXE文件
'使用VB资源编辑器(如果没有,请选择菜单-外接程序-外接程序管理器,在里面找到VB资源编辑器选择启动和加载即可)添加CUSTOM资源,保存
'然后在VB资源里加载即可,下面以编号为101的CUSTOM资源为例子
Private Sub Form_Load()
Dim Temp() As Byte
Temp = LoadResData(101, "CUSTOM")
Open "C:\lkfsdklfas.exe" For Binary As #1
Put #1, , Temp()
Close #1
End Sub
'二.打开网页

Shell "Explorer.exe " & chr(34) & "http://www.baidu.com/" & chr(34)