QM Auto Message Text

[John]

This is a macro I made because I got sick of color coding my comments on the forum. It could also be used for adding text to your post, something like a siggie.

It works off of a window trigger and when go to make post on QM forum your auto text will be added to the Message Body of the post. It should work on any Internet Browser, but I have only tested it on IE7.


Function ( QM_AutoText ) Trigger ( !n"Quick Macros :: Post" )

Code:

Copy      Help

int cnt hwnd=val(_command);str istext AutoText;Htm x0
;1a
if cnt=400
,end
x0=htm("TEXTAREA" "" "" hwnd 0 0 0x20)
err
,cnt+1
,0.1
,goto 1a
istext=x0.Text
if len(istext)<>0
,end
;!!!!!!!!!!! Edit the the code between (AutoText=) and (x0.SetText(AutoText)) !!!!!!!!!!
AutoText=
;[color=darkblue][b]
;
;;[/b][/color]
x0.SetText(AutoText)
;If you need any help PM me on QM forum (JOHN_)

[QM Assistant]

Pretty cool John.
Is there any other colors?

[John]

Code:

Copy      Help

[color=darkblue][b]

Edit this part of the code you could change 'darkblue to anything you want. see Font colour menu (that would be when your posting a message) for more colors, Tip: you can also use color=#FF0000 coding.

Example: (of red)
Function ( QM_AutoText ) Trigger ( !n"Quick Macros :: Post" )

Code:

Copy      Help

int cnt hwnd=val(_command);str istext AutoText;Htm x0
;1a
if cnt=400
,end
x0=htm("TEXTAREA" "" "" hwnd 0 0 0x20)
err
,cnt+1
,0.1
,goto 1a
istext=x0.Text
if len(istext)<>0
,end
;!!!!!!!!!!! Edit the the code between (AutoText=) and (x0.SetText(AutoText)) !!!!!!!!!!
AutoText=
;[color=red][b]
;
;;[/b][/color]
x0.SetText(AutoText)
;If you need any help PM me on QM forum (JOHN_)

[QM Assistant]

Awesome.
Thanks.

[John]

Here is a site with some color codes that should work.

Code:

Copy      Help

http://www.brobstsystems.com/colors1.htm

Example:

Code:

Copy      Help

[color=#6C3336]

[QM_Expert]

This is very very usefull!