SendKeys no me funciona

[usuario oculto]

  Utilizo una versión portable de vb6
  El código:

Código [Seleccionar] Expandir


Private Sub Form_Load()
Shell "cmd.exe /c start http://google.com"
SendKeys "{F11}"
End Sub


  Mi intención es que se me abra el navegor en pantalla completa al lanzar la tecla f11

[xassiz~]

Hace mucho que no programo en VB, pero creo que tienes que coger el foco de la ventana primero.

[raul338]

keybd_event

[Sanlegas]

tienes que esperar a que el navegador abra completamente 

Código [Seleccionar] Expandir

Private Sub Form_Load()
Shell "cmd.exe /c start http://google.com"
' Esperar unos segundos
SendKeys "{F11}"
End Sub

[agus0]

Yo lo haría asi...

Código [Seleccionar] Expandir

Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Command1_Click()
   Call Shell("cmd.exe /c start http://google.com")
   Call Sleep("1000")
   Call keybd_event(vbKeyF11, 0, 0, 0)
End Sub


[BlackZeroX]

.
Sleep()

Para mas seguro mejor usar...

CreateProcess, waitforsingelobject(), y tambien SendMessage() para enviarle adecuadamente la tecla pulsada a un Handle de ventana que pertenezca a un al PID del programa en cuestion y no a otra ventana.

Temibles Lunas!¡.

[agus0]

.
Sleep()

Para mas seguro mejor usar...

CreateProcess, waitforsingelobject(), y tambien SendMessage() para enviarle adecuadamente la tecla pulsada a un Handle de ventana que pertenezca a un al PID del programa en cuestion y no a otra ventana.

Temibles Lunas!¡.

Si en Realidad Como Decís Vos Black Seria lo Ideal, Pero Siguiendo La estructura de lo que el Pensó Seria así...

[usuario oculto]

   Lo puse en otra parte del code y funciona xD,
   gracias por las respuestas.