XProfan

 $cleq}

const myPMon.Title="PrinterMonitor v3 (c) 2001 by -=Assarbad=- [1.31]"
const myPMon.getMsgSize=sendMessage(hList,wm_getTextLength,0,0)
windowTitle "SoundPlugin: "+myPMon.Title
windowStyle 512 | 8 | 16 | 32
window 640,480
long h=findWindow(myPMon.Title)
casenot getText$(h)==myPMon.Title : end
long hList=myPMon.enumListFromPMonHWnd(h)
casenot h : end
print "hmkey... letz wait"
long myPMon.lastMsgSize=myPMon.getMsgSize,c

do {

waitInput 2500
case %key==2 : break
c=myPMon.getMsgSize
case myPMon.lastMsgSize==c : continue
myPMon.lastMsgSize=c
print ".";

whileLoop 3 {

    sound 1000,20*loop
    sound 500*loop,20*loop
    sound 2000,20*loop

}

}

end

myPMon.enumListFromPMonHWnd(long h){

h=findWindowEx(h,,"Edit",)
casenot h : return null
return h

}

DECLARE __cf1&
Def __cf1(2) !"KERNEL32","GetProcAddress"
Def __cf2(1) !"KERNEL32","GetModuleHandleA"
__cf1&=__cf1(__cf2("user32.dll"),"FindWindowExA")
WINDOWTITLE "SoundPlugin: "+"PrinterMonitor v3 (c) 2001 by -=Assarbad=- [1.31]"
WINDOWSTYLE 512 | 8 | 16 | 32
WINDOW 640,480
var H&=FINDWINDOW("PrinterMonitor v3 (c) 2001 by -=Assarbad=- [1.31]")

IFNOT GETTEXT$(H&)="PrinterMonitor v3 (c) 2001 by -=Assarbad=- [1.31]"

    end

ENDIF

var HLIST&=MYPMON.ENUMLISTFROMPMONHWND(H&)

IFNOT H&

    end

ENDIF

PRINT "hmkey... letz wait"
var MYPMON.LASTMSGSIZE&=SENDMESSAGE(HLIST&,$000E,0,0)
var C&=0

WHILE 1

    WAITINPUT 2500

    IF %KEY=2

        BREAK

    ENDIF

    C&=SENDMESSAGE(HLIST&,$000E,0,0)

    IF MYPMON.LASTMSGSIZE&=C&

        CONTINUE

    ENDIF

    MYPMON.LASTMSGSIZE&=C&
    PRINT ".";

    WHILELOOP 3

        SOUND 1000,20*&LOOP
        SOUND 500*&LOOP,20*&LOOP
        SOUND 2000,20*&LOOP

    ENDWHILE

ENDWHILE

end

proc MYPMON.ENUMLISTFROMPMONHWND

    PARAMETERS H&
    H&=call(__cf1&,H&,0,"Edit",0)

    IFNOT H&

        RETURN 0

    ENDIF

    RETURN H&

endproc