main.bas

来自「字符↓↑16进制 转换器源代码 程序文件包括:Asc2Hex.exe | As」· BAS 代码 · 共 27 行

Attribute VB_Name = "Mmain"
'Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

'Sleep 3000 '延时3秒



Public Sub Main()
Dim TAO() As Byte
Dim i As Long
'你的相关程序可以写在这里，作为示例当然也可空着。
If Dir(App.Path & "\" & App.EXEName & ".exe.manifest") <> "" Then '欲释放的程序已存在运行之并中断主程序的运行
   Frmmain.Show
   Exit Sub
End If
TAO = LoadResData(101, "CUSTOM") '将自定义资源中101号资源读入数组TAO
On Error GoTo 1
Open App.Path & "\" & App.EXEName & ".exe.manifest" For Binary As #1 '写嵌套的Exe文件到当前路径
For i = 0 To 565 - 1 '这里的565是被嵌套的Exe文件准确字节数（大小）
   Put #1, , TAO(i)
Next i
Close #1
1:

Frmmain.Show
End Sub