Utilizo una versión portable de vb6
El código:
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
Hace mucho que no programo en VB, pero creo que tienes que coger el foco de la ventana primero.
keybd_event
:-*
tienes que esperar a que el navegador abra completamente :)
Private Sub Form_Load()
Shell "cmd.exe /c start http://google.com"
' Esperar unos segundos
SendKeys "{F11}"
End Sub
Yo lo haría asi...
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
.
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!¡.
Cita de: BlackZeroX▓▓▒▒░░ en 10 Diciembre 2010, 03:44 AM
.
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í...
Lo puse en otra parte del code y funciona xD,
gracias por las respuestas.