 Autor
|
Tema: Creacion de Macros en Visual Basic [PROBLEMA] (Leído 2,091 veces)
|
Kalki
 Desconectado
Mensajes: 3
|
Bueno, me idea es la de crear un programa que al presionar X tecla de escriba o realice alguna accion deseada. El problema es q no recuerdo como se hacia esto. Ya se q es una boludes, pero si alguien me podria ayudar se los agradeceria mucho =) estuve leyendo este thread pero mucho q digamos no entendi. http://foro.elhacker.net/index.php/topic,118926.0.htmlSaludos, Gastón.-
|
|
|
|
|
En línea
|
|
|
|
Kalki
Desconectado
Mensajes: 3
|
Por favor, si alguien es capaz de sacarme esta duda se los agradeceria mucho.
Saludos,
Gastón.-
|
|
|
|
|
En línea
|
|
|
|
yalosabes
Desconectado
Mensajes: 87
|
holas, este codigo te kae a pelo, agregas un timer y nah mas , ah en este kaso se activa con el boton enter.
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Dim Men As String, Palabra As Long
Private Sub Form_Load()
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
Palabra = Int((Rnd * 5) + 1)
Select Case Palabra
Case 1
Men = "1 accion" '<- aky pones la accion o palabra
Case 2
Men = "2 accion" '<- aky pones la accion o palabra
'vas aumentado por ejemplo
'case 3
'men = "blablabla" y asi sucesivamente , tambien puedes dejar solo el case 1
End Select
KeyResult = GetAsyncKeyState(13)
If KeyResult = -32767 Then
SendKeys Men '
End If
End Sub
|
|
|
|
« Última modificación: 20 Abril 2006, 00:01 am por yalosabes »
|
En línea
|
|
|
|
NYlOn
Desconectado
Mensajes: 842
OOOOHHHHHH, TARAGÜIIII xDDDDDD
|
Nonono, eso no te va a servir. Ese codigo lo que hace es elegir frases aleatorias y si se presiona la tecla enter la envia con sendkeys. Algo adaptado a lo que necesitas seria: Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const VK_SHIFT = &H10
Private Sub Form_Load()
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
If GetAsyncKeyStat(VK_SHIFT) < 0 Then 'Si se aprieta la tecla Shift
Realizamos la accion deseada...
End If
End Sub
La constante VK_SHIFT seria la tecla SHIFT. Podes encontrar las constantes de las demas teclas en el API Viewer. Saludos.- |
|
|
|
|
En línea
|
|
|
|
|
LeandroA
|
cuando dice macros no se refiere a word o exel?, bien si es asi no podra contar con un Timer
|
|
|
|
|
En línea
|
|
|
|
Kalki
Desconectado
Mensajes: 3
|
Nonono, eso no te va a servir. Ese codigo lo que hace es elegir frases aleatorias y si se presiona la tecla enter la envia con sendkeys. Algo adaptado a lo que necesitas seria: Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const VK_SHIFT = &H10
Private Sub Form_Load()
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
If GetAsyncKeyStat(VK_SHIFT) < 0 Then 'Si se aprieta la tecla Shift
Realizamos la accion deseada...
End If
End Sub
La constante VK_SHIFT seria la tecla SHIFT. Podes encontrar las constantes de las demas teclas en el API Viewer. Saludos.- Muchas gracias, la verdad que era eso lo q estaba buscando. EDIT: Ya solucione el problema que tenia  Desde ya, gracias nuevamente. Saludos, Gastón.-
|
|
|
|
« Última modificación: 20 Abril 2006, 04:58 am por Kalki »
|
En línea
|
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
Duda con la creacion de un parchis en Visual Basic.net
.NET (C#, VB.NET, ASP)
|
BlackDiamond
|
1
|
4,003
|
27 Marzo 2011, 15:14 pm
por [D4N93R]
|
|
|
|
Pasar de macros VB en excel a aplicación en Visual Estudio (.net)
Programación General
|
hainner
|
0
|
3,537
|
12 Junio 2011, 02:21 am
por hainner
|
|
|
|
Creacion de un troyano: Visual Basic o Delphi?
Programación General
|
Bomb-P
|
1
|
1,991
|
14 Abril 2013, 14:35 pm
por 0xDani
|
|
|
|
Necesito que alguien me oriente para la creación de un traductor en Visual Basic
Programación Visual Basic
|
gigamurki
|
0
|
1,749
|
14 Mayo 2013, 16:43 pm
por gigamurki
|
 |
