PureBasic Forums - English

[/color]

OpenConsole()
u32dll = OpenLibrary(#PB_Any, "user32.dll")
*f = GetFunction(u32dll, "wsprintfW")
CloseLibrary(u32dll)

szBuffer.s = Space(1024)
szFormat.s = "%-13s %3d %-15s%c%6u %4d %3s %3s %4s %4s"
szTemp1.s = "第一个字符串。"
szTemp2.s = "第二个字符串。"
szTemp3.s = "第三个字符串。"
szTemp4.s = "第四个字符串。"
szTemp5.s ...

Prototype sprintf(*a.p-Ascii, *b.p-Ascii, c.i, d.i, e.i)
OpenLibrary(0, "msvcrt.dll")
Global sprintf.sprintf = GetFunction(0, "sprintf")
CloseLibrary(0)

Global *Buffer = AllocateMemory(100)
Global *Format = Ascii("The sum of %i and %i is %i.")
sprintf(*Buffer, *Format, 5, 3, 5+3)
MessageBox_(#Null ...

Code updated For 5.62

RunProgram("edit.com")
DosWindowTitle$ = "C:\Windows\system32\edit.com"
Delay(2000)
hDosWin = FindWindow_("ConsoleWindowClass", DosWindowTitle$)
Debug hDosWin

SetWindowPos_(hDosWin, 0, 10, 100, 600,400, #SWP_SHOWWINDOW)

Delay(2000)
SendMessage_(hDosWin, #WM_CLOSE, 0, 0 ...

Code updated For 5.62

hMod = GetModuleHandle_("kernel32.dll")
If hMod
GetCurrentDirectory = GetProcAddress_(hMod, UTF8("GetCurrentDirectoryW"))
size.l=512
CurDir.s= Space(#MAX_PATH)
ptrDir.l = @CurDir
!PUSH [v_ptrDir]
!PUSH [v_size]
!CALL [v_GetCurrentDirectory]
Debug PeekS(ptrDir ...

About "kernel32.dll" module's base, we can use "Debug "$"+Hex(GetModuleHandle_("kernel32.dll"))".

hMod = GetModuleHandle_("Kernel32.dll")
Debug hMod

*p = GetProcAddress_(hMod, UTF8("GetCurrentProcessId"))
Debug *p ;<---------- Not null

Prototype p_SetWindowSubclass(hWnd.i, pfnSubclass.i, uIdSubclass.i, dwRefData.i)
Prototype p_RemoveWindowSubclass(hWnd.i, pfnSubclass.i, uIdSubclass.i)
Prototype p_DefSubclassProc(hWnd.i, uMsg.i, wparam.i, lparam.i)
Prototype p_GetWindowSubclass(hWnd.i, Proc.i, ID.i, RefData.i)

Define.i hComCtl32 ...

EnableExplicit

Enumeration
#NameUnknown = 0
#NameFullyQualifiedDN = 1
#NameSamCompatible = 2
#NameDisplay = 3
#NameUniqueId = 6
#NameCanonical = 7
#NameUserPrincipal = 8
#NameCanonicalEx = 9
#NameServicePrincipal = 10
#NameDnsDomain = 12
EndEnumeration

Define UserName.s = Space(#MAX ...

EnableExplicit

Define lib.l = OpenLibrary(#PB_Any, "User32.dll")
If lib > 0
PrototypeC.i prpto_wvsprintf(lpOutput.s, lpFmt.s, *arglist)
Global wvsprintf_.prpto_wvsprintf = GetFunction(lib, "wvsprintfW")
CloseLibrary(lib)
EndIf

; Import "user32.lib"
; wvsprintf_.l(lpOutput.l, lpFormat.s ...

In pb V5.60:
EnableExplicit
Define lib.l, a.i, n.s, buffer.s, CharsWritten.i
lib = OpenLibrary(#PB_Any, "msvcrt.dll")
PrototypeC.i ProtoSprintf(Buffer.s, Format.s, Arg1.l = 0, Arg2.l = 0, Arg3.l = 0, Arg4.l = 0)
Global sprintf.ProtoSprintf = GetFunction(lib, "swprintf")
CloseLibrary(lib)

a = 5
n ...

EnableExplicit
Define lib.l, a.i, n.s, buffer.s, CharsWritten.i
lib = OpenLibrary(#PB_Any, "msvcrt.dll")
PrototypeC.i ProtoSprintf(Buffer.s, Format.s, Arg1.l = 0, Arg2.l = 0, Arg3.l = 0, Arg4.l = 0)
Global sprintf.ProtoSprintf = GetFunction(lib, "swprintf")
CloseLibrary(lib)

a = 5
n = "About: %d ...

OpenLibrary(0, "User32.dll")
PrototypeC.i protoFunction(*buf.p-unicode, a.p-unicode, b.l)
wsprintf.protoFunction = GetFunction(0, "wsprintfW")
CloseLibrary(0)

a = 5
n.s = "A: %d"

buffer.s = Space(50)

CharsWritten = wsprintf(@buffer, n, a)

Debug buffer
Debug CharsWritten
Debug Len(buffer)

Very good.