LA/QM forum - QM extensions

Function WinSetOnTop (or not and/or activate, size it, move it to POS and/or Monitor)

Mon, 20 Oct 2025 07:46:18 +0000

To set dialog windows that normally do not have this Feature in QM (e.g. Input box, OpenSaveDialog...) - or if you wish also for other existing windows - if you do not want to use - in this case - the built-in routines (e.g.: act, CenterWindow, MoveWindowToMonitor, mov, Zorder ...) here...

I originally needed it in the company - to put QM dialogues always in the foreground, and to move them...

Insert the function before the actual dialog call - and specify its title...

The function also works for other existing Windows (see Firefox example...)

The special thing:
The function calls itself again as mac - so that the calling program can continue running and display the following dialog...

Examles:
Simply with a Windows title as parameter:
;WinSetOnTop "Title" ;(Topmost with Activation and Center on Monitor with the mouse pointer is default)
or
;NOT setontop with -2 Firefox (Nothing or NULL = setontop) and mov Windows to 100 200 and primary Monitor
;WinSetOnTop "Mozilla Firefox* - *" "MozillaWindowClass" -2 100 200 -3
;detto with setontop and moves the window on the monitor #2 (Short Title without Class Parameters - also works!)
;WinSetOnTop "*Firefox*" "" 0 0 0 -2 (or -1 0 0 2)

Update now:
Additional specification of window size change, activation (or not) and maximization possible

function# ~Title [~Class] [Topmost] [Activate] [left] [top] [width] [height] [Center]
WinSetOnTop "Title" "Class" [NOT/TOPMOST] [NOT/ACTIVATE] [x] [y] [width] [height] [NOT/CENTER/Monitor#]
Topmost: HWND_TOPMOST(HWND)=-1 (or 0 = Standard) or HWND_NOTOPMOST(HWND)=-2 (=Parameters von MS SetWindowPos)
Activate: (>-1 = Standard), -1 or (more negativ - test it ;-) = NOT ACTIVATE
if you wish to "MOVE" to x AND y position then minimum VALUE = 1 (or -1...!) NOT 0
if only x = 0 or nothing = Center VERTICAL on Monitor with the mouse pointer
if only y = 0 or nothing = Center HORIZONTAL on Monitor with the mouse pointer
if x and y = -1 NOT Center - keeps the screen orientation
if x and/or y is negativer as -1 - offset from screen right and/or bottom.
if width and heigh = -1 POS window and max it at the end (original size)
if x, y, width and heigh = -1 max the window at the end (original POS and size)
if x = 0 and y = 0 and Move = 0 or nothing or -1 = Center on Monitor with the mouse pointer
if x = 0 and y = 0 and Move <> 0 = Center on Monitor with Center Parameter:
1-30 Monitor#, -1 mouse, -2 active window, -3 primary, or window handle

Examles:
WinSetOnTop "Title" (Topmost Active with Center on Monitor with the mouse pointer is default)
WinSetOnTop "w" (Topmost with Activation and Center on Monitor with the mouse pointer is default)
WinSetOnTop F"*{w}*" (detto only Part of Windows)
Setontop with -1 Firefox (or NULL = setontop) and Center and Active on Monitor with the mouse pointer
WinSetOnTop "Mozilla Firefox*" "MozillaWindowClass" (Nothing or 0 or or -1)
detto with moves the window on the primary monitor
WinSetOnTop "Mozilla Firefox*" "MozillaWindowClass" 0 0 0 0 0 0 -3 or or -1 0 0 0 0 0 -3)
detto Windows inactive
WinSetOnTop "Mozilla Firefox*" "MozillaWindowClass" 0 -1 0 0 0 0 -3 or or -1 0 0 0 0 0 -3)
NOT setontop (with -2) Firefox and moving and resizing and not activation on Monitor#1
WinSetOnTop "Mozilla Firefox*" "MozillaWindowClass" -2 -2 100 200 400 400 1
detto with moves the window on the monitor with the mouse pointer
WinSetOnTop "Mozilla Firefox*" "MozillaWindowClass" -2 -2 100 300 400 400 -1 (or Nothing or 0)
detto with Center (x and y = 0)
WinSetOnTop "Mozilla Firefox*" "MozillaWindowClass" -2 -2 0 0 400 400 -1 (or Nothing or 0)
detto with setontop, activation Center and no size change , moves the window to the monitor #2
WinSetOnTop "*Firefox*" "" 0 0 0 0 0 0 2 (or -1 0 0 0 0 0 2)
detto with setontop and moves the window on the monitor with the mouse pointer
WinSetOnTop "*Firefox*" "" 0 -1 0 0 0 0 0 (or Nothing or 0)
The same as
WinSetOnTop "*Firefox*"

See integrated function Help too...

Have fun with it!!!

wfg. from Schindi aus Austria

WinSetOnTop.qml (Size: 8 KB / Downloads: 80)

Get Week of Year - (Funktion Kalenderwoche)

Thu, 25 Sep 2025 07:32:30 +0000

If you need a Funktion for Week of the Year...

(Internationale ISO 8601 Kalender-Wochen-Nummerierung)

Siehe
https://kalenderwoche-online.de
https://www.brepols.com/Data/Downloads/ISO8601_RULE_FOR_DEFINING_WEEKNUMBERS.pdf

The QM - built-in function: s.time( "%W" ) gives me an incorrect result for today: week 38 instead of 39 (= the same as C style parameter %U)

