作者a9 (a9)
看板Visual_Basic
标题Re: [VB6 ] VB 是否可以写自解档
时间Mon Jul 7 00:19:18 2008
※ 引述《windlune (qe)》之铭言：
: VB可以写自解档吗? 有人有看过类似的资料吗? 有的话可以贴出来让我做参考吗@@?
主要概念就是
[自解档]
执行档开启自己，跳到执行档的尾端(资料启始处)，读出资料
[产生自解档]
自解档 = 执行档(无资料的自解档)+资料
ex. [自解档 Sfx.exe]
Private Sub Form_Load()
Me.AutoRedraw = True
Const ExeSize As Long = 9728 '编译後的自解档大小(无资料)
Dim Buff As String
Dim f As Integer
f = FreeFile
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #f '开启自己
Seek #f, ExeSize + 1 '跳到资料启始处
Buff = Space(LOF(f) - ExeSize - 1)
Get #f, , Buff
Close #f
Print Buff
End Sub
编译出执行档後可以用一个文字档试试
开启 cmd.exe(命令提示字元)，用copy指令来将资料加入执行档，来产生一个新的
执行档(自解档)，copy/b Sfx.exe+Data.txt Data.exe
当然实际情况要看你怎麽去运用
不知道会不会写的很乱XDDD
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 163.26.228.44