Hack x Crack - Comunidad de Seguridad informática

Programación => Visual Basic => Mensaje iniciado por: hackmin en Marzo 27, 2011, 08:58:32 pm

Título: problema en vb6 con teclado virtual
Publicado por: hackmin en Marzo 27, 2011, 08:58:32 pm
Hola amigos de hackxcrack antes que nada quiero deciros que no e entrado en el foro por que me baje un virus por internet de un nota que me lo aconsejo y resultaba que lo que hacia era bloquearme todos los navegadores menos  el internet explore..
con lo cual no podía entrar en esta web ya que bloqueaba parte del internet explore...

mm una vez dicho esto voy con mi duda xd


Bueno hice un proyecto con 33 comandos

y escribí el siguiente codigo:
Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyQ Then cmdQ.BackColor = vbGreen
If KeyCode = vbKeyW Then cmdW.BackColor = vbGreen
If KeyCode = vbKeyE Then cmdE.BackColor = vbGreen
If KeyCode = vbKeyR Then cmdR.BackColor = vbGreen
If KeyCode = vbKeyT Then cmdT.BackColor = vbGreen
If KeyCode = vbKeyY Then cmdY.BackColor = vbGreen
If KeyCode = vbKeyU Then cmdU.BackColor = vbGreen
If KeyCode = vbKeyI Then cmdI.BackColor = vbGreen
If KeyCode = vbKeyO Then cmdO.BackColor = vbGreen
If KeyCode = vbKeyP Then cmdP.BackColor = vbGreen
If KeyCode = vbKeyA Then cmdA.BackColor = vbGreen
If KeyCode = vbKeyS Then cmdS.BackColor = vbGreen
If KeyCode = vbKeyD Then cmdD.BackColor = vbGreen
If KeyCode = vbKeyF Then cmdF.BackColor = vbGreen
If KeyCode = vbKeyG Then cmdG.BackColor = vbGreen
If KeyCode = vbKeyH Then cmdH.BackColor = vbGreen
If KeyCode = vbKeyJ Then cmdJ.BackColor = vbGreen
If KeyCode = vbKeyK Then cmdK.BackColor = vbGreen
If KeyCode = vbKeyL Then cmdL.BackColor = vbGreen
If KeyCode = vbKeyZ Then cmdZ.BackColor = vbGreen
If KeyCode = vbKeyX Then cmdX.BackColor = vbGreen
If KeyCode = vbKeyC Then cmdC.BackColor = vbGreen
If KeyCode = vbKeyV Then cmdV.BackColor = vbGreen
If KeyCode = vbKeyB Then cmdB.BackColor = vbGreen
If KeyCode = vbKeyN Then cmdN.BackColor = vbGreen
If KeyCode = vbKeyM Then cmdM.BackColor = vbGreen
If KeyCode = 192 Then cmdPuntoYComa.BackColor = vbGreen
If KeyCode = 188 Then cmdComa.BackColor = vbGreen
If KeyCode = 190 Then cmdPunto.BackColor = vbGreen
If KeyCode = vbKeySpace Then cmdBarra.BackColor = vbGreen
If Shift = vbAltMask Then CmdAlt.BackColor = vbGreen
If KeyCode = vbKeyControl Then cmdCtrl.BackColor = vbGreen
If KeyCode = 111 Then CmdSlash.BackColor = vbGreen

End Sub


Hay todo bien,si presiono la tecla Q entonces el command se pone de color verde..
pero hay una cosa que quiero que haga mi teclado virtual y es que cuando yo deje de soltar la tecla Q se quite el color verde..

entonces para hacer eso necesito el evento keyUp

y bueno puse el siguiente codigo :
Private Sub Picture1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyQ Then cmdQ.BackColor = vbbuttonface
End Sub

Bueno le di a f5 para probar si todo iba bien pero desgraciadamente al presionar la tecla Q ni se ponía verde no hacia nada..

luego quite vbbuttonface y puse vbwhite : if keycode = vbkeyQ then cmdQ.backcolor = vbwhite

luego presiono f5 para correr la aplicación y presiono la tecla Q y se puso de color blanco (white)
pero ese no era mi objetivo ademas cuando dejo de pulsar la tecla Q sigue siendo blanco
no se lo que hice mal, si alguien me puede ayudar se lo agradecería
un salu2
y gracias..
Título: Re:problema en vb6 con teclado virtual
Publicado por: hackmin en Marzo 28, 2011, 03:57:02 pm
Bueno ya lo hice yo solito xd

gracias de todas manera..