New: Correction of the FIRST and the LAST Days in the Year (Schaltjahre / Leap years wo der 1.1. auf einen Mittwoch fällt, sind jetzt auch noch implementiert - diese haben auch 53 KW - hiezu verwenden ich die Function / I Use: "GetDaysInMonth" from TheVig and rename it to Funktion: "Schaltjahr")

Bemerkung: Ist der Rückgabewert "0" so liegt der Tag noch in der letzen KW des Vorjahres - die letzte KW des Vorjahres wird in einem 2. Durchgang ermittelt...

Neu: Jetzt ist auch der Funktionsaufruf mit/ohne Datumsangabe und Rückgabewert 2-stellig oder im internationalen Format möglich...

If there's an even simpler solution in QM (NOT MS-EXCEL or MS-OL...), please post it...

Alle benötigten QM-Macros samt einem Beispiel- (Test-) Macro und ein KW-Tray Programm sind im Anhang zum Download!
see also: https://www.libreautomate.com/forum/show...p?tid=7878

Code:
function'str [iY] [iM] [iD]  ;;WeekOfYear

  Die ISO 8601-Wochennummerierung folgt diesen Regeln:

    Wochenstart: Jede Woche beginnt an einem Montag und endet an einem Sonntag.

    Erste Woche: Die erste Woche des Jahres ist diejenige, die den ersten Donnerstag des Jahres enthält.

    Eine 53. Woche tritt auf, wenn der erste und der letzte Tag des Jahres ein Donnerstag ist,

    oder ein Schaltjahr wo der 1.Tag ein Mittwoch ist...

    Wenn vor der Jahreszahl ein Minuszeichen angegeben wird, wird nur die KW (=2-stelliger String) ausgegeben!

    Beispiele/Examples:

    WeekOfYear() or WeekOfYear(0) or WeekOfYear(-1) ;;Gets KW-String or KW-Short String from Todays Date

    WeekOfYear( 2026 12 31 );;Gets KW or KW-String from 31.Dez.2026 = 2026-W53-4

    WeekOfYear( 2027 01 01 );;Gets KW or KW-String from 1.Jän.2027 = Last KW from Last Year = 2026-W53-5

    WeekOfYear( 2027 01 04 );;Gets KW or KW-String from 4.Jän.2027 = 1. Day in 1. KW = 2027-W01-1

    WeekOfYear( -2027 01 04 );;Gets only KW from 4.Jän.2027 = 1. Day in 1. KW = 01

DATE dD

str sY

if iY <= 0

    sY.time( "%Y" )

else

    dD=F"{iD}/{iM}/{iY}"

    sY.time( dD "%Y" )

if iY < -1

    int iNoString=1

    iY=iY*-1

    dD=F"{iD}/{iM}/{iY}"

    sY.time( dD "%Y" )

if iY=-1

    iNoString=1

int iGLY=0

iY=val(sY)

 _GLY

;Jahr ermitteln

;sY=2027

;out F"01/01/{iY}"

;out F"iGLY={iGLY}"

if iGLY=1

    iY=iY-1

    ;out iY

;Wochentag ermitteln (nur 1. Durchlauf)

if iGLY=0

    str sDOW.time( dD "%w")

    if sDOW=0;sDOW=7

    ;mes sDOW

;Wochentag des 01.01. ermitteln

DATE dD0101=F"01/01/{iY}"

if iGLY=1

    dD0101=F"31/12/{iY}"

;out F"DATE:{dD0101}"

str sDN0101.time( dD0101 "%w")

if sDN0101="0"

    sDN0101="7"  ;;Sunday = 7. Day for Calc!

;out F"sDN0101={sDN0101}"

int iKorr0101=1

if val(sDN0101)>4

    iKorr0101=0

;;Bugfix!

if val(sDN0101)=1

    iKorr0101=0

;out iKorr0101

int iWOY

iWOY=val(sY.time(dD "%W"))+iKorr0101

if iGLY=1

    dD=F"31/12/{iY}"

    iWOY=val(sY.time(dD "%W"))+iKorr0101

;out iWOY

int iYC=0

if iWOY>52 ;;Korr KW 53

    iWOY=1

    iYC=1

    if val(sDN0101)=4

        iWOY=53

        iYC=0

    ;ermittle ob Schaltjahr

    if Schaltjahr(02 iY)=29  ;;I Use Function: "GetDaysInMonth" from TheVig and rename it to Funktion: "Schaltjahr")

        if val(sDN0101)=3

            ;mes "Schaltjahr!!!"

            iWOY=53

            iYC=0

;out iWOY

if iWOY=0

    ;mes "GLY=true"

    iGLY=1

    goto _GLY

;;internationales Format:

str sWOY=iWOY

if iWOY<10

    sWOY=F"0{iWOY}"

if iNoString=1

    ret sWOY

;out F"{iY+iYC}-W{sWOY}-{sDOW}"

ret F"{iY+iYC}-W{sWOY}-{sDOW}"

end

wfg. from Schindi aus Austria

  Test_WeekOfYear_Func.qml (Size: 4 KB / Downloads: 67)

  WeekOfYear.qml (Size: 5 KB / Downloads: 59)

  Schaltjahr.qml (Size: 3 KB / Downloads: 59)

  KW-Tray.zip (Size: 270.85 KB / Downloads: 70)

Parse and create JSON with Chilkat ActiveX

Tue, 10 Jun 2025 07:29:50 +0000

Setup

Download the 32-bit zip file from https://www.chilkatsoft.com/downloads_ActiveX.asp
Unzip the dll to the QM folder. Don't need other files.

Run this macro if need a manifest file for registration-free COM activation using __ComActivator.
Macro Chilkat create manifest

