LA/QM forum - Shared QM code

VISIO Vektor Frame Generator

Wed, 22 Oct 2025 08:59:01 +0000

Automatically creates a vector graphic from a selected MS-VISIO shape and creates a colored frame around it
(or only to Trace/vektorizierung a Shape...)

I built this macro to create overlay images, similar to AXIALIS IconGenerator . . .

Because the direct copy and paste of MS-VISIO shapes in INKSCAPE doesn't really work, I wrote this tool to solve this problem and other...

BUGFIX: Error occurs (only) when I call this program via my "VISIO SchindiSoft Visio ADD-IN":
Because I'm calling this program via my "SchindiSoft Visio ADD-IN", since Inkscape V 1.3 I've been getting a DLL error when running it directly via QM run...: The procedure entry point "SymSetExtendedOption" was not found in the DLL "C:\WINDOWS\SYSTEM32\dbgeng.dll". That's why I've had to launch it via the Windows System Run dialog since that version...
I think it's a problem to call a 64-bit program from a 32-bit application via the MSO add-in.

Only German versions! (Adapting the language is still necessary...)

You need:
QM - NoNaNed
Special Function: GetFileVersionString (see Create folder with version number)
MS-VISIO (testet with German V 2016...2019)
INKSCAPE (adapted and tested up to function 1.4) from Inkscape - Draw Freely. | Inkscape

and of course suitable shapes

Have fun with it!!!

wfg. from Schindi aus Austria

VektorFrameGenerator-1.4.qml (Size: 48 KB / Downloads: 89)

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

Mon, 20 Oct 2025 06:57:17 +0000

To set dialog windows that normally do not have this Feature in QM (e.g. Input box, OpenSaveDialog...)

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

Special Compiler UPX & SIGN TOOL for DLL, EXE and MSO-VBA

Wed, 15 Oct 2025 10:22:29 +0000

Hello Again!

I have created a Quick Macros (QM-) Progrämmli ähh Tool to Compress and or Sign my Proggis, DLL's or suitable MS-OFFICE Files...

You can use it with Quick Macros (QM-) Compiler or other Compiler (PureBasic etc.) or as a Standalone (Drag&Drop-) TOOL...

You need this:

