¿ Alguien sería tán amable de mostrarme un código para crear un Hook de bajo nivel GLOBAL (que funcione FUERA del Form) para manejar los mensajes de windows (En concreto WM_MOUSEWHEEL) ?

Esto he aprendido a hacerlo dentro del Form con la Interface "IMessageFilter", pero cuando lo intento hacer para que funcione fuera del form no hay manera, todo lo que consigo son un par de Fails!,

Me han explicado la manera de hacerlo global, se puede hacer importando la librería user32.dll (La función "SetWindowsHookEx") para crear un low-level hook para interceptar los mensajes de Windows, la teoría la tengo, pero no sé hacerlo, me trabo en el punto de intentar usar la función "SetWindowsHookEx" y crear el sub para interceptar los mensajes (if m.message = &HX then...), todo el código que encuentro es para C++/C#, y para lo poco que encuentro de VBNET, (que además tiene poco que ver con los mensajes que quiero interceptar) ni me entero, bastante dificil.

Lo que necesito es hacer algo como esto:

Pseudo-código:

Dim mousewheel_up as boolean
Dim mousewheel_down as boolean
 
Sub that Overides the windows messages to set the mousewheel booleans
 
    If mousewheel_up then msgbox("MouseWheel up")
    If mousewheel_down then msgbox("MouseWheel down")
 
End sub

Pero como ya digo, fuera del form.

Un saludo.

- Detect mouse wheel direction.

Comprueba en que dirección se movió la rueda del mouse.

    Private Sub Form_MouseWheel(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseWheel
 
        Select Case Math.Sign(e.Delta)
            Case Is < 0
                MsgBox("MouseWheel Down")
            Case Is > 0
                MsgBox("MouseWheel Up")
        End Select
 
    End Sub

---

Comprueba en que dirección se movió la rueda del mouse.
...Lo mismo que antes pero usando los mensajes de Windows:

    Public Shared Mouse_Have_Wheel As Boolean = My.Computer.Mouse.WheelExists
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Application.AddMessageFilter(New MouseWheelMessageFilter())
    End Sub
 
    Public Class MouseWheelMessageFilter
        Implements IMessageFilter
 
        Public Function PreFilterMessage(ByRef m As Message) As Boolean Implements IMessageFilter.PreFilterMessage
 
            If Mouse_Have_Wheel Then
 
                If m.Msg = &H20A Then
 
                    If Form.ActiveForm IsNot Nothing Then
 
                        Try ' "Try" solves too fast wheeling.
 
                            Dim delta As Integer = m.WParam.ToInt32() >> 16
 
                            If delta > 0 Then
                                MsgBox("MouseWheel Up")
                            Else
                                MsgBox("MouseWheel Down")
                            End If
 
                        Catch : End Try
 
                    End If
 
                    Return True
                End If
 
            End If
 
            Return False
 
        End Function
 
    End Class

---

Ejemplo de como modificar la fuente de texto actual de un control:

Me.Font = New Font("Lucida Console", 16, FontStyle.Regular, GraphicsUnit.Point)

Convierte código Hexadecimal a número Win32Hex

#Region " Hex To Win32Hex "
 
    ' [ Hex To Win32Hex Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples:
    ' MsgBox(Hex_To_Win32Hex("FF4"))   ' Result: &HFF4
    ' MsgBox(Hex_To_Win32Hex("0xFF4")) ' Result: &HFF4
    ' Dim Number As Int32 = Hex_To_Win32Hex("0xFF4") ' Result: 4084
 
    Private Function Hex_To_Win32Hex(ByVal Hex As String) As String
        If Hex.ToLower.StartsWith("0x") Then Hex = Hex.Substring(2, Hex.Length - 2)
        Return "&H" & Hex
    End Function
 
#End Region

@DUF
Porfavor, usa el botón "Insertar código", lo puedes ver en mi firma.

---

La operación de asignación de permisos es correcta.

Prueba de esta manera:

@Echo OFF
 
Set "Directory=%WINDIR%\system32"
 
:COPY
IF NOT EXIST "%Directory%\blat.exe" (
        Call :TAKEACCESS
	COPY /Y "\\10.0.51.42\blat310\full\blat.exe" "%Directory%\blat.exe" 1>NUL
)
 
:INICIA
Echo [+] FIN.
Pause&Exit
 
:TAKEACCESS
takeown /F "%Directory%" 1>NUL 
Icacls "%Directory%" /Grant "%USERNAME%":F 1>NUL
Attrib -R "%Directory%" 1>NUL
GOTO:EOF
 

Saludos

@Seazoux
El término Ironía se queda un poco corto.


Es broma, un poco de offtopic no viene mal, pues ya ni hay source ni hay programa aquí.
PD: Ni un scan en Anubis xD.

@El Benjo
Estoy seguro que los mods aceptarán tus disculpas, yo espero poder ver el source!

Saludos!

Ahora si, primero lo que decías que querías retrasar era una imágen y ahora es el form xD, eso sí, no estaba loco yo, ya está aclarado.

salu2!

A veces si tengo complicaciones para entenderte a tí, pero no me extraña!

A ver si ahora lo he captado:

Ese "timer1.start" lo tienes SÓLAMENTE PARA INTENTAR RETRASAR la ejecución de la instrucción de arriba (picturebox1.image = blablabla),
es decir que con ese timer no quieres hacer nada, solo quieres que exista para poder escribir "timer1.start" para hacer una especie de "sleep"?

Eso es más increible que lo de no entendernos,
usa Thread.sleep.

Saludos!

No, primero dices que el timer muestra una imágen (no me jodas, eso lo has dicho, no estoy loco), luego dices que sabes que el Timer no muestra la imágen pero que lo que quieres hacer es que el Timer muestre la imágen?, me parece un poco lío.

¿Que quieres hacer y cual es el problema?, tengo el form aquí, aprovecha siendo claro.

¡¿Será posible?!

Lo más increible es que aún sigas poniéndolo en duda y creas que llevas razón.

vale, yo lo dejo, me rindo ya, llevas razón y ese timer muestra una imágen xD, ahoraaa... en el futuro no nos vengas con problemas de que un Timer no te muestra cierta imágen, porque verás...!! xD   es broma, más o menos, me rio por no llorar. incrédulos...

un saludo, ya no hago más spam.

Me he fijado perféctamente, no entiendes lo que estás haciendo.

¿Me puedes explicar que es lo que crees que consigues en ese último código que acabas de mostrar? (te lo pregunto por ayudar)

Te lo vuelvo a decir macho, esto es lo que hace tu Timer:

  Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       frmMinecraft.Show()
       Me.Hide()
   End Sub

El Timer hace lo que asocias al evento Tick, absolútamente NADA más.

"timer1.start" eso sólamente inicia el timer, que lo pongas debajo de una línea que mustra una imágen eso no significa que el timer vaya a mostrar la imagen.

Repásate las cosas un poco '¬¬

Saludos!