Code:
;Creates manifest file for __ComActivator ca.Activate("$qm$\ChilkatAx-win32.X.manifest")

__ComActivator_CreateManifest "$qm$\ChilkatAx-win32.dll"

Examples

Macro Parse JSON

Code:
;Uses Chilkat ActiveX.

;Docs: https://www.chilkatsoft.com/refdoc/xChilkatJsonObjectRef.html

;Download: https://www.chilkatsoft.com/downloads_ActiveX.asp

;JSONPath online evaluator and docs: https://jsonpath.com/

;__ComActivator ca.Activate("$qm$\ChilkatAx-win32.X.manifest") ;;enable this if want to use the library without COM registration, eg in exe. Note: QM anyway auto-registers when compiling.

typelib Chilkat "$qm$\ChilkatAx-win32.dll"

out

str json=

;{

;"one":"ONE",

;"two":2,

;"obj": {

;;"three":"THREE",

;;"four":"FOUR",

;;"bool":true

;},

;"arr":["A", "B", {"six":"SIX","seven":"SEVEN"}]

;}

ChilkatJsonObject j._create

j.Load(json)

out j.StringAt(0)

out j.IntAt(1)

out j.IntOf("two")

out j.StringOf(".obj.four")

out j.BoolOf(".obj.bool")

out j.FindObjectWithMember("three").StringOf("four")

out j.FindObjectWithMember("six").StringOf("seven")

;arrays:

out j.ArrayOf("arr").StringAt(1) ;;OK

;out j.StringOf(".arr[1]") ;;why fails?

out j.StringOf(".arr[1:2]") ;;OK

out j.StringOf(".arr[2:3].six") ;;OK

out j.ArrayOf("arr").ObjectAt(2).StringOf("seven") ;;OK

;if need a variable:

;IChilkatJsonArray a=j.ArrayOf("arr"); out a.StringAt(1)

;IChilkatJsonObject o=j.ArrayOf("arr").ObjectAt(2); out o.StringOf("six")

;the functions don't throw exceptions but set last error:

if(!j.LastMethodSuccess) out j.LastErrorText

Macro Create JSON

Code:
;Uses Chilkat ActiveX.

;Docs: https://www.chilkatsoft.com/refdoc/xChilkatJsonObjectRef.html

;Download: https://www.chilkatsoft.com/downloads_ActiveX.asp

;__ComActivator ca.Activate("$qm$\ChilkatAx-win32.X.manifest") ;;enable this if want to use the library without COM registration, eg in exe. Note: QM anyway auto-registers when compiling.

typelib Chilkat "$qm$\ChilkatAx-win32.dll"

out

ChilkatJsonObject j._create

j.AppendString("one" "ONE")

j.AppendInt("two" 2)

IChilkatJsonObject o=j.AppendObject("obj")

o.AppendString("three" "THREE")

o.AppendBool("four" 1)

IChilkatJsonArray a=j.AppendArray("arr")

a.AddStringAt(-1 "A")

a.AddStringAt(-1 "B")

a.AddObjectAt(-1)

a.ObjectAt(a.size-1).AppendString("C" "CC")

a.ObjectAt(a.size-1).AppendBool("D" 1)

j.EmitCompact=0

str json=j.Emit()

out json

Restoring an environment variable

Fri, 13 Dec 2024 07:20:41 +0000

Macro TempEnvVar help

Code:
;Auto-restores an environment variable. Or auto-deletes if did not exist.

;Example

TempEnvVar x.Var("TEST") ;;need just this single line

GetEnvVar("TEST" _s); out F"old: {_s}"

SetEnvVar("TEST" "new value")

GetEnvVar("TEST" _s); out F"new: {_s}"

;The TempEnvVar destructor restores or deletes the variable. It runs when the macro or function ends, even on exception.

TempEnvVar.qml (Size: 3 KB / Downloads: 173)

Send email without mailbee

Mon, 01 Nov 2021 13:52:26 +0000

Sends email. Uses C# and .NET instead of mailbee.

Function SendMailCs

Code:
;/

function $account $to $subject $text [flags] [$headers] [$attachments] ;;flags: 1 HTML

;Sends email message.

;account - SMTP settings. See example.

;to - email.

;subject - subject.

;text - text.

;headers - XML containing additional headers. See example.

;attachments - XML containing attachments. See example.

;REMARKS

;Text encodings not tested.

;EXAMPLES

;str account=

;;

;;host='smtp.example.com'

;;user='me@example.com'

;;password='PASSWORD'

;;port='587'

;;ssl='true'

;;timeout='30'

;;email='sender-email-optional-if-user-is-email@example.com'

;;displayName='optional sender name'

;;/>

;SendMailCs account "friend@example.com" "Test" "Hi"

;

;str headers=

;;

;;kkkkkkkk

;;mmmmmmmm

;;

;str attachments=

;;

;;c:\test\image.png

;;c:\test\program.exe

;;

;SendMailCs account "friend@example.com" "Test2" "Hi, HTML" 1 headers attachments

;CsScript bug(?): strings cannot be null

if(!headers) headers=""

if(!attachments) attachments=""

CsScript x.SetOptions("references=System.XML")

x.AddCode("")

x.Call("Email.Send" account to subject text flags&1 headers attachments)

#ret

//C# code

using System;

using System.Net;

using System.Net.Mail;

using System.Xml.Linq;

