我正在创建一个构建器。这是代码:
Dim stub, text As String
Const Filesplit = "@*&$%@!#!@#!@#!@$#^%$%^*^*^&(&*(&*(*&@%$%^*^*^*^*^&(&*(&*(*&"
和“Build”按钮我把这个
SaveFileDialog1.ShowDialog()
jixq = GhostTextBox1.Text
FileOpen(1, Application.startuppath & "\stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
stub = Space(LOF(1))
FileGet(1, stub)
'Close the file
FileClose(1)
'Open the file
FileOpen(1, SaveFileDialog1.FileName, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
'Put the informations
FilePut(1, stub & Filesplit & text& Filesplit)
'Close the file
FileClose(1)
现在我想在一个文件中将“stub.exe”与它自己的构建器合并,我添加了它,但我无法弄清楚如何将它与构建器链接。所以我想替换“Application.startuppath&”\ stub.exe“我想要”my.resources.stub“例如(我不知道该怎么做)