Code:
dim as string frmt = !"%s %s\n"
dim as string hello = "Hello"
dim as string world = "world"
asm
mov eax, [world]
push eax
mov eax, [hello]
push eax
mov eax, [frmt]
push eax
call printf
'clean up the stack so that main can exit cleanly
'use the unused register ebx to do the cleanup
pop ebx
pop ebx
pop ebx
end asm
Sub AsmMessageboxW()
Dim sText as WString*50="Info"
Dim sCaption as WString*50="TitleStr"
Asm
push 0
lea edi,[sCaption]
lea esi,[sText]
PUSH EDI
push esi
push 0
Call MessageBoxw
End asm
End SubCode:
Sub AsmMessageboxA()
Dim sText as String
sText="Info"
Dim sCaption as String
sCaption ="TitleStr"
Asm
push 0
lea edi,[sCaption]
lea esi,[sText]
PUSH [edi]
push [esi]
push 0
Call MessageBoxA
End asm
End SubCode:
Sub AsmMessageboxW()
'Need to set the properties of the project to :UNICODE mode
' This is the standard way of writing. Remember, the string that interacts with the API must be a zStr or wStr pointer.
Dim sText as WString PTR
Dim sCaption as WString PTR
sText=@"Info"
sCaption =@"TitleStr"
Asm
push 0
push [sCaption]
push [sText]
push 0
Call MessageBoxW
End asm
End Subvfb(visual freebasic),ide like vb6,vb7.support x64,createthread,asm code
(94) Vfb IDE【Visual Freebasic】Like vb6,vb7,Update2021-2-23 - freebasic.net
https://www.freebasic.net/forum/view...hp?f=8&t=28522
download vfb ide:
https://github.com/xiaoyaocode163/VisualFreeBasic
http://www.yfvb.com/soft-48.htm (version 5.5.3,update:2021-2-23)