public class Email {

,static public void Send(string account, string email, string subject, string body, bool isHtml, string headers, string attachments) {

,,string host=null, user=null, password=null, fromEmail=null, fromName=null;

,,int port=0, timeout=60;

,,bool ssl=false;

,,var x=XElement.Parse(account);

,,foreach(var k in x.Attributes()) {

,,,switch(k.Name.LocalName) {

,,,case "host": host=(string)k; break;

,,,case "user": user=(string)k; break;

,,,case "password": password=(string)k; break;

,,,case "email": fromEmail=(string)k; break;

,,,case "displayName": fromName=(string)k; break;

,,,case "port": port=(int)k; break;

,,,case "timeout": timeout=(int)k; break;

,,,case "ssl": ssl=(bool)k; break;

,,,}

,,}

,,

,,var fromAddress = new MailAddress(fromEmail != null ? fromEmail : user, fromName);

,,var toAddress = new MailAddress(email);

,,using(var smtp = new SmtpClient {

,,,Host = host,

,,,Port = port,

,,,EnableSsl = ssl,

,,,DeliveryMethod = SmtpDeliveryMethod.Network,

,,,UseDefaultCredentials = false,

,,,Credentials = new NetworkCredential(user, password),

,,,Timeout = timeout*1000,

,,})

,,using (var m = new MailMessage(fromAddress, toAddress) {

,,,Subject = subject,

,,,Body = body,

,,,IsBodyHtml = isHtml

,,}) {

,,,if(!string.IsNullOrEmpty(headers)) {

,,,,x=XElement.Parse(headers);

,,,,foreach(var k in x.Elements()) m.Headers.Add(k.Attribute("name").Value, k.Value);

,,,}

,,,if(!string.IsNullOrEmpty(attachments)) {

,,,,x=XElement.Parse(attachments);

,,,,foreach(var k in x.Elements())  {

,,,,,var mta=k.Attribute("mediaType");

,,,,,m.Attachments.Add(new Attachment(k.Value, mta!=null ? mta.Value : null));

,,,,}

,,,}

,,,smtp.Send(m);

,,}

,}

}

Web browser control - disable IE7 emulation

Mon, 14 May 2018 03:48:05 +0000

Function WebBrowserControlDisableIE7Emulation

Code:
;/

function [flags] ;;flags: 1 for all users

;Ensures that web browser controls of this program (qm.exe or qmmacro.exe or your QM-created exe) can use features of current Internet Explorer version (CSS3, HTML5 etc).

;REMARKS

;By default, web browser controls work in compatibility mode with Internet Explorer 7. IE 8/9/10/11 features are unavailable.

;This function sets this registry value, if it is missing or different:

;;;SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION:=

;By default sets its only for current user, in HKEY_CURRENT_USER. If flag 1, sets for all users, in HKEY_LOCAL_MACHINE; then error if this process is not running as administrator.

;You can call this function before ShowDialog if the dialog contains an ActiveX control SHDocVw.WebBrowser. Or call it once.

if(_iever<8) ret

str e.getfilename(ExeFullPath 1)

;out e

int t v=_iever>>8*1000

;out v

int h=iif(flags&1 HKEY_LOCAL_MACHINE HKEY_CURRENT_USER)

lpstr k="SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION"

if(rget(t e k h) and t=v) ret

;out t

if(!rset(v e k h)) end ERR_ADMIN

Auto-enable accessible objects in Chrome

Tue, 18 Jul 2017 07:45:07 +0000

The Chrome web browser supports accessible objects in web pages, but this is disabled by default. QM tries to auto-enable it on demand, but with some Chrome versions it fails (always or in some cases).

You can explicitly enable Chrome accessible objects: run chrome.exe with command line --force-renderer-accessibility. Before it make sure there are no hidden chrome.exe processes.

Code:
run "chrome.exe" "--force-renderer-accessibility"

The alternative way (code deleted) no longer works. Use the above way.

Pastebin

Sat, 15 Oct 2016 09:11:16 +0000

http://pastebin.com
http://pastebin.com/api

Macro Pastebin help

Code:
;Wraps pastebin API.

;http://pastebin.com/api

;The functions throw error if failed, for example if an argument is invalid.

;EXAMPLES

str devKey="xxxxxxxxxxxxxxxxxxxxxxxxxxxx"

str user="xxxxxxxx"

str password="xxxxxxxx"

str text=

;test

;Pastebin class

str response

#compile "__Pastebin"

Pastebin x.Init(devKey)

sel ListDialog("Paste as guest[]Paste as user[]List user's pastes[]Get a paste[]Delete a paste" "Run example" "Pastebin")

,case 1 ;;paste as guest

,response=x.Paste("text pasted as guest" "example" 1 "10M")

,out response

,run response

,

,case 2 ;;paste as user

,x.Login(user password)

,response=x.Paste("text pasted as user" "example" 2)

,out response

,run response

,

,case 3 ;;list

,x.Login(user password)

,response=x.List()

,out

,out response

,

,case 4 ;;get

,x.Login(user password)

,response=x.Get("45VaC3eG")

,out response

,

,case 5 ;;delete

,x.Login(user password)

,x.Delete("45VaC3eG")

Pastebin.qml (Size: 8 KB / Downloads: 793)

Set end-thread hotkey

Fri, 29 Jul 2016 05:08:24 +0000

Function SetEndThreadHotkey

Code:
;/

function $hotkey

;Sets a hotkey to end current thread (running macro or function).

;hotkey - a single key without modifiers (Ctrl etc), specified as QM key code like with key and QM keyboard triggers.

;EXAMPLE

;SetEndThreadHotkey "F8"

;;macro

;rep

,;out 1

,;wait 1

int mod vk; if(!TO_HotkeyFromQmKeys(hotkey mod vk)) end "invalid hotkey string"

