Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: pedraosone en 21 Octubre 2007, 23:39 pm



Título: Ayuda con este codigo por favor
Publicado por: pedraosone en 21 Octubre 2007, 23:39 pm
hola, nesesito que alguien me oriente sobre como poner un determinado codigo
veran yo tengo en una parte de mi proyecto este codigo:
----------------------------------------------------------------------------------
Dim keystate As Longkeystate = GetAsyncKeyState(vbKeyNumpad1)
If (keystate And &H1) = &H1 Then
num(1) = num(1) + 1
End If
-------------------------------------------------------------------------------------
con ese codigo me avisa de que la tecla pulsada es un numero del teclado numerico, hasta hay todo bien
mi duda es que poner donde pone------(vbKeyNumpad1)------ para que la tecla pulsada sea (/) y (*) y (-) que estan en la pàrte alta del teclado numerico
y tb cuando pulso las teclas del centro del teclado que son unas flechas
es que no se que poner
espero haberme expresado correctamente
gracias por la ayuda


Título: Re: Ayuda con este codigo por favor
Publicado por: HaDeS, - en 22 Octubre 2007, 00:23 am
Bueno, creo recordar como era, pero no estoy seguro porq no tengo instalado el visual en esta pc.
te doy el numero a usar para identificar la tecla que es, asi mismo se usa la funcion getasynckeystate para retornar el valor de la letra pulsada.
Código
  1. if getasynckeystate(numero) then
  2.    num(1) = num(1) + 1 'no se que haces con esto, pero lo vuelvo a poner xD, solo es un exemplo
  3. end if
  4.  
Donde numero pueden ser estos valores:
37 = izquierda
38 = arriba
39 = derecha
40 = abajo
106 = *
107 = +
108 = intro
109 = -
110 = .
111 = /

Cuando este en mi compu lo pruebo, y vuelvo a postear si es necesario :P

saludos !


Título: Re: Ayuda con este codigo por favor
Publicado por: pedraosone en 22 Octubre 2007, 00:28 am
muchas gracias amigo
en cuanto acabe de navegar lo pruebo a ver si me funciona ;D
ya lo comprobe y funciono perfectamente con las tres teclas que nesesitaba testear
de nuevo muchas gracias