Creando un macro con Visual basic

[demoniox12]

bueno lo que quiero yo es que...
cuando esté marcado, tenga la opcion del mouse de usar el boton derecho del mouse pero con la opcion de U
me entiendes??
bueno ese eso

no xD no te entiendo xD.. o soy lerdo o vos te explicas mal

que opcion del mouse?? y que opcion de U???

Salu2!

[Paipote]

no xD no te entiendo xD.. o soy lerdo o vos te explicas mal

alomejor no nos entendemos :

mira no se si te descargaste esa Macro que deje ahi en el link.
esto tiene la funcion de que cada vez que apretas el boton derecho del mouse aparece determinadamente la LETRA U de usar y lo que quiero yo es hacer lo mismo pero determinando que el checkbox este activado o no activado
ahora si?

bueno gracias

[demoniox12]

ahora si te entiendo pero se me complico aver si alguien sabe como detectar cuando pulsan el boton derecho del mouse en cualkier otra aplicacion... y despues de que detecte envia la letra u con el comando sendkeys

salu2!

[Paipote]

demas que si alguien sabe

la comunidad es muy grande !!
vamos vamos

[Mad Antrax]

Tienes que hookear la api del ratón o usar la api de mousevents, es algo avanzado para un usuario que empieza en VB.

[Paipote]

es por eso que estoy aqui, por que no se mucho de visual basic.
estos codigos que e puesto
me los e basado en los codigos del juego que quiero jugar para tener mas habilidad
y por lo tanto nesecito que me ayuden.
buena onda a todos cabros

gracias

[demoniox12]

toma aca lo encontre..

Recuerda poner la declaracion arriba...

Código [Seleccionar] Expandir

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Timer1_Timer()
    If GetAsyncKeyState(2) = -32767 Then 'comprueba si hacen click derecho
        SendKeys "{u}" 'si lo hacen manda la letra u
    End If
End Sub


Recuerda crear 1 timer con intervalo 1 y que este en true al momento de que kieras ver si pulsan el boton derecho del mouse

salu2!!

[Paipote]

Muy bien compañero funciona!

ahora es el msgbox

resulta que en el checkbox
tiene codigo este

Código [Seleccionar] Expandir

Private Sub Check1_Click()
If Check1.Value = 0 Then
MsgBox "Desmarcado"
Else
MsgBox "Marcado"
End If
End Sub

y cada vez que marco, en el titulo del msgbox me dice protecto uno

MsgBox "Desmarcado" & _
            "a Sido desactivado!!"

pero el caso sigue
me sigue diciendo en el titulo proyecto1 (esta linea esta mal)
y en el form a sido desmarcada (esta es la que esta bueena)

[demoniox12]

Con iconito...

Código [Seleccionar] Expandir

MsgBox "a Sido desactivado!!", vbInformation, "Desmarcado"

Sin iconito..

Código [Seleccionar] Expandir

MsgBox "a Sido desactivado!!", , "Desmarcado"

salu2!

[Paipote]

jejej va quedando muy bonito.
bueno ahora me gustaria como podria ocultar la contraseña con cualquier sigo
ejemplo
Administrador
************ (ocultando la contraseña)

y que el codigo determine si esta escrito con mayuscula y miniscula

bueno muchas gracias