main.bas

来自「一个用于将hex文件转化为bin格式文件的工具」· BAS 代码 · 共 32 行

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

'Sleep 3000 '延时3秒
'****************************************************************************
'安全警戒线整理
'网    站：http://www.hackeroo.com/
'e-mail  ：[e-mail]
'OICQ    ：266370
'****************************************************************************


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