The Wonderful (now free) Automation Program: Quick Macros - automation software for Windows (https://quickmacros.com/). Some features: Macro commands, including user interface automation, launching programs, file management, text processing (Autotext - Inserts text snippets using keyboard shortcuts) and custom dialogs. Triggers, including hotkeys, mouse, scheduler, toolbars and menus. Records keyboard and mouse actions. Programming language with functions, classes, full API support. You can create programs for various purposes, and run them in Quick Macros or as exe files. Quick Macros is no longer being developed or updated. It has been superseded by LibreAutomate C#. You can still download the last QM version, 2.4.12.2. Date 2021-08-22. For Windows 7, 8, 8.1, 10, 11. Now it's free. Registration code: XVZVTCLELEFXEFMETVVZPCXFNMCRCFDN-Now%20it%27s%20free

Import the Source(s) from Attached Files...

The unpacked upx.exe from upx-5.0.2-win32.zip - upx/upx: UPX - the Ultimate Packer for eXecutables (UPX is Copyright © 2024 by Markus F.X.J. Oberhumer, László Molnár & John F. Reiser) (UPX - X86 Win32 version it is good for all), and the original Microsoft SignTool.exe (from Windows SDK 10 package - Folder: Program Files (x86)\Windows Kits\10\bin\10.0.19041.0\x86 - ONLY 32 BIT COMPONENT WORKS CORRECT!!!) - both must be placed in the same folder as of UPX / SIGN Tool Runner (e.g. in Subfolder "Plugins") or in a Subfolder from them named "CERT"

And of course you also need a suitable (ev. self-created...) SIGN (*.pfx) file for code certification (i put them in the Subfolder ...\CERT)...
(see good Article: https://www.windowspro.de/script/new-sel...powershell)

To activate the functions for EXE (after!) Compiling you must make first an Entry (for each exe file) in QM Menu under Run Make Exe:
In Section: Run functions when creating a exe, After - insert the name of the tool (without extension!!!)
eg. Run_UPX_SIGN (or rename Run_UPX_SIGN.exe to shorter e.g. MyUPX.exe) to have a smaller entry (only: MyUPX)

My program detects, based on the file extension, whether it is a DLL, EXE, or an MS-Office file with a macro, and displays the corresponding status messages at the end.

To sign MSO vba files too - you need:
Microsoft Office Subject Interface Packages for Digitally Signing VBA Projects
See too: https://github.com/Joflixen/signtool and the headers of my QML source file...

Download the Windows SDK, and install the Code Signing component.
Once installed go to the install path, on my local workstation it was here:
C:\Program Files (x86)\Windows Kits\10\bin\10.0.19041.0\x86 (ONLY 32 BIT COMPONENT WORKS!!!)
Copy the x86 version of SignTool.exe to your working path...
Download and run the Microsoft Office Subject Interface Package, during the installer it will ask for an installation path, choose a path like:

Code:
C:\[workingpath]\MSOSIP
Refer to the readme.txt for additional instructions if required in "HOW TO USE THESE COMPONENTS

IMPORTANT: You must registered the two msosip*.dll Files with regsvr32.exe as Admin-User in a fixed directory and Place the vbe7.dll in them! (and you need ev. VC_redist.x86.exe...)
call from cmd with run as Admin:
cd to the Install directory from msosip.dll... and run
C:\Windows\System32\regsvr32.exe msosip.dll and C:\Windows\System32\regsvr32.exe msosipx.dll

An informative RegSvr32 message box respectively should then appear...

Update 2025-10-20:
I forgot the WinSetOnTop function - I added it (and see the new Thread: Function WinSetOnTop (or not and/or activate, size it, move it to POS and/or Monitor) about it...)

Update 2026-03-23:
Add SetFileTimes for MS-Office Macro-Files too:
SetFileTimes F"{sFullFilePath}" F"{sDT}" ;;damit File-Datum u. Zeit erhalten bleibt...
after Line 394 (=run(sComSpec F"/C {s.dospath(sSTPath)}\signtool.exe verify /pa /v [34]{sFullFilePath}[34]>{sSTT}[34]" "" "" 0x400))

wfg. from Schindi aus Austria

Run_UPX_SIGN.qml (Size: 13 KB / Downloads: 74)

WinSetOnTop.qml (Size: 6 KB / Downloads: 70)

Special Inno Setup Compiler SignTool (It retains the TIME of signed files!)

Mon, 13 Oct 2025 09:21:00 +0000

Inno Setup is an open-source installation builder for Windows applications by Jordan Russell and Martijn Laan. Since its introduction in 1997, Inno Setup has been trusted by developers and organizations of all sizes to reliably deploy software to millions of PCs worldwide.
I use it for all my various Projects - love it!!!

Now you can automatically SIGN your compiled Inno Setup (Un-)Installer Setup.exe Files and other Files in them!

But there is a the Problem with the Sign Mechanism from Inno Setup Compiler - together with the Microsoft Sign Tool:
When i use the "[Files] Flags: sign, for my various executable files, that all the Source Files Date/Time are set to the compiling time...

That's - why I created a Signtool Starter now...

It retains the Date/Time of executable files!

My program is simply switched between Inno Setup Compiler and MS-SignTool...

This sounds simple, but the evaluation from the command line parameters and pathes is a bit tricky...

You need this:

The Wonderful (now free) Automation Program: Quick Macros - automation software for Windows (https://quickmacros.com/). Some features: Macro commands, including user interface automation, launching programs, file management, text processing (Autotext - Inserts text snippets using keyboard shortcuts) and custom dialogs. Triggers, including hotkeys, mouse, scheduler, toolbars and menus. Records keyboard and mouse actions. Programming language with functions, classes, full API support. You can create programs for various purposes, and run them in Quick Macros or as exe files. Quick Macros is no longer being developed or updated. It has been superseded by LibreAutomate C#. You can still download the last QM version, 2.4.12.2. Date 2021-08-22. For Windows 7, 8, 8.1, 10, 11. Now it's free. Registration code: XVZVTCLELEFXEFMETVVZPCXFNMCRCFDN-Now%20it%27s%20free

The original Microsoft SignTools.exe (from Windows SDK 10 package - Folder: Program Files (x86)\Windows Kits\10\bin\10.0.19041.0\x86 - ONLY 32 BIT COMPONENT WORKS CORRECT!!!) - must be placed in the same folder as Inno Setup Compiler or in the same Folder of INNO SignTool Runner (e.g. in Subfolder "Plugins") or in a Subfolder from them named "CERT

And of course you also need a suitable (ev. self-created...) SIGN (*.pfx) file for code certification (i put them in the Subfolder ...\CERT)...
(see good Article: https://www.windowspro.de/script/new-sel...powershell)

To use a signing, you must make first an Entry in Inno Setup Compiler Menu under Tools, Configure Sign Tool:

Name of the Sign Tool:
e.g.
SchindiSoft_Code_Sign,
Command of the Sign Tool:
e.g. if you had create a Plugins Folder in InnoSetp Compiler ProgramFiles Folder
".\Plugins\Inno_SignTool.exe" sign /f ".\Plugins\CERT\SchindiSoft_CODE_CERT.pfx" /p Password_PW$ /t "http://timestamp.digicert.com" /fd SHA256 $p

Password_PW$=Your PW...

it makes a Reg-Entry:
Example Reg Entry if you had create a Plugins Folder in InnoSetp Compiler ProgramFiles Folder
REGEDIT4

[HKEY_CURRENT_USER\Software\Jordan Russell\Inno Setup\SignTools]
"SignTool0"="SchindiSoft_Code_Sign=\".\\Plugins\\Inno_SignTool.exe" sign /f \".\\Plugins\\CERT\\SchindiSoft_CODE_CERT.pfx\" /p SchindiSoft-PW$ /t \"http://timestamp.digicert.com\" /fd SHA256 $p"

And then the additions to the Inno Setup Script (see Inno Setup Help too):
in [Setup] Section:
e.g.
[Setup]
;;SignTool=The same name as in Sign Tool Configuration!
SignTool=SchindiSoft_Code_Sign $f
...

and when you wish to Sign own Files too: (that is the actual purpose of the plugin)
In [Files] Section
e.g.
[Files]
First all Files from Folder Shared...
Source: "D:\Data\Projekte\Shared\MyTools\*.*"; DestDir: "{app}"; Flags: ignoreversion
;and then a second entry so that only the *.exe files are signed...
Source: "D:\Data\Projekte\Shared\MyTools\*.exe"; DestDir: "{app}"; Flags: ignoreversion signonce (or sign)
;or only one exe...
Source: "D:\Data\Projekte\Shared\MyTools\xyz.exe"; DestDir: "{app}"; Flags: ignoreversion signonce (or sign)
...

wfg. from Schindi aus Austria

Inno_SignTool.zip (Size: 252.17 KB / Downloads: 78)

KW-Tray CalenderWeek Tray App (Kalender-Woche)

Thu, 02 Oct 2025 06:46:22 +0000

I have create a QM-Macro-App (KW-Tray.exe) to Display the CalenderWeek in the Tray (Internationale ISO 8601 Kalender-Wochen-Nummerierung) and copy it to Clipboard or Speak it (with SAPI 5 TTS)
It needs the Function-Files from QM-Forum: Get Week of Year - (Funktion Kalenderwoche) = https://www.libreautomate.com/forum/show...p?tid=7874

This is one of the few programs that displays the KW in the tray, additionally with the option to copy it or output it via speech synthesis...

Of course, various (language...) adjustments still need to be made...
Still added mutex function and automatic update of the date from tray icon hover display...

Update 2025-10:
Added Recource File "KW-Tray.icl" to Display the calendar week in the taskbar's system tray, without hovering over it with the mouse
You can use my "standard - integrated" Icon resource File added to the exe, or Create your own (with IrfanView, ImageMagick, Greenfish Icon Editor Pro...) and place it in the Program - Directory...

Update 2025-11:
Added routine to keep the tray icon in the same position.

Update 2026-01:
Correction of the routine to keep the tray icon in the same position.

How To Create the ICON Resource:
Batch File example to create the needed Icons from a white 256 x 256 png...
.\ImageMagick\convert.exe for my portable Version or only Magick.exe (installed Version with Path entry in environment variables) and parameters: weiss256.png -gravity center -pointsize 225 -annotate 0 '01' -define icon:auto-resize=16 "01 KW-Tray.ico"
z.B.:
.\ImageMagick\convert weiss256.png -gravity center -pointsize 225 -annotate 0 '01' -define icon:auto-resize=16 "01 KW-Tray.ico"
.\ImageMagick\convert weiss256.png -gravity center -pointsize 225 -annotate 0 '02' -define icon:auto-resize=16 "02 KW-Tray.ico"
.\ImageMagick\convert weiss256.png -gravity center -pointsize 225 -annotate 0 '03' -define icon:auto-resize=16 "03 KW-Tray.ico"
usw...
and then create the *.ICL (i use the free Greenfish Icon Editor) from the Icons (in nummerical Order!)...

wfg. from Schindi aus Austria

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

ChatGPT seems to generate correct QM response!

Wed, 18 Jan 2023 12:44:25 +0000

If image doesn't show:
https://ibb.co/vkNbKt5

quick howto: DBXCLI (dropbox commandline)

Sun, 23 Jan 2022 07:10:38 +0000

You can use DBXCLI to interact with your dropbox account using command line.
You can do the basic things: listing, copying,....etc...

Download DBXLCI:
https://github.com/dropbox/dbxcli
In the above githubpage, see at the rightside 'Releases'-link, click on it and download the "dbxcli-windows-amd64.exe"

German tutorial which explains the below steps + some other things.
I couldn't find an english tutorial which explains it like the german tutorial.
https://www.youtube.com/watch?v=p2r8xsyLyEY

Below I explained how to setup and use DBXCLI, replace c:\test with your location where you saved dbxcli-windows-amd64.exe

STEP 1
Download the correct exe and place it in an folder.
Example:
"dbxcli-windows-amd64.exe" downloaded in "c:\test"
c:\test\dbxcli-windows-amd64.exe

STEP 2
In cmd run:

Code:
c:\test\dbxcli-windows-amd64.exe account

A response prompt will appears explaining 3 short steps, follow these 3 short steps.
In short:
- First in browser login into your dropbox account, then copy url from the cmd response prompt, paste in browser.
- Copy the response 'authorization code' from browser window into cmd window then press [ENTER]

STEP 3
After you have pressed [ENTER] in step 2, you will see response which should be 6 lines (Account Id, Account Type,....)
If you see "Paired Account: false" then that's correct.
You are done!
Type the following command to test (list root items):

Code:
c:\test\dbxcli-windows-amd64.exe -ls

Normally would add an path after -ls to show the contents of that path.
But the path is excluded so it shows the contents from the root.
See below for an example where you show the contents of an specific path.

OTHER INFO

To show basic help info (shows all available commands: ls, cp, du,....etc..)

Code:
c:\test\dbxcli-windows-amd64.exe

To show help about an specific command, for example show more info regarding the 'ls' command

Code:
c:\test\dbxcli-windows-amd64.exe ls --help

Output Long listing (filesize, revision,...)

Code:
c:\test\dbxcli-windows-amd64.exe -ls -1 /Apps/Testapp

/Apps/Testapp = the folder I want to list (It is from the root, meaning 'Apps' resides in the root and dont forget the beginning forward slash)

NOTE:
It seems DBXCLI stores account/access info in:
C:\Users\[USERNAME]\.config ===> ALSO NOTE THE DOT !!!
Also you might need to use double quotes for paths with spaces, haven't tested this yet.

quick howto: windows 10 sandbox

Sun, 25 Jul 2021 11:11:47 +0000

A virtual machine (sandbox) can be handy for different purposes when using QM: executing a script while using the host machine, or testing scripts, ....etc...

This is a quick howto, on how to install the windows 10 sandbox and howto setup a configuration file for the windows 10 sandbox.
The below example .wsb file (configuration file) is an example file with 2 settings: folder mapping an logon script file.
The empty white lines in the .wsb file is just to keep it readable, remove any empty lines within your configuration file.
If you are already known with the windows 10 sandbox you can skip the installation part, making this short howt much shorter!

The windows sandbox is simplified version of something like virtualbox, VMware,...etc..
* Main downsides: not persistent, no snapshots, no multiple machines (only ONE), ...
* Upsides: very easy to use, readily available (or very easy install-able)
You can create a configuration file for the windows sandbox, this configuration file can contain settings for: vGPU, mapped folders, logon command,..etc...
The configuration file is a .wsb file and once created, you can double click it and it will launch the windows sandbox with that configuration!

As stated before, you can't make the windows 10 sandbox persistent (not in a 'easy' way, as far as I know).
BUT:
- you can MAP a folder(s) from your HOST (main machine) to the SANDBOX
- AND you can execute a script at boot. Combine this with QM and...well you know...
(and set some other settings! see below link)

I: BEGIN WITH
1) Read through: https://docs.microsoft.com/en-us/windows...g-wsb-file
2) Install the windows sandbox, see below.
3) Create a .wsb file and enter the example you see in the below image

II: To install windows sandbox:
1) Go to 'Control Panel >> Programs' , then select 'Turn Windows features on or off'
2) Scroll down and select 'Windows Sandbox' , reboot when windows ask to reboot
3) Start the windows sandbox, first time might take 5 to 20 minutes, first time start is always long.
   (probably first time initializing, reserving hd space,...etc...)
4) Once in sandbox, play around. To copy files onto desktop, either:
   - right click on a file/folder on your HOST machine then select 'copy'
     then the right click on desktop in SANDBOX and select 'paste'
   - Or [CTRL]+[C] / [CTRL]+[V]
   - Or drag from HOST to SANDBOX (doesn't work on my machine, don't know if this actually works but read somewhere that this should work)
5) Close the sandbox and do what's described below (create config wsb file...)

III: An example .wsb file (mapping and logon script)

  1.jpg (Size: 420.76 KB / Downloads: 610)

Code:

            E:\__qm_testdirs

            C:\sbx

            false

        c:\sbx\test.exe

KeePass and Quick Macros video tutorials

Fri, 07 Dec 2018 13:38:32 +0000

KeePass is a password manager and has some unique command line possibilities.
Those command line possibilities in combination with the {PASSWORD_ENC} option makes keepass even more safe.
You can fetch data from a keepass entries (records) like password, notes, etc...
And you can edit data from a keepass entries.
You do not have to use the plain keepass .KDBX (keepass database) password, you can generate an ENCRYPTED password in keepass which is tied to your computer.

This encrypted password is much safer. Even when an attacker get's access to your .KDBX and encrypted password the attacker can not access the .KDBX on his machine. (unless the attacker is physically there at your machine OR can remote control your machine OR when the attacker manages to clone your machine HARDWARE and OS wise.)

Read here about keepass command line and about the encrypted password in keepass.

* Keepass command line help:
https://keepass.info/help/base/cmdline.html

* Keepass command line KPScript help:
https://keepass.info/help/v2_dev/scr_sc_index.html

* Keepass encrypted password info:
This is the forum topic (scroll to the bottom there are a 4 links given by the author of keepass, I put those links below)
https://sourceforge.net/p/keepass/discus...dca7666b9/
   - https://msdn.microsoft.com/en-us/library/ms995355.aspx
   - https://support.microsoft.com/en-us/kb/309408
   - https://technet.microsoft.com/en-us/libr...81624.aspx
   - https://sourceforge.net/p/keepass/wiki/R...edentials/

Because of this I created 2 video tutorials:

1. KeePass command line tutorial
https://www.youtube.com/watch?v=BEanSOlYqSU

2. Quick Macros and keepass tutorial
https://www.youtube.com/watch?v=86tmMXN-Yeo

Tutorial 1 explains the keepass (and KPScript.exe plugin) command line.
Tutorial 2 explains how to use tutorial 1 in Quick Macros

There are timestamps below in the video description of the corresponding youtube page.

Once you understand tutorial 2 you can more quickly interact with keepass and even create your own front-end with special functionality. For example you could even go so far as to create your own version of LASTPASS. (I do not explain how to do this).
But I added a .qml in tutorial 2 (see in youtube description) which contains a simple ICsv function which gives you the possibility to fetch the whole .KDBX database into an ICsv. From there on your own imagination is the limit.

Do not use the plain .KDBX, use the ENCRYPTED password.

I purposely created 2 tutorials in stead of one. The usage of encrypted passwords in keepass was so important to know for every one that I decided in that in tutorial 1 I explain info about keepass-command-line and encrypted password without quick macros. And tutorial 2 about keepass and quick macros. In that way users who do not have QM or do not want to use QM can still see an explanation about this in tutorial 1 and use it in their own BATCH (or other) scripting environment.

I hope it is of use to you.

(videos are text annotated not voiced, so press [SPACE] to pause to give yourself time to read the text!)

QM and Cheat Engine

Tue, 25 Sep 2018 20:03:28 +0000

Hey there. I have one question.

I found base adress and offsets to make script that i need. Now I want to change that values with quick macros. Is it possible?

Capture Qm Window

Tue, 31 Jul 2018 23:16:39 +0000

Hi everyone thought i would share a little function i use a lot for creating instant screenshots of the Quick Macros window

requires GDI+ get it here-->> Get GDI+

Trigger: Ctrl+Prnt Scrn

Function CaptureQmWindow
Trigger C(44)

Code:
;Captures QM Window and saves as a png(or see below) using GDI+

;Supported formats: bmp, gif, jpg, png, tiff.(png recommended)

;creates a unique file name to avoid saving problems

;REMARKS

;requires GDI+ download it here Get GDI+

if(getopt(nthreads)>1) ret

spe -2

;create file data

mkdir "QM_WindowImages" "$desktop$";;create folder if it doesnt exist to save images in

str sFolderName = "$desktop$\QM_WindowImages\"

str sFileName.timeformat("{yyyy-MM-dd}_{HH-mm-ss}_QmWindow");;unique filename to avoid problems

str sFormat = ".png";;i use png for smaller filesize

str sFile.format("%s%s%s" sFolderName sFileName sFormat)

;captures QM Window to memory

__GdiHandle hb

RECT r; DpiGetWindowRect _hwndqm &r

CaptureImageOnScreen r.left r.top r.right-r.left r.bottom-r.top "" hb

;save image

#compile "__Gdip"

GdipBitmap im

if(!im.FromHBITMAP(hb)) end "error"

if(!im.Save(sFile)) end "error"

;open folder where image is saved

run sFolderName

;optional open file

;run sFile;;uncomment this line to use

requires GDI+ get it here-->> Get GDI+

timer with a condition

Mon, 25 Jun 2018 13:17:31 +0000

Hi, I need help. I want to run a macro with a timer and a condition a condition that after x minutes it will stop and open a function/macro then after the function/macro runs it will return to the first macro. vice versa

-main macro
int t1 = GetTickCount
int t2 = 28*60
rep
,
,if(GetTickCount-t1>=t2) ret
,key z
,key 7
,key 2
,key 3
,key 9
,wait 0.5
,key z
,key 5
,key 4
,key 7
,key 8
,wait 0.5
,key 3
,key 6
,key 4
,key z
,key 2
,wait 0.5
,key 9
,key z
,key 4
,key 7
,key 5
,key 0
,if(GetTickCount-t1==t2)break
,wait 0 H mac("Function1")

-Function/macro

'"o"            ;; "o"
   wait 1.0
lef 685 344 w1 1 ;; ''
   wait 1.0
dou 673 319 w1 1 ;; ''
   wait 2.0
   lef 684 416 w1 1 ;; ''
   wait 10.0
'"o"            ;; "o"
   wait 3.0
lef 672 343 w1 1 ;; ''
mou 672 343 w1 1
MouseWheel -9
   wait 1.0
MouseWheel -9
   wait 1.5
dou 674 444 w1 1 ;; ''
   wait 2.5
lef 674 419 w1 1 ;; ''
   wait 6.0
mou 617 399 w1 1
MouseWheel -1
mou 618 399 w1 1
MouseWheel -1
mou 618 400 w1 1
MouseWheel -26
'"m"            ;; "m"
   wait 3.0
lef 589 329 w1 1 ;; ''
   wait 1.0
   dou 575 588 w1 1 ;; ''
lef+ 576 588 w1 1 ;; ''
mou ":A@"
lef- 577 588 w1 1
lef+ 580 587 w1 1 ;; ''
mou ":A@B@"
   wait 1.0
lef- 583 587 w1 1
lef+ 590 586 w1 1 ;; ''
mou ":A@B@A@A@A@A@A@A@"
lef- 599 586 w1 1
lef+ 604 586 w1 1 ;; ''
mou ":A@BAA@A@A@B@"
lef- 612 587 w1 1
lef+ 644 587 w1 1 ;; '
dou 644 588 w1 1
mou ":A@B@A@"
lef- 648 588 w1 1
   wait 1.0
dou 660 588 w1 1 ;; ''
mou ":a@b@b@b@a@b@"
lef- 650 588 w1 1
lef+ 650 588 w1 1 ;; ''
mou ":a@"
lef- 649 588 w1 1
lef+ 646 588 w1 1 ;; ''
mou "aBaBa"
lef- 650 585 w1 1
lef 654 583 w1 1 ;; ''
dou 575 588 w1 1 ;; ''
lef+ 576 588 w1 1 ;; ''
mou ":A@"
lef- 577 588 w1 1
lef+ 580 587 w1 1 ;; ''
mou ":A@B@"
lef- 583 587 w1 1
lef+ 590 586 w1 1 ;; ''
mou ":A@B@A@A@A@A@A@A@"
lef- 599 586 w1 1
   wait 1.0
lef+ 604 586 w1 1 ;; ''
mou ":A@BAA@A@A@B@"
lef- 612 587 w1 1
lef+ 644 587 w1 1 ;; '
dou 644 588 w1 1
mou ":A@B@A@"
   key 1
lef- 648 588 w1 1
dou 660 588 w1 1 ;; ''
mou ":a@b@b@b@a@b@"
lef- 650 588 w1 1
lef+ 650 588 w1 1 ;; ''
mou ":a@"
lef- 649 588 w1 1
   wait 1.0
lef+ 646 588 w1 1 ;; ''
mou "aBaBa"
lef- 650 585 w1 1
lef 654 583 w1 1 ;; ''
   wait 0.8
   key 1
   wait 0.8
   key 1
   wait 0.8
   key 1
   wait 0 H mac("Macro1")
#endregion

App Paths Registry Run Command

Sun, 20 May 2018 18:08:14 +0000

I love run command (⊞ Win+R) to launch programs. Most of the time programs will automatically put an entry into the registry when installing (i.e. qm, chrome, firefox, etc) while other programs do not.

So I wrote this little function to use a tab separated multiline string containing the alias I'd like to use to launch a program from the run command and the path to the exe. Pretty simple stuff here:

Function AppPaths

Code:
out

str Data=

;FL    "$program files$\Image-Line\FL Studio 12\FL (scaled).exe"

;Arduino    "C:\arduino-1.8.5\arduino.exe"

;iview    "$program files$\IrfanView\i_view32.exe"

;audacity    "C:\Audacity\audacity.exe"

;audition    "$program files$\Adobe\Audition 1.5\Audition.exe"

;mp3    "$common music$\Sample Music\Kalimba.mp3"

str RegFile="C:\AppPaths.reg"

str RegData="Windows Registry Editor Version 5.00[][]"

ICsv v._create

v.Separator="[9]"

v.FromString(Data)

str Alias Path RegEntry

for int'r 0 v.RowCount

,Alias=v.Cell(r 0)

,Path=v.Cell(r 1)

,Path.expandpath

