Quiero mandar a TODAS las ventanas la misma secuencia de caracteres mas el intro.
¿ Como lo hago ?
Como ejemplo mirar el "Cluster Telnet (ctelnet)" de Solaris (Sun Cluster Console).
![Image](http://docs.sun.com/source/806-5342/images/4cc.tiff.gif)
![Image](http://docs.sun.com/source/816-2145-12/figures/clust_chap-14.gif)
![Image](http://docs.sun.com/source/816-3538-10/figures/clust_chap-13.gif)
Antonio Linares wrote:El problema es que si son ventanas de consola, entonces no se les puede enviar mensajes. Si son ventanas normales, si.
JmGarcia wrote:Antonio Linares wrote:El problema es que si son ventanas de consola, entonces no se les puede enviar mensajes. Si son ventanas normales, si.
Bueno, parece que algo se puede hacer... ¿ no ?
Bueno pueden ser ventanas de una aplicación de telnet (como la telnet de NT, que funciona en Win2000/XP), no tiene que ser de consola.
Podríamos experimentar con varios NotePad.exe.
Explícame esto ultimo (Si son ventanas normales, si).
P.D.: Que rarito soy ¿ verdad ?, es que con lo de "altas, bajas, modificaciones, consultas, etc..." no me divierto
FiveWiDi wrote:oWnd:WCapture( cTitle, .T. )
JmGarcia wrote:FiveWiDi wrote:oWnd:WCapture( cTitle, .T. )
¿ Quien es oWnd ?
Me da error: Error description: Error BASE/1003 Variable does not exist: OWND
LOCAL hWnd1,hWnd2
hWnd1:=FindWindow(0,"cconsole: host rigor")
hWnd2:=FindWindow(0,"cconsole: host slash")
//Si hWnd>0 ventana encontrada
Envia(hWnd1, "texto que se envia")
Envia(hWnd2, "texto que se envia")
...
//--------------------------------
STATIC FUNCTION Envia(hWnd,uVal)
LOCAL nLen,i
IF ValType(uVal)=='N'
uVal:=AllTrim(Str(Int(uVal))) //asumo que no se usan decimales.
ENDIF
nLen:=Len(uVal)
FOR i:=1 TO nLen
SendMessage( hWnd, WM_KEYDOWN, Asc( SubStr(uVal,i,1)) )
NEXT
RETURN NIL
Biel EA6DD wrote:
- Code: Select all Expand view
SendMessage( hWnd, WM_KEYDOWN, Asc( SubStr(uVal,i,1)) )
Pues si con XP. Mañana lo probare con Win2000.Antonio Linares wrote:Pues es toda una sorpresaEstás usando XP ?
Antonio Linares wrote:SetFocus( hWnd )
JmGarcia wrote:Pues si con XP. Mañana lo probare con Win2000.Antonio Linares wrote:Pues es toda una sorpresaEstás usando XP ?
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 98 guests