Thread: Make VB6 Aware of Hibernation?

Have a look in the RR plugin examples

ModSDK.bas and ModCOM.bas

I'm taking a look right now, working on understanding what I'm seeing.

First off I guess I was a bit off on my terminology in my first post, I'm making a extension plugin, not a base plugin. Whether or not that alters your advice I don't know.

I see in ModSDK.bas PrepareForHibernate and ResumeFromHibernate subroutines, can I just place the necessary code in these subroutines and have it executed upon entrance and return from hibernation?

It's been a few years since I've done any programming and I'm just getting used to vb6 and how RR is setup. Thanks for your help!

in ModCom.bas is the important parts

Code:

 
 
Private lpPrevWndProc As Long
Private Const WM_COPYDATA = &H4A
Private Const GWL_WNDPROC = (-4)
Private Const SW_HIDE = 0
Private Const SW_NORMAL = 1
Private Const WM_POWERBROADCAST = &H218
Private Const PBT_APMSUSPEND = 4
Private Const PBT_APMRESUMESUSPEND = 7
 
 
Private Declare Function CallWindowProc Lib "user32" Alias _
   "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As _
   Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As _
   Long) As Long
 
 
'Process Window Events
Private Function WindowProc(ByVal hw As Long, ByVal uMsg As Long, _
         ByVal wParam As Long, ByVal lParam As Long) As Long
 
Select Case uMsg
    Case WM_COPYDATA 'If our function process data
        Call ReceiveMsg(lParam)
 
    Case WM_POWERBROADCAST 'System is asking about/entering/resuming from standby
        If wParam = PBT_APMSUSPEND Then
            PrepareForHibernate
        End If
        If wParam = PBT_APMRESUMESUSPEND Then
            ResumeFromHibernate
        End If
End Select
 
'If we're still hooked
If lpPrevWndProc <> 0 Then
    ' Call the original window procedure associated with this form.
    WindowProc = CallWindowProc(lpPrevWndProc, hw, uMsg, wParam, lParam)
Else
    WindowProc = 0
End If
End Function

So if you add ModCom.bas to your project just add PrepareForHibernate and ResumeFromHibernate Public Subs to your project

I've been playing around with this a little bit and so far using private subs in ModCom whenever I put anything in the PrepareForHibernate or ResumeFromHibernate, RR is closed when I resume from hibernate.

I realized today it might be do to the private subs in ModCom so I moved them into my form and made them public. I'm going to test after work. Any ideas?

You will need to add

COMHook Me.hwnd


to form_load

to enable your program to receive messages.


And add

COMUnhook Me.hwnd

to form_unload

I've got COMHook Me.hwnd in place, i'll add COMUnhook Me.hwnd to the unload routine

Thanks!

Ok everything is setup I believe the correct way yet RR is still closed every time I return from hibernate. If I comment out the routines RR is fine on return from hibernate, but unfortunately my plugin isn't.

Any suggestions? I'm attaching my VB6 project, any help would be greatly appreciated.

Thanks!