if(mod) end "modifier keys not supported"

QMTHREAD qt; GetQmThreadInfo(0 qt)

mac "sub.Thread" "" qt.threadhandle vk

#sub Thread

function ht vk

int- __ht82657(ht) __vk82657(vk)

int hh=SetWindowsHookEx(WH_KEYBOARD_LL &sub.Hook_WH_KEYBOARD_LL _hinst 0)

opt waitmsg 1

wait 0 H ht

UnhookWindowsHookEx hh

#sub Hook_WH_KEYBOARD_LL

function# nCode message KBDLLHOOKSTRUCT&k

if(nCode<0) goto gNext

if(k.flags&(LLKHF_UP|LLKHF_INJECTED)) goto gNext

int- __ht82657 __vk82657

if k.vkCode=__vk82657

,EndThread "" __ht82657

,ret 1

;gNext

ret CallNextHookEx(0 nCode message &k)

example
Macro Macro2718

Code:
;add this line before the macro. Change the hotkey.

SetEndThreadHotkey "F12"

;your macro (example)

rep

,out 1

,wait 1

This can be useful where the common hotkey (Pause) cannot be used:
To end a non-macro thread (function etc).
When the macro has property "run simultaneously".
When you want to use a separate end-thread hotkey for some macros.
This also can be used to end .exe macros, but probably it's better to set hotkey in the "Make exe" dialog.

Execute Python code in QM

Sat, 02 Jul 2016 14:02:17 +0000

These functions can be used to execute Python code in QM.

Python setup

1. Download Python 32-bit (not 64-bit) from https://www.python.org/downloads/windows/
   Note: may not work with Python 3.12 and later. Works with 3.11.
2. Uninstall other versions of 32-bit Python.
3. Run the downloaded Python installer as administrator.
4. Check "Add python.exe to PATH".
5. Install.
6. Run cmd as administrator. Run it directly from explorer (eg Start menu), else it may inherit old environment variables.
7. In cmd run: where python
   It should print one or more paths. One of them must be of the new installed 32-bit Python. Copy it without "\python.exe" to the clipboard.
8. In cmd change current directory to the copied. Example:
   cd C:\Users\me\AppData\Local\Programs\Python\Python312-32
9. In cmd run: python -m pip install --upgrade pywin32
10. In cmd run one of the following. The first installs just what need for QM, the second something more.
   python Lib\site-packages\win32comext\axscript\client\pyscript.py
   python Scripts/pywin32_postinstall.py -install
11. Exit QM (not just close window). Run QM again. Now QM Python functions should work.

--
The SETUP instructions in the downloaded macro are now obsolete.

  Python.qml (Size: 10 KB / Downloads: 1407)

Windows API declarations for C#

Mon, 20 Jun 2016 07:24:15 +0000

Download

This is for C# programmers, not for QM. In QM can be used only in C# scripts.

Contains 48000 declarations of struct, enum, delegate, extern functions, interfaces, coclasses, Guid, const.

Converted commonly used Windows 10 SDK header files. The list is below.

Tools used to convert C to C#:
Quick Macros - scripting.
Clang - preprocessing.
Dumpbin from SDK - extracting dll names and GUID.
My C-to-C# converter project.

More declarations may be added in the future. Usually for me it is easy to do with these tools. Your suggestions are welcome.

Macro SDK headers

Code:
//#define __cplusplus 201103L //clang defines this

#define _MSC_VER 1900 //VS2015

#define _MSC_FULL_VER 190023026

#define _MSC_EXTENSIONS 1

#define _UNICODE 1

#define UNICODE 1

#define _WCHAR_T_DEFINED 1

#define _MT 1

#define _DLL 1

#define _WIN32 1 //defined for 32 and 64

#ifdef USE64BIT

#define _WIN64 1

#define _M_AMD64 100

#define _M_X64 100

#else

#define _M_IX86 600

#endif

#define _INTEGRAL_MAX_BITS 64 //need if 32

#define WINVER 0x0A00 //Win10

#define _WIN32_WINNT 0x0A00

#define _WIN32_IE 0x0B00 //IE11

//add __int128 struct, because C# does not have a matching type

struct __int128 { float a, b, c, d; };

struct __int128d { float a, b, c, d; };

struct __int128i { float a, b, c, d; };

//prevent adding XML interfaces, but need some for parameters

#define __msxml_h__

#define __msxml2_h__

#define __msxml6_h__

typedef IntPtr IXMLElement;

typedef IntPtr IXMLDOMDocument;

//add some that are in headers that we remove

#define size_t LPARAM

#define intptr_t LPARAM

#define uintptr_t LPARAM

#define time_t LPARAM

typedef void* va_list;

typedef struct _iobuf { char *_ptr; int _cnt; char *_base; int _flag; int _file; int _charbuf; int _bufsiz; char *_tmpfname; } FILE;

#define WIN32_LEAN_AND_MEAN //don't include come rarely used headers in windows.h

#define USE_COM_CONTEXT_DEF //IContext etc

#include <windows.h>

#include <regstr.h> //registry strings

#include <ole2.h> //OLE. Includes objbase.h, oleauto.h, urlmon.h, ...

#include <commctrl.h> //common controls

#include <shlobj.h> //shell

#include <shellapi.h> //shell

#include <shlwapi.h> //misc string functions etc

#include <olectl.h> //some OLE API

#include <oleacc.h> //MSAA accessible objects

#include <UIAutomation.h> //UI Automation

#include <mmsystem.h> //multimedia etc

#include <tlhelp32.h> //process info etc