aquí pongo el codigo


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
        Case vbKeyA:
        LA.ForeColor = green
        Case vbKeyB:
        LB.ForeColor = green
        Case vbKeyC:
        LC.ForeColor = green
        Case vbKeyD:
        LD.ForeColor = green
        Case vbKeyE:
        LE.ForeColor = green
        Case vbKeyF:
        LF.ForeColor = green
        Case vbKeyG:
        LG.ForeColor = green
        Case vbKeyH:
        LH.ForeColor = green
        Case vbKeyI:
        LI.ForeColor = green
        Case vbKeyJ:
        LJ.ForeColor = green
        Case vbKeyK:
        LK.ForeColor = green
        Case vbKeyL:
        LL.ForeColor = green
        Case vbKeyM:
        LM.ForeColor = green
        Case vbKeyN:
        LN.ForeColor = green
        Case vbKeyO:
        LO.ForeColor = green
        Case vbKeyP:
        LP.ForeColor = green
        Case vbKeyQ:
        LQ.ForeColor = green
        Case vbKeyR:
        LR.ForeColor = green
        Case vbKeyS:
        LS.ForeColor = green
        Case vbKeyT:
        LT.ForeColor = green
        Case vbKeyU:
        LU.ForeColor = green
        Case vbKeyV:
        LV.ForeColor = green
        Case vbKeyW:
        LW.ForeColor = green
        Case vbKeyX:
        LX.ForeColor = green
        Case vbKeyY:
        LY.ForeColor = green
        Case vbKeyZ:
        LZ.ForeColor = green
        Case vbKey0:
        L0.ForeColor = green
        Case vbKey1:
        L1.ForeColor = green
        Case vbKey2:
        L2.ForeColor = green
        Case vbKey3:
        L3.ForeColor = green
        Case vbKey4:
        L4.ForeColor = green
        Case vbKey5:
        L5.ForeColor = green
        Case vbKey6:
        L6.ForeColor = green
        Case vbKey7:
        L7.ForeColor = green
        Case vbKey8:
        L8.ForeColor = green
        Case vbKey9:
        L9.ForeColor = green
        Case vbKeyF1:
        LF1.ForeColor = green
        Case vbKeyF2:
        LF2.ForeColor = green
        Case vbKeyF3:
        LF3.ForeColor = green
        Case vbKeyF4:
        LF4.ForeColor = green
        Case vbKeyF5:
        LF5.ForeColor = green
        Case vbKeyF6:
        LF6.ForeColor = green
        Case vbKeyF7:
        LF7.ForeColor = green
        Case vbKeyF8:
        LF8.ForeColor = green
        Case vbKeyF9:
        LF9.ForeColor = green
        Case vbKeyF10:
        LF10.ForeColor = green
        Case vbKeyF11:
        LF11.ForeColor = green
        Case vbKeyF12:
        LF12.ForeColor = green
        Case vbKeyReturn:
        Lintro.ForeColor = green
        Case vbKeySpace:
        Lspace.ForeColor = green
        Case vbKeyEscape:
        Lesc.ForeColor = green
        Case vbKeyBack:
        Lreturn.ForeColor = green
        Case vbKeyUp:
        Lup.ForeColor = green
        Case vbKeyDown:
        Ldown.ForeColor = green
        Case vbKeyRight:
        Lright.ForeColor = green
        Case vbKeyLeft:
        Lleft.ForeColor = green
        Case vbKeyNumpad1:
        LB1.ForeColor = green
        Case vbKeyNumpad2:
        LB2.ForeColor = green
        Case vbKeyNumpad3:
        LB3.ForeColor = green
        Case vbKeyNumpad4:
        LB4.ForeColor = green
        Case vbKeyNumpad5:
        LB5.ForeColor = green
        Case vbKeyNumpad6:
        LB6.ForeColor = green
        Case vbKeyNumpad7:
        LB7.ForeColor = green
        Case vbKeyNumpad8:
        LB8.ForeColor = green
        Case vbKeyNumpad9:
        LB9.ForeColor = green
        Case vbKeyNumpad0:
        LB0.ForeColor = green
        Case vbKeyShift:
        Lshift.ForeColor = green
        Case vbKeyTab:
        Ltab.ForeColor = green
        Case vbKeySubtract:
        Lsub.ForeColor = green
        Case vbKeyAdd:
        Ladd.ForeColor = green
        Case vbKeyMultiply:
        Lmm.ForeColor = green
        Case vbKeyDivide:
        Ldiv.ForeColor = green
End Select
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
        Case vbKeyA:
        LA.ForeColor = black
        Case vbKeyB:
        LB.ForeColor = black
        Case vbKeyC:
        LC.ForeColor = black
        Case vbKeyD:
        LD.ForeColor = black
        Case vbKeyE:
        LE.ForeColor = black
        Case vbKeyF:
        LF.ForeColor = black
        Case vbKeyG:
        LG.ForeColor = black
        Case vbKeyH:
        LH.ForeColor = black
        Case vbKeyI:
        LI.ForeColor = black
        Case vbKeyJ:
        LJ.ForeColor = black
        Case vbKeyK:
        LK.ForeColor = black
        Case vbKeyL:
        LL.ForeColor = black
        Case vbKeyM:
        LM.ForeColor = black
        Case vbKeyN:
        LN.ForeColor = black
        Case vbKeyO:
        LO.ForeColor = black
        Case vbKeyP:
        LP.ForeColor = black
        Case vbKeyQ:
        LQ.ForeColor = black
        Case vbKeyR:
        LR.ForeColor = black
        Case vbKeyS:
        LS.ForeColor = black
        Case vbKeyT:
        LT.ForeColor = black
        Case vbKeyU:
        LU.ForeColor = black
        Case vbKeyV:
        LV.ForeColor = black
        Case vbKeyW:
        LW.ForeColor = black
        Case vbKeyX:
        LX.ForeColor = black
        Case vbKeyY:
        LY.ForeColor = black
        Case vbKeyZ:
        LZ.ForeColor = black
        Case vbKey0:
        L0.ForeColor = black
        Case vbKey1:
        L1.ForeColor = black
        Case vbKey2:
        L2.ForeColor = black
        Case vbKey3:
        L3.ForeColor = black
        Case vbKey4:
        L4.ForeColor = black
        Case vbKey5:
        L5.ForeColor = black
        Case vbKey6:
        L6.ForeColor = black
        Case vbKey7:
        L7.ForeColor = black
        Case vbKey8:
        L8.ForeColor = black
        Case vbKey9:
        L9.ForeColor = black
        Case vbKeyF1:
        LF1.ForeColor = black
        Case vbKeyF2:
        LF2.ForeColor = black
        Case vbKeyF3:
        LF3.ForeColor = black
        Case vbKeyF4:
        LF4.ForeColor = black
        Case vbKeyF5:
        LF5.ForeColor = black
        Case vbKeyF6:
        LF6.ForeColor = black
        Case vbKeyF7:
        LF7.ForeColor = black
        Case vbKeyF8:
        LF8.ForeColor = black
        Case vbKeyF9:
        LF9.ForeColor = black
        Case vbKeyF10:
        LF10.ForeColor = black
        Case vbKeyF11:
        LF11.ForeColor = black
        Case vbKeyF12:
        LF12.ForeColor = black
        Case vbKeyReturn:
        Lintro.ForeColor = black
        Case vbKeyEscape:
        Lesc.ForeColor = black
        Case vbKeySpace:
        Lspace.ForeColor = black
        Case vbKeyBack:
        Lreturn.ForeColor = black
        Case vbKeyUp:
        Lup.ForeColor = black
        Case vbKeyDown:
        Ldown.ForeColor = black
        Case vbKeyRight:
        Lright.ForeColor = black
        Case vbKeyLeft:
        Lleft.ForeColor = black
        Case vbKeyNumpad1:
        LB1.ForeColor = black
        Case vbKeyNumpad2:
        LB2.ForeColor = black
        Case vbKeyNumpad3:
        LB3.ForeColor = black
        Case vbKeyNumpad4:
        LB4.ForeColor = black
        Case vbKeyNumpad5:
        LB5.ForeColor = black
        Case vbKeyNumpad6:
        LB6.ForeColor = black
        Case vbKeyNumpad7:
        LB7.ForeColor = black
        Case vbKeyNumpad8:
        LB8.ForeColor = black
        Case vbKeyNumpad9:
        LB9.ForeColor = black
        Case vbKeyNumpad0:
        LB0.ForeColor = black
        Case vbKeyShift:
        Lshift.ForeColor = black
        Case vbKeyTab:
        Ltab.ForeColor = black
        Case vbKeySubtract:
        Lsub.ForeColor = black
        Case vbKeyAdd:
        Ladd.ForeColor = black
        Case vbKeyMultiply:
        Lmm.ForeColor = black
        Case vbKeyDivide:
        Ldiv.ForeColor = black
End Select
End Sub

Un salu2