ممانعت از اسکرین سیور

[Hossis]

چطور میشه از اجرای اسکرین سیور یا هر رویداد سیستمی مشابه جلوگیری کرد؟؟

[biyarjomandi]

این کد رو امتحان کن :

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Integer, ByVal uParam As Integer, ByVal lpvParam As Integer, ByVal fuWinIni As Integer) As Integer
Public Function ToggleScreenSaverActive(ByRef Active As Boolean) As Boolean
Dim lActiveFlag As Integer
Dim retvaL As Integer

lActiveFlag = IIf(Active, 1, 0)
retvaL = SystemParametersInfo(17, lActiveFlag, 0, 0)
ToggleScreenSaverActive = retvaL > 0
End Function


' On
ToggleScreenSaverActive(True)


' Off
ToggleScreenSaverActive(False)

[biyarjomandi]

می تونی از تو رجیستری هم غیر فعالش کنی :
Dim regKey As RegistryKey
Dim regVal As String regKey = Registry.CurrentUser.OpenSubKey("Control Panel\Desktop", True)
regVal = regKey.GetValue("ScreenSaveActive")
If regVal = 1 Then
regKey.SetValue("ScreenSaveActive", "0")
End If
regKey.Close()