#include <psapi.h> //process info etc

#include <wtsapi32.h> //user sessions etc

#include <winperf.h> //something used with PDH

#include <pdh.h> //performance counters //TODO: test System.Diagnostics.PerformanceCounter

#include <uxtheme.h> //visual styles

#include <vsstyle.h> //visual styles

#include <dwmapi.h> //DWM

#include <htmlhelp.h> //HTML help

#include <winioctl.h> //file IO low-level

#include <aclapi.h> //security //TODO: test System.Security.AccessControl etc

#include <sddl.h> //security strings

#include <taskschd.h> //Task Scheduler

#include <ShellScalingAPI.h> //high DPI

#include <appmodel.h> //Windows Store apps

#include <winternl.h> //Windows semi-internal API, eg NtX, RtlX

#include <iepmapi.h> //IE protected mode

#include <userenv.h> //user profiles, CreateEnvironmentBlock

#include <netlistmgr.h> //network list

#include <winnetwk.h> //networking

#include <cderr.h> //commdlg errors

#include <commdlg.h> //common dialogs //TODO: test System.Windows.Forms.OpenFileDialog, .FontDialog etc.

#include <dde.h> //DDE

#include <ddeml.h> //DDE

#include <wininet.h> //internet. We can instead use System.Net.Http namespace and System.Net.FtpWebRequest classes, but maybe this still can be useful.

#define _WINSOCK_DEPRECATED_NO_WARNINGS

#include <winsock2.h> //sockets (TCP etc) //TODO: test System.Net.Sockets

#include <nspapi.h> //MS extensions for sockets

#include <richedit.h> //rich edit control

#include <usp10.h> //text drawing low-level

#include <dbt.h> //const/struct for WM_DEVICECHANGE

#include <ktmw32.h> //file transaction

#define _MSI_NO_CRYPTO

#include <msi.h> //installer. MsiGetShortcutTarget, MsiGetComponentPath.

#include <commoncontrols.h> //IImageList

#include <powrprof.h> //power profiles, SetSuspendState

#include <lm.h> //LAN management, NetServerEnum

#include <Wlanapi.h> //WiFi

#include <adhoc.h> //WiFi

#include <mscoree.h> //unmanaged .NET API

//core audio API

#include <Audioclient.h>

#include <Audiopolicy.h>

#include <Mmdeviceapi.h>

#include <Devicetopology.h>

#include <Endpointvolume.h>

#if 0

//these are little tested and probably not useful

#include <iphlpapi.h> //IP helper, eg list network adapters. Use System.Net.NetworkInformation namespace.

#include <icmpapi.h> //ICMP, eg to implement a Ping(). Use System.Net.NetworkInformation namespace.

#include <GL/gl.h> //openGL

#include <GL/glu.h> //openGL util

//these are never tested but seem interesting

#include <RestartManager.h> //restart manager

#include <Pla.h> //performance logs and alerts

#include <Esent.h> //extensible storage engine

#include <Clfsw32.h> //common log file system. .NET has something similar in System.Diagnostics.

#include <Clfsmgmtw32.h> //common log file management. .NET has something similar in System.Diagnostics.

#include <WinEvt.h> //event log. .NET has something similar in System.Diagnostics.

#include <Winsxs.h> //several interfaces for side-by-side assembly management

//these probably should not be added

#include <shldisp.h> //shell IDispatch interfaces

#include <scrnsave.h> //screen saver

#include <dbghelp.h> //debug help library

#include <imagehlp.h> //many the same as dbghelp.h. Includes wintrust.h -> wincrypt.h which is not welcome.

#include <setupapi.h> //obsolete

#include <mapi.h> //only for MS Outlook. Can instead use Outlook COM.

#include <snmp.h> //can instead download a SNMP .NET library

#include Sspi.h //authentication. Includes Security.h. Use .NET classes.

//these would be included if no WIN32_LEAN_AND_MEAN

#include <winefs.h> //encrypted file system. .NET can encrypt/decrypt a file, but maybe this also can be useful.

#include <winspool.h> //printer API. Big. Use System.Drawing.Printing namespace. See also System.Printing namespace.

#include <wincrypt.h> //cryptography. Large. Use System.Security.Cryptography namespace.

#endif

How to use the downloaded file containing Windows API declarations:

Code:
// Don't add this file to your project. Copy-paste only declarations that you need.

// Not all declarations can be compiled without editing.

//    For example, cannot declare some struct pointer (use IntPtr instead, or in struct replace non-blittable types with IntPtr etc), cannot use undefined struct pointer/ref/out (use IntPtr instead).

// Not all declarations are correct, usually because declarations in Windows SDK files from which they have been automatically converted lack some info.

//    For example, some function parameters that should be 'out' or '[Out]' or '[In]' or array now are just 'ref', because SDK declarations didn't have proper in/out annotations. Also for this reason some parameters that should be 'string' now are 'StringBuilder'.

//    You may want to create overloads where parameters can be of more than one type.

//    You may want to add 'SetLastError=true' to DllImport attribute parameters.

// Some declarations contain pointers and therefore can be used only in 'unsafe' context, in some cases with 'fixed'. Or you can replace pointers to IntPtr.

// These declarations are for Windows 10. Some Windows API are different or missing on other Windows versions.

// In some cases need to use different declarations in 32-bit and 64-bit process. This file contains everything that is not different, + 64-bit versions, + 32-bit versions with name suffix ""__32"".

Also known as P/invoke, pinvoke, platform invoke signatures, call unmanaged dll exported methods, Win32 API, COM interop.

open web page with POST variables

