VB生成另壹個EXE文件

外接程序--外接程序管理器--VB6 資源管理器--選擇加載

在工具欄中 綠色圖標（VB 資源管理器） 點擊~ 對話框中 問號左邊第壹個

添加自定義資源 選擇 a.exe文件加入其中

在B窗體代碼中

Dim fname As String

Private Sub command1_click()

Dim v

Dim byt() As Byte

fname = "z:\test.exe"

If Dir(fname) = "" Then

v = LoadResData(101, "CUSTOM")

byt = v

Open fname For Binary As #1

Put #1, 1, byt()

Close #1

End If

End Sub

上一篇:wps表格中有三個項目。只要有壹項就是A級，三項都是c級，否則就是b級，公式怎麽寫？

下一篇:文華財經的期貨操盤軟件，如何設置自動止損平倉和平倉後自動關閉操盤軟件？