home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / GEN-X_NET_1844941282005.psc / client / CPower.cls < prev    next >
Text File  |  2005-01-25  |  2KB  |  58 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "CPower"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
  15. Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
  16.  
  17. 'this is for power control
  18. 'please visit my site
  19. 'I DONT NEED TO BE VOTE
  20. 'JUST TAG IN MY SITE
  21. 'HTTP://XYREN.USA.GS
  22.  
  23.  
  24. 'THANKS FOR DOWNLOADING MY PROGRAM
  25.  
  26. Option Explicit
  27. Dim lHwnd As Long
  28.  
  29. Public Property Let DisableSuspend(ByVal SuspendDisabled As Boolean)
  30.     bPreventLowPower = SuspendDisabled
  31.     If SuspendDisabled Then
  32.         If oldProc = 0 Then oldProc = SetWindowLong(lHwnd, GWL_WNDPROC, AddressOf WindowProc)
  33.     Else
  34.         If Not oldProc = 0 Then SetWindowLong lHwnd, GWL_WNDPROC, oldProc
  35.     End If
  36.     
  37. End Property
  38.  
  39. Public Property Get DisableSuspend() As Boolean
  40.     DisableSuspend = bPreventLowPower
  41. End Property
  42.  
  43. Public Sub Initialize(ByVal hwnd As Long)
  44.     lHwnd = hwnd
  45. End Sub
  46.  
  47. Public Sub ShutDown(ShutDownType As eShutDownType, Optional Force As Boolean = True)
  48.     If ShutDownType = lHibernate Or ShutDownType = lSuspend Then
  49.         LowPowerState ShutDownType - 5, Force
  50.     Else
  51.         ShutDownW ShutDownType, Force
  52.     End If
  53. End Sub
  54.  
  55. Private Sub Class_Terminate()
  56.     If Not oldProc = 0 Then SetWindowLong lHwnd, GWL_WNDPROC, oldProc
  57. End Sub
  58.