Autor
|
Tema: Una ayudita por favor! (Leído 3,485 veces)
|
Makoto
Desconectado
Mensajes: 147
|
Hola, quisiera que me ayudaran en la realización de un pequeño programa el cual debe iniciar al presionar la tecla F7 y finalizar al presionar F8. Necesito un ciclo que haga que se presione la tecla Space Bar repetidamente con intervalos de 2 segundos. Me explico: Presiono F7 se inicia el ciclo y la tecla Space Bar se ejecuta cada 2 segundos indefinidamente y el ciclo finaliza al presionar F8. Es algo tonto pero no sé como hacerlo =S Gracias de antemano.
|
|
|
En línea
|
|
|
|
Cicklow
Desconectado
Mensajes: 604
-=Cicklow SOFT®=-
|
para esto nesesitas un timer que se ejecute cada dos segundos en el timer pones (que este desabilitado el timer): SendKeys("{space}") ''prova sin los () por las dudas tambien!
En las propiedades del formulario activas la opcion que es la de mapear las teclas pulsadas "keyPreview" En el evento keyDown pones Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 'constantes de la variable shift 'vbShiftMask=1 'vbCtrlMask=2 'vbAltMask=4 IF KeyCode = vbKeyF7 THEN Timer1.Enabled = True ELSE Timer1.Enabled = False END IF End Sub
Te recomiendo que mires la ayuda de VB, en esta viene mucho sobre el temas de las teclas. Aka te dejo las teclas: Y ahi van las constantes de las teclas.
Códigos de tecla Constante Valor Descripción vbKeyLButton 1 Botón primario del mouse vbKeyRButton 2 Botón secundario del mouse vbKeyCancel 3 Tecla CANCEL vbKeyMButton 4 Botón central del mouse vbKeyBack 8 Tecla RETROCESO vbKeyTab 9 Tecla TAB vbKeyClear 12 Tecla SUPR vbKeyReturn 13 Tecla ENTRAR vbKeyShift 16 Tecla MAYÚS vbKeyControl 17 Tecla CTRL vbKeyMenu 18 Tecla MENÚ vbKeyPause 19 Tecla PAUSA vbKeyCapital 20 Tecla BLOQ MAYÚS vbKeyEscape 27 Tecla ESC vbKeySpace 32 Tecla BARRA ESPACIADORA vbKeyPageUp 33 Tecla RE PÁG vbKeyPageDown 34 Tecla AV PÁG vbKeyEnd 35 Tecla FIN vbKeyHome 36 Tecla INICIO vbKeyLeft 37 Tecla FLECHA IZQUIERDA vbKeyUp 38 Tecla FLECHA ARRIBA vbKeyRight 39 Tecla FLECHA DERECHA vbKeyDown 40 Tecla FLECHA ABAJO vbKeySelect 41 Tecla SELECT vbKeyPrint 42 Tecla IMPRIMIR PANTALLA vbKeyExecute 43 Tecla EXECUTE vbKeySnapshot 44 Tecla SNAPSHOT vbKeyInsert 45 Tecla INS vbKeyDelete 46 Tecla SUPR vbKeyHelp 47 Tecla AYUDA vbKeyNumlock 144 Tecla BLOQ NUM
Desde KeyA hasta KeyZ son iguales a sus equivalentes ASCII: 'A' hasta 'Z' Constante Valor Descripción vbKeyA 65 Tecla A vbKeyB 66 Tecla B vbKeyC 67 Tecla C vbKeyD 68 Tecla D vbKeyE 69 Tecla E vbKeyF 70 Tecla F vbKeyG 71 Tecla G vbKeyH 72 Tecla H vbKeyI 73 Tecla I vbKeyJ 74 Tecla J vbKeyK 75 Tecla K vbKeyL 76 Tecla L vbKeyM 77 Tecla M vbKeyN 78 Tecla N vbKeyO 79 Tecla O vbKeyP 80 Tecla P vbKeyQ 81 Tecla Q vbKeyR 82 Tecla R vbKeyS 83 Tecla S vbKeyT 84 Tecla T vbKeyU 85 Tecla U vbKeyV 86 Tecla V vbKeyW 87 Tecla W vbKeyX 88 Tecla X vbKeyY 89 Tecla Y vbKeyZ 90 Tecla Z
Desde Key0 hasta Key9 son iguales a sus equivalentes ASCII: '0' hasta '9' Constante Valor Descripción vbKey0 48 Tecla 0 vbKey1 49 Tecla 1 vbKey2 50 Tecla 2 vbKey3 51 Tecla 3 vbKey4 52 Tecla 4 vbKey5 53 Tecla 5 vbKey6 54 Tecla 6 vbKey7 55 Tecla 7 vbKey8 56 Tecla 8 vbKey9 57 Tecla 9
Teclas del teclado numérico Constante Valor Descripción vbKeyNumpad0 96 Tecla 0 vbKeyNumpad1 97 Tecla 1 vbKeyNumpad2 98 Tecla 2 vbKeyNumpad3 99 Tecla 3 vbKeyNumpad4 100 Tecla 4 vbKeyNumpad5 101 Tecla 5 vbKeyNumpad6 102 Tecla 6 vbKeyNumpad7 103 Tecla 7 vbKeyNumpad8 104 Tecla 8 vbKeyNumpad9 105 Tecla 9 vbKeyMultiply 106 Tecla SIGNO DE MULTIPLICACIÓN (*) vbKeyAdd 107 Tecla SIGNO MÁS (+) vbKeySeparator 108 Tecla INTRO (teclado numérico) vbKeySubtract 109 Tecla SIGNO MENOS (-) vbKeyDecimal 110 Tecla PUNTO DECIMAL (.) vbKeyDivide 111 Tecla SIGNO DE DIVISIÓN (/)
Teclas de función Constante Valor Descripción vbKeyF1 112 Tecla F1 vbKeyF2 113 Tecla F2 vbKeyF3 114 Tecla F3 vbKeyF4 115 Tecla F4 vbKeyF5 116 Tecla F5 vbKeyF6 117 Tecla F6 vbKeyF7 118 Tecla F7 vbKeyF8 119 Tecla F8 vbKeyF9 120 Tecla F9 vbKeyF10 121 Tecla F10 vbKeyF11 122 Tecla F11 vbKeyF12 123 Tecla F12 vbKeyF13 124 Tecla F13 vbKeyF14 125 Tecla F14 vbKeyF15 126 Tecla F15 vbKeyF16 127 Tecla F16 Espero que te sea de ayuda saludos!
|
|
|
En línea
|
|
|
|
ranslsad
Desconectado
Mensajes: 492
Dim Ranslsad as String * :P - Que Vicio!
|
para esto nesesitas un timer que se ejecute cada dos segundos en el timer pones (que este desabilitado el timer): SendKeys("{space}") ''prova sin los () por las dudas tambien!
En las propiedades del formulario activas la opcion que es la de mapear las teclas pulsadas "keyPreview" En el evento keyDown pones Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 'constantes de la variable shift 'vbShiftMask=1 'vbCtrlMask=2 'vbAltMask=4 IF KeyCode = vbKeyF7 THEN Timer1.Enabled = True ELSE Timer1.Enabled = False END IF End Sub
Te recomiendo que mires la ayuda de VB, en esta viene mucho sobre el temas de las teclas. Aka te dejo las teclas: Y ahi van las constantes de las teclas.
Códigos de tecla Constante Valor Descripción vbKeyLButton 1 Botón primario del mouse vbKeyRButton 2 Botón secundario del mouse vbKeyCancel 3 Tecla CANCEL vbKeyMButton 4 Botón central del mouse vbKeyBack 8 Tecla RETROCESO vbKeyTab 9 Tecla TAB vbKeyClear 12 Tecla SUPR vbKeyReturn 13 Tecla ENTRAR vbKeyShift 16 Tecla MAYÚS vbKeyControl 17 Tecla CTRL vbKeyMenu 18 Tecla MENÚ vbKeyPause 19 Tecla PAUSA vbKeyCapital 20 Tecla BLOQ MAYÚS vbKeyEscape 27 Tecla ESC vbKeySpace 32 Tecla BARRA ESPACIADORA vbKeyPageUp 33 Tecla RE PÁG vbKeyPageDown 34 Tecla AV PÁG vbKeyEnd 35 Tecla FIN vbKeyHome 36 Tecla INICIO vbKeyLeft 37 Tecla FLECHA IZQUIERDA vbKeyUp 38 Tecla FLECHA ARRIBA vbKeyRight 39 Tecla FLECHA DERECHA vbKeyDown 40 Tecla FLECHA ABAJO vbKeySelect 41 Tecla SELECT vbKeyPrint 42 Tecla IMPRIMIR PANTALLA vbKeyExecute 43 Tecla EXECUTE vbKeySnapshot 44 Tecla SNAPSHOT vbKeyInsert 45 Tecla INS vbKeyDelete 46 Tecla SUPR vbKeyHelp 47 Tecla AYUDA vbKeyNumlock 144 Tecla BLOQ NUM
Desde KeyA hasta KeyZ son iguales a sus equivalentes ASCII: 'A' hasta 'Z' Constante Valor Descripción vbKeyA 65 Tecla A vbKeyB 66 Tecla B vbKeyC 67 Tecla C vbKeyD 68 Tecla D vbKeyE 69 Tecla E vbKeyF 70 Tecla F vbKeyG 71 Tecla G vbKeyH 72 Tecla H vbKeyI 73 Tecla I vbKeyJ 74 Tecla J vbKeyK 75 Tecla K vbKeyL 76 Tecla L vbKeyM 77 Tecla M vbKeyN 78 Tecla N vbKeyO 79 Tecla O vbKeyP 80 Tecla P vbKeyQ 81 Tecla Q vbKeyR 82 Tecla R vbKeyS 83 Tecla S vbKeyT 84 Tecla T vbKeyU 85 Tecla U vbKeyV 86 Tecla V vbKeyW 87 Tecla W vbKeyX 88 Tecla X vbKeyY 89 Tecla Y vbKeyZ 90 Tecla Z
Desde Key0 hasta Key9 son iguales a sus equivalentes ASCII: '0' hasta '9' Constante Valor Descripción vbKey0 48 Tecla 0 vbKey1 49 Tecla 1 vbKey2 50 Tecla 2 vbKey3 51 Tecla 3 vbKey4 52 Tecla 4 vbKey5 53 Tecla 5 vbKey6 54 Tecla 6 vbKey7 55 Tecla 7 vbKey8 56 Tecla 8 vbKey9 57 Tecla 9
Teclas del teclado numérico Constante Valor Descripción vbKeyNumpad0 96 Tecla 0 vbKeyNumpad1 97 Tecla 1 vbKeyNumpad2 98 Tecla 2 vbKeyNumpad3 99 Tecla 3 vbKeyNumpad4 100 Tecla 4 vbKeyNumpad5 101 Tecla 5 vbKeyNumpad6 102 Tecla 6 vbKeyNumpad7 103 Tecla 7 vbKeyNumpad8 104 Tecla 8 vbKeyNumpad9 105 Tecla 9 vbKeyMultiply 106 Tecla SIGNO DE MULTIPLICACIÓN (*) vbKeyAdd 107 Tecla SIGNO MÁS (+) vbKeySeparator 108 Tecla INTRO (teclado numérico) vbKeySubtract 109 Tecla SIGNO MENOS (-) vbKeyDecimal 110 Tecla PUNTO DECIMAL (.) vbKeyDivide 111 Tecla SIGNO DE DIVISIÓN (/)
Teclas de función Constante Valor Descripción vbKeyF1 112 Tecla F1 vbKeyF2 113 Tecla F2 vbKeyF3 114 Tecla F3 vbKeyF4 115 Tecla F4 vbKeyF5 116 Tecla F5 vbKeyF6 117 Tecla F6 vbKeyF7 118 Tecla F7 vbKeyF8 119 Tecla F8 vbKeyF9 120 Tecla F9 vbKeyF10 121 Tecla F10 vbKeyF11 122 Tecla F11 vbKeyF12 123 Tecla F12 vbKeyF13 124 Tecla F13 vbKeyF14 125 Tecla F14 vbKeyF15 126 Tecla F15 vbKeyF16 127 Tecla F16 Espero que te sea de ayuda saludos! Muchas gracias por la info!!!! me sirvio mucho para poner accesos directos a botones y acciones , Gracias... Salu2 Ranslsad
|
|
|
En línea
|
|
|
|
Cicklow
Desconectado
Mensajes: 604
-=Cicklow SOFT®=-
|
Gracias por tu ayuda, pero sucede lo siguiente: Cuando presiono F7 lo que hace es mostrarme en un Text "vbKeySpace" algo así como si fuera un keylogger y no es lo que quiero, Necesito que al presionar F7 la tecla Space se ejecute sola. Por eso puse el Text, para ver si se movía la linea "|" un espacio cada 2 seg. Eso es lo que quiero, que se mueva cada 2 Seg y que pare cuando presione F8 Mira, presiono F7 y mi dedo va a presionar la barra espaceadora cada 2 segundos, si quiero que mi dedo deje de presionar la tecla espaceadora presiono F8. Claro lo del dedo lo tiene que hacer un ciclo "repita para" o algo así. Coloque lo de mi dedo como simple ejemplo. Cambia el conetenido del timer por: Text1.Value = Text1.Value & " " No es tan dificil si es lo que keres, meter espacios en el textbox!!!!!!!!! Todavia no entiendo para que pero weno!!!! Me avia faltado comprobar el F8 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 'constantes de la variable shift 'vbShiftMask=1 'vbCtrlMask=2 'vbAltMask=4 IF KeyCode = vbKeyF7 THEN Timer1.Enabled = True Else If KeyCode = vbKeyF8 Timer1.Enabled = False END IF End Sub
|
|
|
En línea
|
|
|
|
Makoto
Desconectado
Mensajes: 147
|
Ya lo hice ^^! Pero hay unos detalles: Lo del Text era solo para ver si "el cursor, |" se movia un espacio cada 2 segundos!. Cuando ejecuto el programita, me escribe SpaceSpaceSpaceSpace c me gustaría que solo moviera el cursor | un espacio cada 5 segundos. Como se hace para que se ejecute en memoria? Gracias de antemano
|
|
|
En línea
|
|
|
|
Cicklow
Desconectado
Mensajes: 604
-=Cicklow SOFT®=-
|
no podes ejecutarlo en memoria, (por asi decirlo), lo que podes hacer es ocultar el formulario, o mejor aun ker no tenga formulario lo ejecutas de un modulo, no podes hacer que se mueva el cursor, solo enviara espacios.... por eso!!!!
si no mal recuerdo si le envias un sendkeys al notepad, kreo que se mueve... no me acuerdo!!
en la ayuda del VB esta este pero con la calculadora, este te dara una idea de como usar los sendkeys!.
con respecto a lo del form en memoria!!!, podes kitarle el form y ejecutarlo desde un modulo (sub main), luego, le kitas las propiedades de que se muestre, algo!!, eso si cuando presione ctrl+alt+del se vera el programa!!, podes ver en la sección del troyano en VB hay trucos para ocultar el exe!!
|
|
|
En línea
|
|
|
|
|
|