Foro de elhacker.net

hola 1 salu2, me preguntaba si alguien sabe como se 'envia' la tecla + en vb6 , x ejemplo para la tecla flechaabajo es {DOWN} y para + ?? salu2s

"{+}"

Saludos  :-*

Supongo que puedes poner su equivalente en ascii -> 43

HI, "{+}" no funciona  :huh: si escribe en el bloc de notas + pero intento darle otro uso, para por ejemplo seleccionar y desseleccionar una marca y alli solo suena 'tuu' mmm  :huh: salu2s

A que te refieres con seleccionar una marca?  :huh:

hola, marcas de este tipo

(http://img99.imageshack.us/img99/4541/1212xk0.jpg)
salu2s

se llaman checkbox  :¬¬,ahora no entiendo que tiene que ver el "+" con los checkbox...

Para eso se puede utilizar la barra espaciadora.

hola si, pero tambien hay unos 'arbolitos' que se agrandan con + y estaba probando haber si lo podia abrir todo presionando repetidas veces {DOWN} y + (no se puede con la barra espaciadora) pero y + como se presiona  :huh: salu2s

no entiendo tu lenguaje , que se supone que son "arbolitos  :xD ¿los nodos de un treeview?,para mandar teclas podes usar api's....

jaja, si eso creo que es, alguna idea de cual seria esa api???

y buscando encontre este codigo

' Constantes para las teclas y otros
 
Const KEYEVENTF_KEYUP = &H2
Const KEYEVENTF_EXTENDEDKEY = &H1
 
 
'Declaración del Api keybd_event para la presión de tecla
 
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
    ByVal bScan As Byte, _
    ByVal dwFlags As Long, _
    ByVal dwExtraInfo As Long)
 
 
Sub Pulsar_Tecla(Tecla As Long)
 
    Call keybd_event(Tecla, 0, 0, 0)
 
    Call keybd_event(Tecla, 0, KEYEVENTF_KEYUP, 0)
 
End Sub
 
' Presiona la tecla Tab
Private Sub Timer1_Timer()
Call Pulsar_Tecla(vbKeyTab)
End Sub

ahora como se que es la tecla + ??? si es que se puede alguna idea  :huh: salu2s  :D

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
    ByVal bScan As Byte, _
    ByVal dwFlags As Long, _
    ByVal dwExtraInfo As Long)

Utilizar el Api keybd_event en vez de SendKeys (http://www.recursosvisualbasic.com.ar/htm/listado-api/153-keybd_event-en-ves-de-sendkeys.htm)

La tecla '+' es vbKeyAdd, y eso es lo que le pasas por parametro a la funcion Pulsar_Tecla(), te referias a eso?

Saludos

Hola, para las "Marcas" (checkbox) tambien podes usar SendMessage con BM_GETCHECK para saber si está tildado, el retorno sería (0 si no está tildado, 1 tildado o  2 si está gris.
Y con  SendMessage  y BM_CLICK le mandas el click si hace falta. (buscá ejemplos)

retorno= SendMessage(Hndl, BM_GETCHECK, 0, 0)
If retorno= 0 Then Call SendMessage(Hndl, BM_CLICK, 0, 0)

Saludos

hola, ya quedaria asi

 
 

Const KEYEVENTF_KEYUP = &H2
Const KEYEVENTF_EXTENDEDKEY = &H1
 
 
'Declaración del Api keybd_event para la presión de tecla
 
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
    ByVal bScan As Byte, _
    ByVal dwFlags As Long, _
    ByVal dwExtraInfo As Long)
 
 
Sub Pulsar_Tecla(Tecla As Long)
 
    Call keybd_event(Tecla, 0, 0, 0)
 
    Call keybd_event(Tecla, 0, KEYEVENTF_KEYUP, 0)
 
End Sub
 
' Presiona la tecla Tab
Private Sub Timer1_Timer()
Call Pulsar_Tecla(vbKeyAdd)
End Sub
 

gracias se las debo salu2s

Por lo que veo ya lo has solucionado. Pero probaste esto que dije unos post mas arriba¿?

hola no probe con ese porque no entiendo mucho de programming y bueno ya esta resuelto gracias! nos vemos! ..