screensaver apply modify

[silvano]

hello,

I have a little problem...

How I can apply the modify that screensaver show after one minutes before launch script setting?

tks,

this is the code

expandcollapse popup

$text = InputBox("TEST ","Insert text")

If @error Then 
    $sq = "test"
Else
    $sq = $text
    EndIf

$key = "HKEY_CURRENT_USER\Software\Microsoft\Screensavers\Text3D"
$key2 = "HKEY_CURRENT_USER\Software\Microsoft\Screensavers\Text3D\Screen 1"


RegWrite($key,"AllScreensSame","REG_DWORD",0)
RegWrite($key,"SurfaceType","REG_DWORD",1)
RegWrite($key,"Specular","REG_DWORD",1)
RegWrite($key,"SurfaceColor","REG_DWORD","7829367")
RegWrite($key,"CustomTexture","REG_SZ","")
RegWrite($key,"CustomEnvironment","REG_SZ","")
RegWrite($key,"UseCustomColor","REG_DWORD",0)
RegWrite($key,"UseCustomTexture","REG_DWORD",0)
RegWrite($key,"UseCustomEnvironment","REG_DWORD",0)
RegWrite($key,"MeshQuality","REG_DWORD","500")
RegWrite($key,"Size","REG_DWORD","10")
RegWrite($key,"RotationSpeed","REG_DWORD","10")
RegWrite($key,"RotationStyle","REG_DWORD",1)
RegWrite($key,"DisplayString","REG_SZ",$sq)
RegWrite($key,"DisplayTime","REG_DWORD",0)
RegWrite($key,"FontWeight","REG_DWORD","700")
RegWrite($key,"FontHeight","REG_DWORD","4294967200")
RegWrite($key,"FontItalic","REG_DWORD",0)
RegWrite($key,"FontCharSet","REG_DWORD","16909056")
RegWrite($key,"FontPitchFamily","REG_DWORD","1627411490")
RegWrite($key,"FontFace","REG_SZ","Tahoma")


RegWrite($key2,"Leave Black","REG_DWORD",0)
RegWrite($key2,"Disable Hardware","REG_DWORD",0)
RegWrite($key2,"Width","REG_DWORD",0)
RegWrite($key2,"Height","REG_DWORD",0)
RegWrite($key2,"Format","REG_DWORD",0)

; now I wuold like to apply modify and run screensaver after one minute...

[silvano]

up please...

[The Kandie Man]

How I can apply the modify that screensaver show after one minutes before launch script setting?

I would assume nobody has replied because we don't understand want you mean. I, for example, don't know what you mean by that sentence. Do you want to run the screensaver, wait one minute, and then change its settings in the registry? Edited December 15, 2006 by The Kandie Man

[silvano]

sorry for my bad english,

this script set screensaver same 3D text, text, font, time to run... etc...

but the problem is that scrennsaver not run after one minute, because

I don't must set 'apply' (similar desktop right click --> properties --> display Properties' --> screen Saver --> (select)--> apply button)

How I to apply immediately the change after script run?

[silvano]

any idea!?

up please

[James]

Sleep(1000000)

USe the sleep function maybe?

[martin]

any idea!?

up please

I think you need to set the registry value for the screen saver time delay. Setting the registry values applies the changes, there is no need for any 'apply' method.

HKEY_USERS\.DEFAULT\Control Panel\Desktop\ScreenSaveTimeOut

This is the time in seconds, the default is 600, you need to set it to 60.

[silvano]

I think you need to set the registry value for the screen saver time delay. Setting the registry values applies the changes, there is no need for any 'apply' method.

HKEY_USERS\.DEFAULT\Control Panel\Desktop\ScreenSaveTimeOut

This is the time in seconds, the default is 600, you need to set it to 60.

the time delay is already set by my script, but the modify start/apply only after reboot machine but the screen saver not start...

There is not way to apply modify immediately? like Call dll, or other?

this is my compelte script:

thanks

expandcollapse popup

$key = "HKEY_CURRENT_USER\Software\Microsoft\Screensavers\Text3D"
$key2 = "HKEY_CURRENT_USER\Software\Microsoft\Screensavers\Text3D\Screen 1"
$key3 = "HKEY_CURRENT_USER\Control Panel\Desktop"

FileInstall("C:\cdftp\test.bmp", "C:\test.bmp")

