Autor Tema: Sendkeys (Leído 2208 veces)

ElNapster · « **en:** Jueves 19 de Abril de 2007, 20:06 »

Que tal .... tengo una pregunta... como puedo yo enviarle yo a un proceso especifico un SendKeys "%{N}" , pero por decirles si estoy haciendo otra cosa y ocurre esa funcion me lo hace en la ventana donde estoy... pero yo quisera que no importe donde este .. y el SendKeys "%{N}" se envie al proceso que yo le diga ...

Se podra hacer eso ???

Gracias ...

Epa

Buenas.

Se me ocurre que con un Sendmessage lo puedes hacer.
Mandando como mensaje las constantes WM_KEYUP y WM_KEYDOWN.

El unico problema es que la aplicacion debe tener la subclasificacionactivada.

No estoy muy seguro de esto, tal vez con un simpre WM_COMMAND se pueda lograr.

La aplicacion a la que le quieres mandar la tecla, es tuya, o es cualquier otra?

Voy a buscar si encuentro mas data de lo q te dije, y te digo.

Saludos

-------------------
Aqui tengo algo:

Código: Text

 
Public Declare Function PostMessage Lib &#34;user32&#34; Alias &#34;PostMessageA&#34; (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const WM_KEYDOWN = &H100

y luego llamanas

Código: Text

 
Call PostMessage(hwnd, WM_KEYDOWN, ascii, 0)

Espero sirva, saludos

(El postmessage no necesita subclasificacion)

ElNapster

Thank's ..

Citar

La aplicacion a la que le quieres mandar la tecla, es tuya, o es cualquier otra?

Si es una aplicacion mia, o sea que yo quiero que cuando este yo posicionado en otra parte que no sea mi aplicacion , al momento que me salgo un msgbox de mi aplicaion el automaticamente el envio un sendkey ...... pero actualmente se lo esta enviando ala aplicacion que este abierta ...

Gracias

F_Tanori

Hay una funcion que se llama Appactivate(titulo,espera)

Sirve para activar una ventana por el titulo puede ser que te sirva

Código: Text

 
Private Sub Command1_Click()
    Shell &#34;notepad.exe&#34;, vbNormalFocus
    AppActivate &#34;Untitled - Notepad&#34;
    SendKeys &#34;Enviado de desde VB&#34;
End Sub
 
 

Saludos

ElNapster

Citar

Hay una funcion que se llama Appactivate(titulo,espera)

Sirve para activar una ventana por el titulo puede ser que te sirva

CODE

Private Sub Command1_Click()
Shell "notepad.exe", vbNormalFocus
AppActivate "Untitled - Notepad"
SendKeys "Enviado de desde VB"
End Sub

Saludos

Fijate que si me funciona , pero cuando ya la ejecuto por varias veces como que se va poniendo algo loco jajaja.... porque ya no me hace nada ... yo esto trabajando con el Winzip , y cuando me da una alerta de un archivo tipo GZ le tengo que enviar "N" y tiene que seguir su proceso normal ... pero no me funciona

no saber otra forma u otro comando que me pueda servir de referencia ?

Gracias

Epa

Buenas.

Cuando te salga la alerta, puedes intentar cojer su handle con la api findwindow y luego mandarle una pulsacion con postmessage.

Saludos

ElNapster

tendras un ejemplin por alli ?

Thnks

Epa

Aqui hay un pequeño ejemplo.
No es de lo mejor xD ya que usa un timer, pero puede servir.

Saludos

---

Esto no deja adjuntar rars

ElNapster

Sulicionado compañeros !!!!!!!
les pongo el codigo por si a alguien le interesa

En un Modulo

Código: Text

Public Declare Sub Sleep Lib &#34;kernel32&#34; (ByVal dwMilliseconds As Long)
Public Const GW_HWNDNEXT = 2
 
Public Declare Function GetParent Lib &#34;user32&#34; (ByVal hwnd As Long) As Long
Public Declare Function GetWindow Lib &#34;user32&#34; (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Public Declare Function FindWindow Lib &#34;user32&#34; Alias &#34;FindWindowA&#34; (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetWindowText Lib &#34;user32&#34; Alias &#34;GetWindowTextA&#34; (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function GetWindowThreadProcessId Lib &#34;user32&#34; (ByVal hwnd As Long, lpdwprocessid As Long) As Long
 
Function ProcIDFromWnd(ByVal hwnd As Long) As Long
   Dim idProc As Long
   GetWindowThreadProcessId hwnd, idProc
   ProcIDFromWnd = idProc
End Function
      
Function GetWinHandle(hInstance As Long) As Long
   Dim tempHwnd As Long
   tempHwnd = FindWindow(vbNullString, vbNullString)
   Do Until tempHwnd = 0
      If GetParent(tempHwnd) = 0 Then
         If hInstance = ProcIDFromWnd(tempHwnd) Then
            GetWinHandle = tempHwnd
            Exit Do
         End If
      End If
   
      tempHwnd = GetWindow(tempHwnd, GW_HWNDNEXT)
   Loop
End Function
 

Form (colocar un boton)

Código: Text

   Dim hInst As Long 
   Dim hWndApp As Long      
   Dim buffer As String          
   Dim numChars As Integer  
   
     Sleep 3000
   hInst = Shell(&#34;c:&#092;demo&#092;otro.exe&#34;) 'yo aca puse este form que me llama un msgbox con yes / no  y lo cancelo con el sendkeys
   
     hWndApp = GetWinHandle(hInst)
   
   If hWndApp &#60;&#62; 0 Then
      ' Init buffer
      buffer = Space&#036;(128)
      
      numChars = GetWindowText(hWndApp, buffer, Len(buffer))
   
       SendKeys &#34;%{N}&#34;
 

Espero les sirva

SoloCodigo

Autor Tema: Sendkeys (Leído 2208 veces)

ElNapster

Sendkeys

Epa

Re: Sendkeys

ElNapster

Re: Sendkeys

F_Tanori

Re: Sendkeys

ElNapster

Re: Sendkeys

Epa

Re: Sendkeys

ElNapster

Re: Sendkeys

Epa

Re: Sendkeys

ElNapster

Re: Sendkeys