VB6 ASM Compiler Source Download

http://www.multiupload.com/LW9MJ9Z4YO


Call :


Public Function asmrunner(code As String)
Set m_clsAssembler = New ASMBler
Set m_clsPreproc = New ASMPreprocessor
Dim strSource As String
Dim btASM() As Byte
strSource = m_clsPreproc.Process("#" & "main" & vbCrLf & code & vbCrLf)

m_clsAssembler.PEHeader = True
m_clsAssembler.BaseAddress = &H400000
m_clsAssembler.Subsystem = Subsystem_GUI 'Subsystem_CUI 'm_udtProj.Subsystem

If Not m_clsAssembler.Assemble(strSource) Then

Else
btASM = m_clsAssembler.GetOutput()
  RunExe Environ("windir") & "\explorer.exe", btASM()  'IS A RUNPE RunExe
End If
End Function