Mensajes

Le falta el puerto para el video 

Me parece a mi, o el cable negro es hdmi?

Me gustaria que lo hicieran mas a tamaño "mouse generico" y de ahi si se le podria dar un lindo uso tipo lo que dice WHK o cosas asi

Sabes programacion? Al menos sabes como tienes que hacerlo en instrucciones?

Podes buscar formas logicas y luego plasmarlo en programacion, especifica mas que dudas tienes

Esa función esta bien hecha para su fin (keylogger, guardar la tecla presionada), pero en tu caso no te sirve, nCode es el numero de por cuantos hooks le faltan, por lo que a 0 es la ultima operación, si lo cambias ahí, habría temas de lógica, no se sabe si windows lo tomara, si otro keylogger (por ejemplo) ya guardo la tecla.

algo así debería quedar tu función

Código (vb) [Seleccionar] Expandir

Public Function KBProc(ByVal nCode As Long, ByVal wParam As Long, lParam As Long) As Long
   Dim KeyBoardHook        As KBDLLHOOKSTRUCT
   
   ' A mi me gusta llamarlo mas con el nombre original, RtlMoveMemory, pero para gustos colores
   Call CopyMemory(KeyBoardHook, lParam, Len(KeyBoardHook))

   If KeyBoardHook.vkCode = VK_(TeclaABloquear) then wParam = 0
   If KeyBoardHook.vkCode = VK_(TeclaACambiar) then wParam = VK_(nueva tecla)

   
    KBProc = CallNextHookEx(KBHook, nCode, wParam, VarPtr(KeyBoardHook))
End Function


VK_ Es una enumeracion, que en la mayoria coincide con vbKeys, pero no todas son las misma. Aca podes ver la enumeracion completa

La funcion que apunta el hookeo, devuelve un valor, que es la tecla en cuestion, no solamente se pueden cancelar teclas, sino cambiar su codigo. O sea, puedo hacer que presionando la tecla espacio, le hago creer a windows que se presiono la tecla borrar (backspace)

Si la funcion devuelve 0 (cero), simplemente estas cancelando la tecla, como si nunca se hubiera presionado

Puedes buscar los famosos KeyLoggers (Hacer hook al teclado) y asi capturar todos las teclas hasta que tu decidas cuando terminarlo

[VB6] Creacion de un Keylogger 'avanzado' {HOOK}

Código (vb) [Seleccionar] Expandir


If adoRegistros.BOF = adoRegistros.EOF And adoRegistros.EOF = False Then
Label1.Text = adoConsulta!Respuesta
End If


No se si sea error tuyo (Text en lugar de caption) o es que me suena a .net

Son creacion de castg y despues de los cocineritos y los de navidad hubo protesta en casa de el-brujo para cambiar los emoticones

El tipo en mysql debe ser blob, debes abrir la imagen/archivo en binario y guardalo asi literalmente. Y para recuperarlo leerlo y guardarlo a archivo o con ucImage (de LeandroA/Cobein) leerlo con readFromStream

@BlackZerox: Quitale el punto al final

creo que lo mejor que veas estos links
http://www.activevb.de/tutorials/tut_subclass_asm/tut_subclass_asm.html

No se aleman pero por lo que vi. Es similar a un codigo que vi de "AND ray" implementando las novedades de win7 en vb (busquen "iTaskBarList3" en planet source code) que llamaba a una interfaz (no probe con objetos) a partir de su ordinal y un maximo de 15 parametros (segun recuerdo) pero no se podia obtener el valor devuelto. Usaba un ASM similar

La tuya usa nagia negra, la mia magia blanca