2016-11-8
17:40

root
root

[程序代码]EXE文件包含进VB中

打开VB 资源编辑器,新建,点击”添加自定义资源”,浏览我需要引入的EXE文件,然后修改属性,类型改为”EXE”,
包括引号哦,标识号为默认,只要不重复就行了。然后就是写代码,添个按钮功能是:点击后他会将我引入的exe文件,
复制到 D盘。可使用相对路径

Private Sub Command1_Click()
    Dim TempFile() As Byte
    Dim intFile As Long
    TempFile = LoadResData(101, "EXE")
    intFile = FreeFile()
    Open "D:\myrdp.exe" For Binary Access Write As #intFile
    Put #intFile, , TempFile
    Close #intFile
End Sub

//以下是示例
Private Sub Command1_Click()
    Dim TempFile() As Byte
    Dim intFile As Long
    TempFile = LoadResData(101, "EXE")
    intFile = FreeFile()
    Open App.Path & "\句柄检测.exe" For Binary Access Write As #intFile
    Put #intFile, , TempFile
    Close #intFile
End Sub

Private Sub Command2_Click()
Shell App.Path & "\句柄检测.exe"
Shell App.Path & "\测试.exe"

End Sub

示例:

EXE文件包含进VB中

文章如需转载请注明:转载自: 紫灵幽梦
« 上一篇 下一篇 »

相关文章:

vb读取access并且显示  (2017-5-11 9:18:27)

VB 获取CPU温度示例  (2017-5-8 10:35:11)

VB程序逆向反汇编常见的函数   (2017-5-8 10:32:0)

VB内嵌汇编的模块示例  (2017-5-8 10:24:4)

内存数据的读写(PC)   (2017-3-1 17:51:40)

用VB制作外挂   (2017-3-1 16:16:53)

发表留言: