Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Auto Encrypt Decrypt
#1

This macro Is meant to toggle Encrypt/Decrypt. If your macro selected is not Encrypted it will Encrypt it, if it is Encrypted it will Decrypt it.

NOTE THIS WILL NOT DECRYPT A MACRO THAT YOU DO NOT HAVE THE PASSWORD FOR.

Also note the password has to be the same in this macro as the macro you are going to Encrypt/Decrypt.

Function ( AED_John ) Trigger ( F12 /QM )
Code:
Select All      Help
str pw="yourpw1";; change this to the password you would like
;DO NOT! LEAVE AS "yourpw1" or someone may guess your password.


int hwnd;str enct;Acc a
men 2010  _hwndqm
hwnd=wait(5 WC win("Options" "#32770"))
if hwnd=0
,out 1
,end
act hwnd
a=acc("Security" "PAGETAB" hwnd "SysTabControl32" "" 0x1001)
a.Select(SELFLAG_TAKEFOCUS|SELFLAG_TAKESELECTION)
pw.setwintext(id(1051 hwnd))
pw.setwintext(id(1053 hwnd))
enct.getmacro("" 5)
if val(enct)=0
,but+ id(1106 hwnd)
else
,but+ id(1107 hwnd)
act hwnd
but+ id(1 hwnd)


Attached Files
.qml   AED_John.qml (Size: 682 bytes / Downloads: 465)
#2
Once again John, this is pretty nifty. Keep the cool macros coming.
Taking on Quick Macros one day at a time
#3
Very nice, I love it TY
#4
how can i make this toggle through a llist of my macros and encrypt or decrypt them all
#5
not tested

replace 5 lines starting from enct.getmacro

Macro
Code:
Select All      Help
str s mlist="macro1[]macro2[]..."
foreach s mlist
,mac+ s
,enct.getmacro("" 5)
,if val(enct)=0
,,but+ id(1106 hwnd)
,else
,,but+ id(1107 hwnd)
#6
nice works better than my way thx


Forum Jump:


Users browsing this thread: 1 Guest(s)