| |
| |
|
Rolf
Koch | Hallöchen heut frag Yo veces así en el Runde, como I, con Drucken nie soviel gemacht habe.
Folgende Problemstellung:
Wir haben en uns una Computer con Drucker en el Lager.
Wenn una Kunde una Gerät gekauft ha y a el Kasse bezahlt ha, así kommt en uns una entsprechender Beleg de el Drucker, así wir el Waschmaschine, TV oder solch una Zeugs raussuchen puede.
Jetzt sería Me gusta una nebenbeilaufendes Tool escribir, welches una Sound abspielt, si una solcher Beleg de el Drucker kommt.
Meint Ihr, Yo podría dies irgendwie erreichen? |
|
| |
| |
| |
|
|
 | Welches Sistema?
Como ha todavía alguien solch "Problem" [...]  
Es wohl WinSpool-Zeugs, hier wohl algo Source en VB: [...] |
|
| |
| |
| |
|
|
Rolf
Koch | |
| |
| |
| |
|
|
| |
| |
| |
| |
|
|
Rolf
Koch | | OK como kämpf Yo veces - Gracias IF ^ ^ |
|
| |
| |
| |
|
|
| Hab desafortunadamente nix a, aber hätte gern. ^ ^
Hehe schau mal guter Einstieg: [...] |
|
| |
| |
| |
|
|
| | Hier [...] liegt auch qué. |
|
| |
| |
| |
|
|
Rolf
Koch | | Naja como liegt zwar einiges, aber como dijo möchte Yo lediglich erkennen si el Drucker gerade druckt y el druckende Programa es kein Profanprogramm. Lo erscheint bastante kurz siempre una Druckerdialog y luego druckt el Teil. |
|
| |
| |
| |
|
|
| | Hehe hier schau mal [...] Aunque Pascal... |
|
| |
| |
| |
|
|
Frank
Abbing | Usted musst eigentlich sólo kontinuierlich una Ventana con el Druckernamen suchen. Beim Drucken se kurz una Trayicon eingeblendet, a el el (unsichtbare) Ventana gehört.
Ein weiterer Weg wäre el Suchen después de el Drucker-Prozess. |
|
| |
| |
| |
|
|
| Hier Rolf así gehts si la PrintMon [...] (de oben el Link) nebenher se ejecuta: 
KompilierenMarcaSeparación
$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 KompilierenMarcaSeparaciónDECLARE __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&
RETORNO 0
ENDIF
RETORNO H&
ENDPROC
Wenn beide Exen laufen se gebeept sobald algo en el Bezug en el Drucker passiert... |
 |
| |
| |
| |
|
|
Rolf
Koch | Das stimmt Franco, sin embargo hay el problema, dass Yo no al Rechner en el Fa. proggen y testen kann - also sólo hier zuhause.
Durch IF bin tener Yo nun [...] heruntergeladen y getestet. Perfekt si yo el beiliegende Exe starte. Wenn Yo drucke entonces Será mejor que te va brav erkannt. Jedoch si yo el 100 Archivos sehe y naja el 0 Idea de la lengua ... ^ ^ |
|
| |
| |
| |
|
(463)
Deutsch
English
Français
Español
Italia