,Path.findreplace("\" "\\")

,RegEntry=

,F

,;[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\{Alias}.exe]

,;@="{Path}"

,;

,RegData.addline(RegEntry)

,

out RegData

RegData.setfile(RegFile)

;ret

run "regedit.exe" F"/s ''{RegFile}''"

Tables/IDP_VIRTUALKEYS.html converted to arrays

Tue, 17 Apr 2018 22:21:33 +0000

I created arrays from the QM help page 'Other info' >> 'Virtual-key codes'
Read the below green comment in the QM code.

I thought it might be handy to have it available in arrays.

Function keylist_toarrays

Code:
;;********************************************************

;;*

;;*

;;* From the QM help page: 'Other info' >> 'Virtual-key codes'

;;* (..\App\QuickMacros\qm2help.chm::/Tables/IDP_VIRTUALKEYS.html)

;;* It contains a list of [1]VK codes, [2]values, [3]QM key codes and [4]descriptions.

;;*

;;* Below you will see the above mentioned [1] to [4] represented in arrays:

;;* [1] ARRAY(str) arr_keylist_const

;;* [2] ARRAY(str) arr_keylist_value

;;* [3] ARRAY(str) arr_keylist_qm

;;* [4] ARRAY(str) arr_keylist_descript

;;* 

;;* Within the below string "keylist", empty values are represented with double dots.

;;* The 'dash' also seemed to represent empty (none-spefied?) values.

;;* In other words, the double dots AND dashes are empty values

;;* 

;;* Important note:

;;* Below in string "keylist" there is a line:

;;* VK_OEM_5|0xDC|\ or @pipe@|Used ..................

;;* The @pipe@ represents: | (actual pipe symbol). I had to do this because I used the pipe to delimit the lines.

;;*

;;* You could for example, put this somehwere in your init2 and make the 4 arrays system global => +

;;* Then you could have key-code information always available for your projects.

;;*

;;* I also took care of the ranges, in other words: ranges are converted to individual lines.

;;*

;;*

;;******************************************************

;

;

str keylist=

;VK_LBUTTON|0x1|..|Left mouse button

;VK_RBUTTON|0x2|..|Right mouse button

;VK_CANCEL|0x3|..|Control-break (Ctrl+Pause)

;VK_MBUTTON|0x4|..|Middle mouse button

;VK_XBUTTON1|0x5|..|X1 mouse button

;VK_XBUTTON2|0x6|..|X2 mouse button

;-|0x7|..|Undefined

;VK_BACK|0x8|B|BACKSPACE key

;VK_TAB|0x9|T|TAB key

;-|0xA|..|Reserved

;-|0xB|..|Reserved

;VK_CLEAR|0xC|..|CLEAR key (Shift+Num5)

;VK_RETURN|0xD|Y|ENTER key

;-|0xE|..|Undefined

;-|0xF|..|Undefined

;VK_SHIFT|0x10|S|SHIFT key

;VK_CONTROL|0x11|C|CTRL key

;VK_MENU|0x12|A|ALT key

;VK_PAUSE|0x13|G|PAUSE key

;VK_CAPITAL|0x14|K|CAPS LOCK key

;VK_KANA|0x15|..|IME Kana mode

;VK_HANGUEL|0x15|..|IME Hanguel mode

;VK_HANGUL|0x15|..|IME Hangul mode

;-|0x16|..|Undefined

;VK_JUNJA|0x17|..|IME Junja mode

;VK_FINAL|0x18|..|IME final mode

;VK_HANJA|0x19|..|IME Hanja mode

;VK_KANJI|0x19|..|IME Kanji mode

;-|0x1A|..|Undefined

;VK_ESCAPE|0x1B|Z|ESC key

;VK_CONVERT|0x1C|..|IME convert

;VK_NONCONVERT|0x1D|..|IME nonconvert

;VK_ACCEPT|0x1E|..|IME accept

;VK_MODECHANGE|0x1F|..|IME mode change request

;VK_SPACE|0x20|V|SPACEBAR

;VK_PRIOR|0x21|P|PAGE UP key

;VK_NEXT|0x22|Q|PAGE DOWN key

;VK_END|0x23|E|END key

;VK_HOME|0x24|H|HOME key

;VK_LEFT|0x25|L|LEFT ARROW key

;VK_UP|0x26|U|UP ARROW key

;VK_RIGHT|0x27|R|RIGHT ARROW key

;VK_DOWN|0x28|D|DOWN ARROW key

;VK_SELECT|0x29|..|SELECT key

;VK_PRINT|0x2A|..|PRINT key

;VK_EXECUTE|0x2B|..|EXECUTE key

;VK_SNAPSHOT|0x2C|..|PRINT SCREEN key

;VK_INSERT|0x2D|I|INS key

;VK_DELETE|0x2E|X|DEL key

;VK_HELP|0x2F|..|HELP key

;..|0x30|0|0 key

;..|0x31|1|1 key

;..|0x32|2|2 key

;..|0x33|3|3 key

;..|0x34|4|4 key

;..|0x35|5|5 key

;..|0x36|6|6 key

;..|0x37|7|7 key

;..|0x38|8|8 key

;..|0x39|9|9 key

;-|0x3A|..|Undefined

;-|0x3B|..|Undefined

;-|0x3C|..|Undefined

;-|0x3D|..|Undefined

;-|0x3E|..|Undefined

;-|0x3F|..|Undefined

;-|0x40|..|Undefined

;..|0x41|a|A key

;..|0x42|b|B key

;..|0x43|c|C key

;..|0x44|d|D key

;..|0x45|e|E key

;..|0x46|f|F key

;..|0x47|g|G key

;..|0x48|h|H key

;..|0x49|i|I key

;..|0x4A|j|J key

;..|0x4B|k|K key

;..|0x4C|l|L key

;..|0x4D|m|M key

;..|0x4E|n|N key

;..|0x4F|o|O key

;..|0x50|p|P key

;..|0x51|q|Q key

;..|0x52|r|R key

;..|0x53|s|S key

;..|0x54|t|T key

;..|0x55|u|U key

;..|0x56|v|V key

;..|0x57|w|W key

;..|0x58|x|X key

;..|0x59|y|Y key

;..|0x5A|z|Z key

;VK_LWIN|0x5B|W|Left Windows key

;VK_RWIN|0x5C|..|Right Windows key

;VK_APPS|0x5D|M|Applications key

;-|0x5E|..|Reserved

;VK_SLEEP|0x5F|..|Computer Sleep key

;VK_NUMPAD0|0x60|N0|Numeric keypad 0 key

;VK_NUMPAD1|0x61|N1|Numeric keypad 1 key

;VK_NUMPAD2|0x62|N2|Numeric keypad 2 key

;VK_NUMPAD3|0x63|N3|Numeric keypad 3 key

;VK_NUMPAD4|0x64|N4|Numeric keypad 4 key

;VK_NUMPAD5|0x65|N5|Numeric keypad 5 key

;VK_NUMPAD6|0x66|N6|Numeric keypad 6 key

;VK_NUMPAD7|0x67|N7|Numeric keypad 7 key

;VK_NUMPAD8|0x68|N8|Numeric keypad 8 key

;VK_NUMPAD9|0x69|N9|Numeric keypad 9 key

;VK_MULTIPLY|0x6A|N*|Multiply key

;VK_ADD|0x6B|N+|Add key

;VK_SEPARATOR|0x6C|..|Separator key

;VK_SUBTRACT|0x6D|N-|Subtract key

;VK_DECIMAL|0x6E|N.|Decimal key

;VK_DIVIDE|0x6F|N/|Divide key

;VK_F1|0x70|F1|F1 key

;VK_F2|0x71|F2|F2 key

;VK_F3|0x72|F3|F3 key

;VK_F4|0x73|F4|F4 key

;VK_F5|0x74|F5|F5 key

;VK_F6|0x75|F6|F6 key

;VK_F7|0x76|F7|F7 key

;VK_F8|0x77|F8|F8 key

;VK_F9|0x78|F9|F9 key

;VK_F10|0x79|F10|F10 key

;VK_F11|0x7A|F11|F11 key

;VK_F12|0x7B|F12|F12 key

;VK_F13|0x7C|F13|F13 key

;VK_F14|0x7D|F14|F14 key

;VK_F15|0x7E|F15|F15 key

;VK_F16|0x7F|F16|F16 key

;VK_F17|0x80|F17|F17 key

;VK_F18|0x81|F18|F18 key

;VK_F19|0x82|F19|F19 key

;VK_F20|0x83|F20|F20 key

;VK_F21|0x84|F21|F21 key

;VK_F22|0x85|F22|F22 key

;VK_F23|0x86|F23|F23 key

;VK_F24|0x87|F24|F24 key

;-|0x88|..|Unassigned

;-|0x89|..|Unassigned

;-|0x8A|..|Unassigned

;-|0x8B|..|Unassigned

;-|0x8C|..|Unassigned

;-|0x8D|..|Unassigned

;-|0x8E|..|Unassigned

;-|0x8F|..|Unassigned

;VK_NUMLOCK|0x90|O|NUM LOCK key

;VK_SCROLL|0x91|J|SCROLL LOCK key

;..|0x92|..|OEM specific

;..|0x93|..|OEM specific

;..|0x94|..|OEM specific

;..|0x95|..|OEM specific

;..|0x96|..|OEM specific

;-|0x97|..|Unassigned

;-|0x98|..|Unassigned

;-|0x99|..|Unassigned

;-|0x9A|..|Unassigned

;-|0x9B|..|Unassigned

;-|0x9C|..|Unassigned

;-|0x9D|..|Unassigned

;-|0x9E|..|Unassigned

;-|0x9F|..|Unassigned

;VK_LSHIFT|0xA0|..|Left SHIFT key

;VK_RSHIFT|0xA1|..|Right SHIFT key

;VK_LCONTROL|0xA2|..|Left CONTROL key

;VK_RCONTROL|0xA3|..|Right CONTROL key

;VK_LMENU|0xA4|..|Left MENU key

;VK_RMENU|0xA5|..|Right MENU key

;VK_BROWSER_BACK|0xA6|..|Browser Back key

;VK_BROWSER_FORWARD|0xA7|..|Browser Forward key

;VK_BROWSER_REFRESH|0xA8|..|Browser Refresh key

;VK_BROWSER_STOP|0xA9|..|Browser Stop key

;VK_BROWSER_SEARCH|0xAA|..|Browser Search key

;VK_BROWSER_FAVORITES|0xAB|..|Browser Favorites key

;VK_BROWSER_HOME|0xAC|..|Browser Start and Home key

;VK_VOLUME_MUTE|0xAD|..|Volume Mute key

;VK_VOLUME_DOWN|0xAE|..|Volume Down key

;VK_VOLUME_UP|0xAF|..|Volume Up key

;VK_MEDIA_NEXT_TRACK|0xB0|..|Next Track key

;VK_MEDIA_PREV_TRACK|0xB1|..|Previous Track key

;VK_MEDIA_STOP|0xB2|..|Stop Media key

;VK_MEDIA_PLAY_PAUSE|0xB3|..|Play/Pause Media key

;VK_LAUNCH_MAIL|0xB4|..|Start Mail key

;VK_LAUNCH_MEDIA_SELECT|0xB5|..|Select Media key

;VK_LAUNCH_APP1|0xB6|..|Start Application 1 key

;VK_LAUNCH_APP2|0xB7|..|Start Application 2 key

;-|0xB8|..|Reserved

;-|0xB9|..|Reserved

;VK_OEM_1|0xBA|:|Used for miscellaneous characters; it can vary by keyboard.[]For the US standard keyboard, the ';:' key

;VK_OEM_1|0xBA|:|Used for miscellaneous characters; it can vary by keyboard.[]For the US standard keyboard, the ';:' key

;VK_OEM_PLUS|0xBB|+ or =|For any country/region, the '+' key

;VK_OEM_COMMA|0xBC|, or <|For any country/region, the ',' key

;VK_OEM_MINUS|0xBD|- or _|For any country/region, the '-' key

;VK_OEM_PERIOD|0xBE|. or >|For any country/region, the '.' key

;VK_OEM_2|0xBF|/ or ?|Used for miscellaneous characters; it can vary by keyboard.[]For the US standard keyboard, the '/?' key

;VK_OEM_2|0xBF|/ or ?|Used for miscellaneous characters; it can vary by keyboard.[]For the US standard keyboard, the '/?' key

;VK_OEM_3|0xC0|` or ~|Used for miscellaneous characters; it can vary by keyboard.[]For the US standard keyboard, the '`~' key

;-|0xC1|..|Reserved

;-|0xC2|..|Reserved

;-|0xC3|..|Reserved

;-|0xC4|..|Reserved

;-|0xC5|..|Reserved

;-|0xC6|..|Reserved

;-|0xC7|..|Reserved

;-|0xC8|..|Reserved

;-|0xC9|..|Reserved

;-|0xCA|..|Reserved

;-|0xCB|..|Reserved

;-|0xCC|..|Reserved

;-|0xCD|..|Reserved

;-|0xCE|..|Reserved

;-|0xCF|..|Reserved

;-|0xD1|..|Reserved

;-|0xD2|..|Reserved

;-|0xD3|..|Reserved

;-|0xD4|..|Reserved

;-|0xD5|..|Reserved

;-|0xD6|..|Reserved

;-|0xD7|..|Reserved

;-|0xD8|..|Unassigned

;-|0xD9|..|Unassigned

;-|0xDA|..|Unassigned

;VK_OEM_4|0xDB|[|Used for miscellaneous characters; it can vary by keyboard.[]For the US standard keyboard, the '[{' key

;VK_OEM_5|0xDC|\ or @pipe@|Used for miscellaneous characters; it can vary by keyboard.[]For the US standard keyboard, the '\|' key

;VK_OEM_6|0xDD|]|Used for miscellaneous characters; it can vary by keyboard.[]For the US standard keyboard, the ']}' key

;VK_OEM_7|0xDE|'|Used for miscellaneous characters; it can vary by keyboard.[]For the US standard keyboard, the 'single-quote/double-quote' key

;VK_OEM_8|0xDF|..|Used for miscellaneous characters; it can vary by keyboard.

;-|0xE0|..|Reserved

;..|0xE1|..|OEM specific

;VK_OEM_102|0xE2|..|Either the angle bracket key or the backslash key on the RT 102-key keyboard

;..|0xE3|..|OEM specific

;..|0xE4|..|OEM specific

;VK_PROCESSKEY|0xE5|..|IME PROCESS key

;..|0xE6|..|OEM specific

;VK_PACKET|0xE7|..|Used to pass Unicode characters as if they were keystrokes.

;- |0xE8|..|Unassigned

;..|0xE9|..|OEM specific

;..|0xEA|..|OEM specific

;..|0xEB|..|OEM specific

;..|0xEC|..|OEM specific

;..|0xED|..|OEM specific

;..|0xEE|..|OEM specific

;..|0xEF|..|OEM specific

;..|0xF0|..|OEM specific

;..|0xF1|..|OEM specific

;..|0xF2|..|OEM specific

;..|0xF3|..|OEM specific

;..|0xF4|..|OEM specific

;..|0xF5|..|OEM specific

;VK_ATTN|0xF6|..|Attn key

;VK_CRSEL|0xF7|..|CrSel key

;VK_EXSEL|0xF8|..|ExSel key

;VK_EREOF|0xF9|..|Erase EOF key

;VK_PLAY|0xFA|..|Play key

;VK_ZOOM|0xFB|..|Zoom key

;VK_NONAME|0xFC|..|Reserved for future use

;VK_PA1|0xFD|..|PA1 key

;VK_OEM_CLEAR|0xFE|..|Clear key

ARRAY(str) arr_keylist_const

ARRAY(str) arr_keylist_value

ARRAY(str) arr_keylist_qm

ARRAY(str) arr_keylist_descript

foreach _s keylist

,ARRAY(str) arr_tok 

,tok _s arr_tok -1 "|"

,arr_keylist_const[]=arr_tok[0]

,arr_keylist_value[]=arr_tok[1]

,arr_keylist_qm[]=arr_tok[2]

,arr_keylist_descript[]=arr_tok[3]

out arr_keylist_const.len

out arr_keylist_value.len

out arr_keylist_qm.len

out arr_keylist_descript.len

Sending commands from Android+Tasker to QM

Sun, 08 Oct 2017 22:16:41 +0000

Function dialog_HTTP_server_for_Tasker

Code:
;This is a simple HTTP server that can receive and return data.

;Can be used for example to launch QM macros from other computers and smartphones.

;Below is instructions how to send commands from an Android mobile device with Tasker.

;On your Android device install Tasker app. It is for sending HTTP requests. Costs $2.99. Or find a free app that can send HTTP requests.

;In Tasker create new task and add action HTTP Post.

;;;Set field Server:Port, like 192.168.8.123:5033. As Server, use one of IP addresses that you can see in QM Options -> Network. The 5033 is server's port that is used in this macro, see below.

;;;Set field Data / File. Can be any text or variable or file. At first just for testing.

;;;Set field Content Type, like text/plain.

;;;Optionally set field Output File, like Documents/test1.txt. Only if you want to receive some data from QM.

;Run this function and in the dialog click button Start.

;Run the Tasker task.

;;;In QM output you should see Tasker's HTTP POST request that includes data at the end.

;;;If was set Output File, the task creates the file. It contains text DATA.

if(getopt(nthreads)>1) ret ;;allow single instance

#compile "__TcpSocket"

str dd=

;BEGIN DIALOG

;0 "" 0x90C80AC8 0x0 0 0 230 116 "TCP server"

;4 Static 0x54000000 0x0 170 8 22 12 "Port"

;5 Edit 0x54032000 0x200 196 6 32 14 "port"

;6 Button 0x54032000 0x0 6 6 48 14 "Start"

;7 Button 0x5C032000 0x0 58 6 48 14 "Stop"

;14 Static 0x54000000 0x0 6 30 36 12 "Response"

;15 Edit 0x54231044 0x200 46 28 182 85 "res"

;END DIALOG

;DIALOG EDITOR: "" 0x2030300 "*" "" ""

str controls = "5 15"

str e5por e15res

e5por=5033

;minimal HTTP response with no data.

;e15res="HTTP/1.1 200 OK[][]"

;HTTP response with some data.

e15res="HTTP/1.1 200 OK[]Content-Type: text/plain[]Content-Length: 4[][]DATA"

if(!ShowDialog(dd &sub.DlgProc &controls 0 0 0 0 0 0 100)) ret

#sub DlgProc

function# hDlg message wParam lParam

TcpSocket- t_server

sel message

,case WM_INITDIALOG

,case WM_DESTROY

,t_server.Close

,case WM_COMMAND goto messages2

ret

;messages2

sel wParam

,case 6 ;;Start

,t_server.ServerStart(GetDlgItemInt(hDlg 5 0 0) &sub.OnClientConnected hDlg 1)

,EnableWindow lParam 0

,EnableWindow id(7 hDlg) 1

,

,case 7 ;;Stop

,t_server.Close

,EnableWindow lParam 0

,EnableWindow id(6 hDlg) 1

ret 1

err+ out _error.description

#sub OnClientConnected

function TcpSocket&client $clientIp hDlg !*reserved

;This function is called in server side, when a client connects.

;This function runs in separate thread for each client connection.

out F"<>SERVER: client connected: {clientIp}"

str s

client.Receive(s 1000)

out F"<>SERVER: client request:"

out s

s.getwintext(id(15 hDlg))

client.Send(s)

err+ out _error.description

TcpSocket.qml (Size: 19 KB / Downloads: 704)