http://foro.elhacker.net/programacion_vb/ayuda_bot_fotolog-t271776.0.html;msg1333415#msg1333415
Es un lindo ejemplo aunque un poco raro de entender
Es un lindo ejemplo aunque un poco raro de entender

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Public Function NewWindowProc( _
ByVal hWnd As Long, _
ByVal Msg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
If Msg = &H82 Then
Call SetWindowLong(hWnd, GWL_WNDPROC, WinProc)
Call UnregisterHotKey(hWnd, 1)
End If
if Msg = WM_HOTKEY Then ' Creo que es &H83 si mi memoria no me falla :P
if wparam = 1 then msgbox "apretaste 1"
if wparam = 2 then msgbox "apretaste 2"
if wparam = 3 then msgbox "apretaste 3"
if wparam = 4 then msgbox "apretaste 4"
if wparam = 5 then msgbox "apretaste 5"
if wparam = 6 then msgbox "apretaste 6"
if wparam = 7 then msgbox "apretaste 7"
if wparam = 8 then msgbox "apretaste 8"
end If
NewWindowProc = CallWindowProc(WinProc, hWnd, Msg, wParam, lParam)
End Function
PD: La proxima sere un poco mas claro para que me entiendas mejor :P (x la explicacion de antes :xD)