آيا ميشه با ويژوال ScreenSavar را از كار انداخت

آيا ميشه با ويژوال ScreenSavar را از كار انداخت

کد:

---

' ***************************************************************************
' * Paste the lines below into a module, and call 'EnableScreenSaver' with  *
' * a FALSE parameter to disable the screen saver, or TRUE to re-enable it  *
' ***************************************************************************
Private Const SPI_SETSCREENSAVEACTIVE = 17

Private Declare Function SystemParametersInfo Lib "user32" & _
  Alias "SystemParametersInfoA" (ByVal uAction As Long,  & _
  ByVal uParam As Long,  ByVal lpvParam As Long,  & _
  ByVal fuWinIni As Long) As Long



Public Function EnableScreenSaver(ByVal bStatus As Boolean) As Boolean
  Dim lActiveFlag As Long
  Dim lRetval      As Long

  lActiveFlag = IIf(bStatus, 1, 0)
  lRetval = SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, & _
                                lActiveFlag, 0, 0)
 
  IF lRetval > 0 THEN
    EnableScreenSaver = TRUE
  ELSE
    EnableScreenSaver = FALSE
  END IF

End Function

---

دوست عزيز اگه لطف كني و خطي را كه با آن اين ماژول را فراخواني مي كنند را بنويسي ممنون ميشم


از اين خطها من اين نتيجه ها را گرفتم كه هر كدام از آن ها Error مي دادن

' ************************************************** *************************
' * Paste the lines below into a module, and call 'EnableScreenSaver' with *
' * a FALSE parameter to disable the screen saver, or TRUE to re-enable it *
' ************************************************** *************************



EnableScreenSaver = False
و
call EnableScreenSaver = False

مرسي

کد:

---

Option Explicit
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" _
(ByVal uAction As Long, ByVal uParam As Long, _
ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long

Const SPI_GETSCREENSAVEACTIVE=16
Const SPI_SETSCREENSAVEACTIVE=17
Const SPIF_SENDWININICHANGE=&H2

Public Sub EnableScreenSaver(enable As Boolean)

SystemParametersInfo SPI_SETSCREENSAVEACTIVE, enable, 0&, SPIF_SENDWININICHANGE

End Sub

---

دانلود كد:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

مرسي از توجه دوستان