Pregunta n00b, no encuentro keypress

Iniciado por usuario oculto, 22 Octubre 2010, 20:29 PM

0 Miembros y 1 Visitante están viendo este tema.

.::IT::.

Simplemente .::IT::.

[D4N93R]


usuario oculto

#12
Me ha salido otra duda:

prometo que es la última jaja:


Tengo:

Código (vbnet) [Seleccionar]
Private Sub Form2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress

If e.KeyChar = "a"c Then

msgbox ("hola mundo")
End if

'cuando apreto la tecla a me sale mensaje que dice: hola mundo
End sub



Pero si pongo el form en tipo: me.hide () y aprieto a, no me dice nada.
Lo que quiero conseguir es que por ejemplo esté utilizando otro programa como por ejemplo navegando por internet y cuando presione "a" me diga "hola mundo"

se tiene que poder hacer!!

he puesto la duda en forosdelweb xD
cuando termine esto, ya habré terminado mi programa, solo me quedará hacer un instalador propio y no are preguntas para eso xD.
Que le jodan a  la salud mental!
Fecha de registro:    16 Noviembre 2008, 17:38
años atrás users baneados :)

[D4N93R]

Hola,

Tienes dos opciones:

1) Un hook.
2) Un hotkey.

Saludos

43H4FH44H45H4CH49H56H45H

De pasada:

Código (vbnet) [Seleccionar]
Imports System.Runtime.InteropServices
Public Class Form1
    <DllImport("user32.dll")> _
    Public Shared Function GetAsyncKeyState(ByVal vKey As Int32) As Short
    End Function   
    Private Sub Form1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
        If e.KeyChar = "a"c Or e.KeyChar = "A"c Then
            MsgBox("Ocultandome")
            Me.ShowInTaskbar = False
            Me.Hide()
        End If
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim i As Int32 = 0
        i = GetAsyncKeyState(66)
        If (i = 1 Or i = -32767) Then
            Me.ShowInTaskbar = True
            Me.Show()
            MsgBox("Activandome")
        End If
    End Sub
End Class

Si se oprime A o a sobre el form se oculta, y si se oprime b sin importar si se oprime sobre el form este se muestra.

Es solo un ejemplo, hay que mejorar varias cosas, pero sirve.

-R IP
:0100
-A 100 
2826:0100 MOV AH,09
2826:0102 MOV DX,109
2826:0105 INT 21
2826:0105 MOV AH,08
2826:0105 INT 21
2826:0107 INT 20
2826:0109 DB 'MI NICK ES CODELIVE.$' 
2826:0127 
-R BX
:0000
-R CX
:20
-N CODELIVE.COM
-W