Application popup: WebReaper.exe - Application Error : The instruction at "0x0040f1c5" referenced memory at "0x00000004". The memory could not be "read".



Click on OK to terminate the program

Click on CANCEL to debug the program 

Option Explicit



'********************************************************

'   DECLARATIONS NEEDED TO INTERCEPT WINDOW MESSAGES    *

'********************************************************



Public Declare Function SetWindowLong Lib "USER32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Public Declare Function CallWindowProc Lib "USER32" Alias "CallWindowProcA" (ByVal OldwndProc As Long, ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long



Public Const GWL_WNDPROC = -4

Public OldwndProc As Long



'********************************************************

'       DECLARATIONS NEEDED TO CREATE THE HOTKEY        *

'********************************************************



Public Declare Function RegisterHotKey Lib "USER32" (ByVal hWnd As Long, ByVal HotKeyID As Long, ByVal fsModifiers As Long, ByVal vKey As Long) As Long

Public Declare Function UnregisterHotKey Lib "USER32" (ByVal hWnd As Long, ByVal HotKeyID As Long) As Long



Public Const WM_HOTKEY = &H312

Public Const WM_NCDESTROY = &H82



Public HotKeyID(12) As Long



Public Function WindowProc(ByVal hWnd As Long, ByVal WindowMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long



'This is where all the messages for this form as directed to

'We will need to check for the WindowMessage WM_HOTKEY

'to see if a hotkey is pressed and then we need

'To check the wParam to see which HotKey (1-12) has been pressed



Select Case WindowMsg

    Case WM_HOTKEY

        Select Case wParam

            Case HotKeyID(12)

                'Put form on top, and slide up/down

                MsgBox "Slinding, and ontop"

        End Select

End Select



'No matter what happens we *always* end with the normal

'window procedure to finish/handle the message by

'calling the CallWindowProc.

WindowProc = CallWindowProc(OldwndProc, hWnd, WindowMsg, wParam, lParam)



End Function





--------------------------------------------------------------------------------





This is my main form (frmMain) 





code:--------------------------------------------------------------------------------

public Sub SetHotKey()

    HotKey = 12

    Call DeleteHotkey

End If



End Sub

Public Sub Cleanup()



HotKey = 12

Call DeleteHotkey



End Sub

Public Sub CreateHotkey()



Dim ReturnValue As Long

HotKeyID(HotKey) = HotKey



HotKey = HotKey + 111

ReturnValue = RegisterHotKey(hWnd, HotKeyID(HotKey - 111), 0, HotKey)



End Sub



Public Sub DeleteHotkey()



Dim ReturnValue As Long

ReturnValue = UnregisterHotKey(hWnd, HotKeyID(HotKey))



End Sub