Mon, 29 Dec 2014 16:26:17 +0000

I am trying to open a web page with POST instead of GET in order to post some variables to it, but I can't get the code to work. The page opens, but it does not receive the POST variables.

VARIANT flags=0
VARIANT target="_blank"
VARIANT* postdata
VARIANT headers = "Content-Type: application/x-www-form-urlencoded"
SAFEARRAY* psa
str data="a=hello"

psa = SafeArrayCreateVector(VT_UI1,0,len(data))
SafeArrayAccessData(psa, &data)
SafeArrayUnaccessData(psa) ;; not sure if this is needed

postdata = psa

SHDocVw.IWebBrowser2 b=web("")
b.Navigate("http://siuhradweb/test.php" &flags &target postdata &headers)

COeMessages help

Mon, 24 Nov 2014 11:44:43 +0000

Referring to : Getting and managing Outlook Express messages and folders

I am wondering about the way these routines may be modified in order to handle messages of an OE identity, other than Main Identity.

I understand the information here is relevant :
http://stackoverflow.com/questions/2005 ... using-code

Any advice is welcome. Many thanks in advance.

Selenium web recorder and QM

Mon, 15 Sep 2014 09:09:08 +0000

2014-11-24. Updated to work with Selenium IDE 2.8.0. Tested WebDriver 2.44, now works with Firefox.

This class allows to automate Internet Explorer, Firefox and Chrome using Selenium WebDriver.
Selenium is a web recorder and API for web page automation, eg for automated testing. Free, open-source.
Selenium downloads: http://docs.seleniumhq.org/download/
Selenium scripts can be recorded/edited with the Selenium IDE or created manually in QM.
To export current script (Test Case) from Selenium IDE to QM, use the small toolbar with QM icon that QM adds to the IDE.
In QM macros the scripts can be executed in 2 ways:
1. Call ISelenium interface functions directly. The QM Selenium toolbar button creates such code if in Selenium IDE menu Options -> Clipboard Format is selected C# Remote Control.
2. Call a user-defined C# function that uses functions of IWebDriver and other Selenium classes/interfaces available in C#. The QM Selenium toolbar button creates such code if in Selenium IDE menu Options -> Clipboard Format is selected C# WebDriver.
You can find the Selenium API reference in the Selenium website or in the help file downloaded with C# language bindings.

Selenium setup:
Create folder for Selenium files. It should be QM folder's subfolder Selenium ($qm$\Selenium); if not, will need to specify it with SetOptions().
Selenium consists of multiple components without a common installer. Download what you need.
From Selenium website you need:
Selenium IDE. Need it only to record web actions, don't need to run Selenium scripts.
Selenium WebDriver bindings for C#. Create folder C# in the Selenium folder ($qm$\Selenium\C#) and add there all files from downloaded folder net35 (WinXP/7) or net40 (Win8/10).
If you'll use IE, download Internet Explorer Driver Server. Add IEDriverServer.exe to the Selenium folder.
If you'll use Chrome, download Chrome browser driver. Add chromedriver.exe to the Selenium folder.
Also you need:
Windows XP SP2 or later.
.NET framework 3.5 or 4.x. Windows 7 and 8 have it. If your Windows is older and the .NET framework is not installed, download .NET 3.5 from Microsoft.
Firefox. Only for Selenium IDE, because it is a Firefox plugin.
Also you may need:
NUnit. Only if you'll use Assert.IsTrue etc in C#. Don't need for ISelenium functions. Install NUnit eg in Program Files, and copy nunit.framework.dll to the Selenium folder.

Selenium problems:
There are no ways to automate an existing browser instance.
You can reuse only the browser instance started by StartChrome() etc without flag 1 in same QM process.
Also it means that if QM is running as admin, browser processes also run as admin. It is not good for security.
Manually closing a Selenium-started browser does not close its driver process and does not delete temporary files (eg a Firefox profile may be 30 MB).
The correct way to close browser - call Quit in the macro. Or use flag 1 with StartChrome() etc, then Quit is called automatically.
Without flag 1, StartChrome() etc correctly closes the browser that was previously started by the same function (StartChrome() etc) without flag 1 in same QM process.
Another correct way - use flag 2 with StartChrome() etc. It shows a driver console window if the browser is Chrome or IE. Let the user close the console after closing its controlled browser.
If using IE, may need to change Protected Mode in IE Options -> Security. Must be the same in all zones.
The IE driver process may crash when an ISelenium function does not find an element.
Selenium-started IE does not respond to user clicks.
On one of my computers did not work correctly with IE if Java is not installed. You can download Java 32-bit from Oracle. Look in Control Panel, maybe you already have it.
Does not support high DPI. Clicks in wrong place. Tested only with IE.
Does not give the browser window handle. If you need it, use win() after StartChrome() etc.
WebDriver 2.42 did not work with Firefox 32 and later. Version 2.44 works.

Examples
Macro WebDriver help

Code:
;Example with ISelenium functions called from QM macro

#region Selenium, recorded 2014.09.13 08:21

#compile "__WebDriver"

WebDriver x.Init("")

str baseURL="http://www.quickmacros.com"

ISelenium selenium=x.StartChrome(baseURL) ;;StartChrome, StartFirefox or StartIE

selenium.Open("/index.html")

selenium.Click("id=m_forum"); selenium.WaitForPageToLoad("30000")

selenium.Click("link=QM Extensions"); selenium.WaitForPageToLoad("30000")

if(mes("Close browser?" "" "YN?2")='Y') x.Quit

#endregion

Macro WebDriver help

Code:
;Example with IWebDriver functions called from C# code

