; init_runtime.asm
format MS COFF

section '.text' code readable executable

public _main
extrn ___vbaS

_main:
jmp ___vbaS

#include <iostream>
#include <Windows.h>

using namespace std;

void _stdcall WriteToConsole(BSTR pszString) {
	wcout << pszString;
}

void _stdcall ReadFromConsole(BSTR *pszRet) {
	WCHAR pszBuf[255];
	wcin.getline(pszBuf, 255);
	*pszRet = SysAllocString(pszBuf);
}

Option Explicit

#If INIDE Then

Public Declare Sub WriteToConsole Lib "..\static_lib\testlib\release\testdll" ( _
                   ByVal pszValue As Long)
Public Declare Sub ReadFromConsole Lib "..\static_lib\testlib\release\testdll" ( _
                   ByVal ppszValue As Long)
                   
Public Declare Function AllocConsole Lib "kernel32" () As Long
Public Declare Function FreeConsole Lib "kernel32" () As Long
Public Declare Function SetDllDirectoryW Lib "kernel32" ( _
                        ByVal pszString As Long) As Long

                            
#Else

Public Declare Sub WriteToConsole Lib "SimpleWay.exe" Alias "?WriteToConsole@@YGXPAG@Z" ( _
                   ByVal pszValue As Long)
Public Declare Sub ReadFromConsole Lib "SimpleWay.exe" Alias "?ReadFromConsole@@YGXPAPAG@Z" ( _
                   ByVal ppszValue As Long)
                   
#End If

Option Explicit

Sub Main()
    
#If INIDE Then
    
    AllocConsole
    SetDllDirectoryW StrPtr(App.Path)
    
#End If
    
    Dim sName   As String
    
    WriteToConsole StrPtr("Hello! What's your name?" & vbNewLine)
    ReadFromConsole VarPtr(sName)
    
    WriteToConsole StrPtr("How are you, " & sName & "?" & vbNewLine)
    
    sName = vbNullString
    ReadFromConsole VarPtr(sName)
    
    
#If INIDE Then
    
    FreeConsole
    
#End If

End Sub

[VBCompiler]
LinkSwitches=OleAut32.lib ..\init_runtime.obj ..\static_lib\testlib\Release\testlib.lib -SUBSYSTEM:CONSOLE -EXPORT:?ReadFromConsole@@YGXPAPAG@Z -EXPORT:?WriteToConsole@@YGXPAG@Z -ENTRY:mainCRTStartup

Option Explicit

#If INIDE Then

Public Declare Sub WriteToConsole Lib "..\static_lib\testlib\release\testdll" ( _
                   ByVal pszValue As Long)
Public Declare Sub ReadFromConsole Lib "..\static_lib\testlib\release\testdll" ( _
                   ByVal ppszValue As Long)
                   
Public Declare Function AllocConsole Lib "kernel32" () As Long
Public Declare Function FreeConsole Lib "kernel32" () As Long
Public Declare Function SetDllDirectoryW Lib "kernel32" ( _
                        ByVal pszString As Long) As Long
                            
#Else

Public Sub WriteToConsole( _
           ByVal pszValue As Long)
End Sub

Public Sub ReadFromConsole( _
           ByVal pszValue As Long)
End Sub

#End If

format MS COFF

section '.text' code readable executable

WriteToConsole equ ?WriteToConsole@@YGXPAG@Z
ReadFromConsole equ ?ReadFromConsole@@YGXPAPAG@Z

extrn WriteToConsole
extrn ReadFromConsole

public ?WriteToConsole@modStaticLib@@AAGXXZ
public ?ReadFromConsole@modStaticLib@@AAGXXZ

?WriteToConsole@modStaticLib@@AAGXXZ:
jmp WriteToConsole

?ReadFromConsole@modStaticLib@@AAGXXZ:
jmp ReadFromConsole

del modStaticLib.obj
copy asm\modStaticLib.obj modStaticLib.obj

[VBCompiler]
LinkSwitches=OleAut32.lib ..\init_runtime.obj ..\static_lib\testlib\Release\testlib.lib -SUBSYSTEM:CONSOLE -ENTRY:mainCRTStartup

cкачать