RegWrite($key,"AllScreensSame","REG_DWORD",0)
RegWrite($key,"SurfaceType","REG_DWORD",1)
RegWrite($key,"Specular","REG_DWORD",1)
RegWrite($key,"SurfaceColor","REG_DWORD","7829367")
RegWrite($key,"CustomTexture","REG_SZ","")
RegWrite($key,"CustomEnvironment","REG_SZ","")
RegWrite($key,"UseCustomColor","REG_DWORD",0)
RegWrite($key,"UseCustomTexture","REG_DWORD",0)
RegWrite($key,"UseCustomEnvironment","REG_DWORD",0)
RegWrite($key,"MeshQuality","REG_DWORD","500")
RegWrite($key,"Size","REG_DWORD","10")
RegWrite($key,"RotationSpeed","REG_DWORD","10")
RegWrite($key,"RotationStyle","REG_DWORD",1)
RegWrite($key,"DisplayString","REG_SZ","My text here")
RegWrite($key,"DisplayTime","REG_DWORD",0)
RegWrite($key,"FontWeight","REG_DWORD","700")
RegWrite($key,"FontHeight","REG_DWORD","4294967200")
RegWrite($key,"FontItalic","REG_DWORD",0)
RegWrite($key,"FontCharSet","REG_DWORD","16909056")
RegWrite($key,"FontPitchFamily","REG_DWORD","1627411490")
RegWrite($key,"FontFace","REG_SZ","Tahoma")

RegWrite($key2,"Leave Black","REG_DWORD",0)
RegWrite($key2,"Disable Hardware","REG_DWORD",0)
RegWrite($key2,"Width","REG_DWORD",0)
RegWrite($key2,"Height","REG_DWORD",0)
RegWrite($key2,"Format","REG_DWORD",0)
;RegWrite($key2,"Adapter ID"=hex:3e,1e,b7,d7,6c,43,cf,11,47,65,78,20,b4,c2,cb,35
RegWrite($key3,"ScreenSaveTimeOut","REG_SZ","60")
RegWrite($key3,"ScreenSaveActive","REG_SZ","1")
RegWrite($key3,"Wallpaper","REG_SZ","C:\test.bmp")

Edited December 19, 2006 by silvano

[martin]

Yes you're right, I think you would normally have to log out then in again to make the changes apply. I'm afraid I don't know the way round this.

Maybe you should set the values using SystemParametersInfo. Microsoft suggests using this to progammatically change such things.

There are examples of its use in the forum.

Edited December 19, 2006 by martin

[silvano]

Yes you're right, I think you would normally have to log out then in again to make the changes apply. I'm afraid I don't know the way round this.

Maybe you should set the values using SystemParametersInfo. Microsoft suggests using this to progammatically change such things.

There are examples of its use in the forum.

thanks martin!

this is solution for wallpaper and work it!

DllCall("User32.dll", "int", "SystemParametersInfo", "int", 20, "int", 0, "string", "path img", "int", 0x01)

but I have not search result for screen saver apply solution.. :-(

[martin]

thanks martin!

this is solution for wallpaper and work it!

DllCall("User32.dll", "int", "SystemParametersInfo", "int", 20, "int", 0, "string", "path img", "int", 0x01)

but I have not search result for screen saver apply solution.. :-(

I think this works

$DelayTime = 20;20sec

DllCall("user32.dll", "int", "SystemParametersInfo", "int", 15, "int", $DelayTime , "int", 0, "int", 2)

where 15 is the value for SPI_SETSCREENSAVETIMEOUT

Edited December 19, 2006 by martin

[silvano]

I think this works

$DelayTime = 20;20sec

DllCall("user32.dll", "int", "SystemParametersInfo", "int", 15, "int", $DelayTime , "int", 0, "int", 2)

where 15 is the value for SPI_SETSCREENSAVETIMEOUT

thanks martin but don't work it :-(

I have used Run("control.exe desk.cpl") with WinWait func and Send() func

but this is not a pretty solution...

[martin]

thanks martin but don't work it :-(

I have used Run("control.exe desk.cpl") with WinWait func and Send() func

but this is not a pretty solution...

I've tried

DllCall("user32.dll", "int", "SystemParametersInfo", "int", 15, "int", $DelayTime , "int", 0, "int", 2)

with values from 20 to 120 and it works fine for me.

Provided I use a vlue > 60 I can see the change by selecting screensaver in desktop properties. Less than 60 and I can see the effect by just waiting for the time.

Are you sure it doesn't work for you?

[silvano]

I've tried

DllCall("user32.dll", "int", "SystemParametersInfo", "int", 15, "int", $DelayTime , "int", 0, "int", 2)

with values from 20 to 120 and it works fine for me.

Provided I use a vlue > 60 I can see the change by selecting screensaver in desktop properties. Less than 60 and I can see the effect by just waiting for the time.

Are you sure it doesn't work for you?

yes, don't work

I used value like 20, 60, 100, 120 but without results...

in the screensaver desktop properties don't watch the setting DllCall change.

Don't worry... is only for little play. thank a lot