#region Selenium, recorded 2014.09.13 08:21

#compile "__WebDriver"

WebDriver x2.Init(__FUNCTION__)

str baseURL2="http://www.quickmacros.com"

x2.StartChrome(baseURL2) ;;StartChrome, StartFirefox or StartIE

x2.x.Run

if(mes("Close browser?" "" "YN?2")='Y') x2.Quit

#endregion

#ret

public void Run(){

driver.Navigate().GoToUrl(baseURL + "/index.html");

driver.FindElement(By.Id("m_forum")).Click();

driver.FindElement(By.LinkText("QM Extensions")).Click();

}

Selenium.qml (Size: 36 KB / Downloads: 1453)

Image manipulation with FreeImage graphics library

Wed, 19 Mar 2014 05:27:15 +0000

Macro FiBitmap help

Code:
;FreeImage API declarations, and class FiBitmap.

;FreeImage is a graphics library, http://freeimage.sourceforge.net/download.html

;Download FreeImage DLL and Documentation. Don't need source. Put FreeImage.dll in QM folder.

;FreeImage is good for converting image file formats and basic image manipulation with good quality - resize, etc. Unlike many other graphics libraries like ImageMagick, you need just single dll file (~3MB), don't need to install. Easy to use, well documented.

;Other alternatives that can be easily used in QM: GDI+ (a Windows component), GflAx (a COM component, seems abandoned). Search forum.

;Class FiBitmap stores and manages FIBITMAP*. Auto-deletes when destroying the variable.

;The class wraps just basic FreeImage API functions - load, save, etc.

;All FreeImage API functions etc can be accessed through FIMG, like FIMG.FreeImage_GetWidth(x) or FIMG.FIF_BMP.

;A FiBitmap variable can be used with FreeImage API functions as FIBITMAP*.

;EXAMPLES

#compile "__FreeImage" ;;declares FIMG and FiBitmap. You can put this line in your init2 function, or in macros where used.

FI_ShowMoreErrorInfo ;;optional

FiBitmap x

str test=

;1 convert file format bmp to png

;2 capture image from screen and save as png file

;3 load png file and store the bitmap in clipboard

;4 load png file and draw in a window

;5 resize to 50%

;6 load/save from/to memory

;7 load from resources (QM 2.4.1+)

sel ShowMenu(test)

,case 1 ;;convert file format bmp to png

,x.Load(FIMG.FIF_BMP "$my qm$\test.bmp")

,x.Save(FIMG.FIF_PNG "$my qm$\test-conv.png")

,

,case 2 ;;capture image from screen and save as png file

,__GdiHandle hb

,if(!CaptureImageOrColor(hb 0)) ret

,x.FromHBITMAP(hb)

,x.Save(FIMG.FIF_PNG "$my qm$\test-capt.png")

,

,case 3 ;;load png file and store the bitmap in clipboard

,x.Load(FIMG.FIF_PNG "$my qm$\test-conv.png")

,;__GdiHandle hb2=x.ToHBITMAP ;;no, don't need to delete bitmap stored in clipboard

,int hb2=x.ToHBITMAP

,OpenClipboard 0; EmptyClipboard

,SetClipboardData CF_BITMAP hb2

,CloseClipboard

,

,case 4 ;;load png file and draw in a window

,x.Load(FIMG.FIF_PNG "$my qm$\test-conv.png")

,int hwnd=0 ;;screen. Normally you would draw in a window/dialog procedure on WM_PAINT, and use BeginPoint/EndPaint instead of GetDC/ReleaseDC.

,RECT r; SetRect &r 0 0 FIMG.FreeImage_GetWidth(x) FIMG.FreeImage_GetHeight(x)

,int hdc=GetDC(hwnd)

,x.Draw(hdc r)

,ReleaseDC hwnd hdc

,

,case 5 ;;resize to 50%

,x.Load(FIMG.FIF_BMP "$my qm$\test.bmp")

,int newWidth=FIMG.FreeImage_GetWidth(x)/2

,int newHeight=FIMG.FreeImage_GetHeight(x)/2

,FiBitmap x2.Attach(FIMG.FreeImage_Rescale(x newWidth newHeight FIMG.FILTER_BSPLINE))

,x2.Save(FIMG.FIF_BMP "$my qm$\test-siz.bmp")

,

,case 6 ;;load/save from/to memory

,str s1 s2

,s1.getfile("$my qm$\test.bmp")

,x.LoadMem(FIMG.FIF_BMP s1)

,x.SaveMem(FIMG.FIF_JPEG s2)

,s2.setfile("$my qm$\test-mem.jpg")

,

#if QMVER>=0x02040100

,case 7 ;;load from resources

,s1.getfile("$my qm$\test.bmp")

,;_qmfile.ResourceAdd(+-1 "test FiBitmap.bmp" s1 s1.len) ;;add a bitmap resource for testing

,;x.Load(FIMG.FIF_BMP "resource:test FiBitmap.bmp")

,s1.encrypt(32); _qmfile.ResourceAdd(+-1 "image:test FiBitmap" s1 s1.len) ;;add a compressed .bitmap resource for testing

,x.Load(FIMG.FIF_BMP "image:test FiBitmap")

,x.Save(FIMG.FIF_PNG "$my qm$\test-res.png")

#endif

,

Download FreeImage DLL from
http://freeimage.sourceforge.net/download.html
Extract FreeImage.dll to QM folder. In the zip file it is probably in folder Dist\x32.
Also download and import the attached QM file.

FreeImage.qml (Size: 45 KB / Downloads: 1235)