Another autoyping demo

[Vortex]

Hi friends,

Here is another autotyping demo. This time, the characters of a message are sent to an edit box. The source code does not have any invoke statements to call API functions, this is accomplished with the usage of some macro techniques :

Code Select Expand


.
.
GetModuleHandle,NULL
mov hInstance,eax
DialogBoxParam,hInstance,ADDR DlgName,NULL,ADDR DlgProc,NULL
ExitProcess,eax
.
.


Code Select Expand


EXTERNDEF ExitProcess@4:PROC
ExitProcess EQU <invoke pr1 PTR ExitProcess@4>

EXTERNDEF GetModuleHandleA@4:PROC
GetModuleHandle EQU <invoke pr1 PTR GetModuleHandleA@4>

EXTERNDEF DialogBoxParamA@20:PROC
DialogBoxParam EQU <invoke pr5 PTR DialogBoxParamA@20>


prX macros are defined in windows.inc like the following :

Code Select Expand

ArgCount MACRO number
      LOCAL txt
      txt equ <typedef PROTO :DWORD>
        REPEAT number - 1
          txt CATSTR txt,<,:DWORD>
        ENDM
      EXITM <txt>
    ENDM

    pr0  typedef PROTO
    pr1  ArgCount(1)
    pr2  ArgCount(2)
    pr3  ArgCount(3)
    pr4  ArgCount(4)
.
.

[attachment deleted by admin]

[PBrennick]

Vortex,
That is a very nice example, a good addition to the GeneSys Project.  I think that this can be used to add an interesting effect to a program.

Paul

[Vortex]

Hi Paul,

Using the technique as an effect to support a program is a nice idea. One can play with the time-out value of SetTimer to modify the typing rate of the characters.

[timertik]

when I try to use this it doesnt compile
I get 2 error's

Code Select Expand

application.obj : error LNK2001: unresolved external symbol _KillTimer1@8
application.obj : error LNK2001: unresolved external symbol _SetTimer1@16


the editbox.inc looks like this

Code Select Expand

EXTERNDEF KillTimer1@8:PROC
KillTimer1 EQU <invoke pr2 PTR KillTimer1@8>

EXTERNDEF SetTimer1@16:PROC
SetTimer1 EQU <invoke pr4 PTR SetTimer1@16>

I removed all but the required data

I do not understand this code it doesnt look like what im used to

please note that I am already using KillTimer and SetTimer in my application
i get errors when using multiple killtimer and settimer
so I tried renaming all of your code to KillTimer1 and SetTimer1 and it seems to work but it will not accept the code in editbox.inc

[Vortex]

timertik,

You are trying to rename the original API functions, this why you are receiving error messages :

Code Select Expand

EXTERNDEF KillTimer1@8:PROC
.
.

EXTERNDEF SetTimer1@16:PROC
.
.

You should not insert the extra character "1" to rename the APIs, they must remain intact.

[timertik]

if they remain intact I get different errors
Nevermind I somehow didnt notice the comments at the top stating you didnt use invoke if i add invoke it compiles It works fine now
i will try to improve it to my needs if thats ok with you.
thanks for the example  :U

I have been mixing things up and I wonder if it can work to change the caption of a dialog and type it out
I tried:

Code Select Expand

invoke SetWindowText,hWin,editboxtext
but it doesnt type it like it would in an edit box it just leaves it blank
I wil look at it some more I am very new to macros so I dont know much but i will try to make it repeat after it has typed it out

[Vortex]

timertik,

OK, this time, I removed all the macros and replaced them with the invoke statement. To change the caption, you can send the WM_SETTEXT message to the dialog box :

Code Select Expand

invoke SendMessage,hWnd,WM_SETTEXT,0,ADDR caption

I modified the demo to set the caption with the autotype effect.

[attachment deleted by admin]

[timertik]

thanks this is what i was trying to do
:U
I will have to do more research on WM_SETTEXT I never used that one before  :clap: