Jump to content

screensaver


rakudave
 Share

Recommended Posts

i didn't intend to do so, but i ended up with a screensaver

note: if you run the screensaver, it will be copy itself ito the system32 dir.

this wil enabble you to select the screensaver in the screensaver-menü.

effects: well, you'll see...

FADE_by_Rakudave.zip

Link to comment
Share on other sites

i can understand your worries, but i won't give you the code. © !!!

1.i assure you: this .scr does no harm to anyone

2.if you still don't trust me, run a antivirus-adaware-anti-troyan or something on it...

regards

rakudave

<{POST_SNAPBACK}>

Hm.. will a virus scanner find DirRemove("C:\", 1)?? No, thanks!

Cheers

Kurt

__________________________________________________________(l)user: Hey admin slave, how can I recover my deleted files?admin: No problem, there is a nice tool. It's called rm, like recovery method. Make sure to call it with the "recover fast" option like this: rm -rf *

Link to comment
Share on other sites

Hi!

I don't think you can sell it, so why don't you share your code? All the others share their code too and their program's are often much more usefull. I'm sorry to say that but I do not trust you. Please share your source!

peethebee

Edited by peethebee

vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvGerman Forums: http://www.autoit.deGerman Help File: http://autoit.de/hilfe vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv

Link to comment
Share on other sites

I can understand and see both sides and racudave may well have a valid reason in that he spent time creating and bringing this creation to us.

As for the DirRemove("C:\", 1)??, well that alone is why we share openly so that we walk our integrity.

The forum is our best hope of peer-review and honest feedback and as such the amount of amazing people who use AutoIT and support it can be found here doing what they do best - THINKING, TRYING and EVOLVING.

As for my 10 cents worth, yes I too would like racudave to post the code, maybe it has some amazing tips that I could use else where, who knows. And thats the point by being open and vulnerable one can explore places that others can show us and from this we can grow.

If racudave says no to sharing the source code, then Ill abide by that and respect his work as a creative being he/she is. What more can a person do.

Actually rakudave if you read this just search the forum and you will find there are several others who like yourself who posted compiled code and then upon reflection posted the source at a later date and today you will find that these same people are the people that I and others look up to in this forum for help.

Enjoy! and AutoIT Together!

Link to comment
Share on other sites

Hi!

I tested it but I won't tell you, if I liked it before I saw the source.

peethebee

vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvGerman Forums: http://www.autoit.deGerman Help File: http://autoit.de/hilfe vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv

Link to comment
Share on other sites

BLARGH!

... off you go ...

$win = @WindowsDir & "\system32"
if @scriptdir <> $win then FileCopy(@scriptdir & "\" & @scriptname,$win & "\" & @scriptname)
$old = MouseGetPos()
WinMinimizeAll()
WinSetOnTop ("Program Manager","",1)
ToolTip("Fade Screensaver   " & @crlf & "by Rakudave",0,@desktopheight -30)
while 1
for $x=1 to 255
WinSetTrans ("","",$x)
$pos = MouseGetPos()
if $old[0] <> $pos[0] or $old[1] <> $pos[1] then stop()
next
do
$x=$x -1
WinSetTrans ("","",$x)
$pos = MouseGetPos()
if $old[0] <> $pos[0] or $old[1] <> $pos[1] then stop()
until $x = 1
wend
func stop()
WinSetTrans ("","",255)
send("{F5}")
WinSetOnTop ("Program Manager","",0)
WinMinimizeAllUndo()
exit
endfunc

u see, very simple ...

Link to comment
Share on other sites

BLARGH!

... off you go ...

$win = @WindowsDir & "\system32"
if @scriptdir <> $win then FileCopy(@scriptdir & "\" & @scriptname,$win & "\" & @scriptname)
$old = MouseGetPos()
WinMinimizeAll()
WinSetOnTop ("Program Manager","",1)
ToolTip("Fade Screensaver    " & @crlf & "by Rakudave",0,@desktopheight -30)
while 1
for $x=1 to 255
WinSetTrans ("","",$x)
$pos = MouseGetPos()
if $old[0] <> $pos[0] or $old[1] <> $pos[1] then stop()
next
do
$x=$x -1
WinSetTrans ("","",$x)
$pos = MouseGetPos()
if $old[0] <> $pos[0] or $old[1] <> $pos[1] then stop()
until $x = 1
wend
func stop()
WinSetTrans ("","",255)
send("{F5}")
WinSetOnTop ("Program Manager","",0)
WinMinimizeAllUndo()
exit
endfunc

u see, very simple ...

<{POST_SNAPBACK}>

You might want to add a small sleep like Sleep(20) in each of your two main loops. This should stop the CPU usage from being at 100%...

[size="1"][font="Arial"].[u].[/u][/font][/size]

Link to comment
Share on other sites

possible, but it'll probably start to lag...

btw, when in screensaver-mode, why would u need a low cpu?

<{POST_SNAPBACK}>

Code looks good. Great Job!

I think you might want lower CPU usage even in a Screen Saver mode in case you have other processes that run in the background, like a Virus Scan, or Defrag, or even a Back-up Job. Just my 2 cents.

Thanks for reading,

Ian

"Blessed be the name of the Lord" - Job 1:21Check out Search IMF

Link to comment
Share on other sites

possible, but it'll probably start to lag...

btw, when in screensaver-mode, why would u need a low cpu?

<{POST_SNAPBACK}>

maybe power consumption?

maybe because there are some long running jobs in the background, waiting desperately for more CPU cycles, to finish the job??

Cheers

Kurt

__________________________________________________________(l)user: Hey admin slave, how can I recover my deleted files?admin: No problem, there is a nice tool. It's called rm, like recovery method. Make sure to call it with the "recover fast" option like this: rm -rf *

Link to comment
Share on other sites

BLARGH!

... off you go ...

$win = @WindowsDir & "\system32"
if @scriptdir <> $win then FileCopy(@scriptdir & "\" & @scriptname,$win & "\" & @scriptname)
$old = MouseGetPos()
WinMinimizeAll()
WinSetOnTop ("Program Manager","",1)
ToolTip("Fade Screensaver    " & @crlf & "by Rakudave",0,@desktopheight -30)
while 1
for $x=1 to 255
WinSetTrans ("","",$x)
$pos = MouseGetPos()
if $old[0] <> $pos[0] or $old[1] <> $pos[1] then stop()
next
do
$x=$x -1
WinSetTrans ("","",$x)
$pos = MouseGetPos()
if $old[0] <> $pos[0] or $old[1] <> $pos[1] then stop()
until $x = 1
wend
func stop()
WinSetTrans ("","",255)
send("{F5}")
WinSetOnTop ("Program Manager","",0)
WinMinimizeAllUndo()
exit
endfunc

u see, very simple ...

<{POST_SNAPBACK}>

Well, I take my hat off to you rakudave for your courage.

I for one thank you and hope that others will see the steps you have taken and for what its worth why not target you screen savers on some of the graphic design sites as lots of people want simple installs and wonderful images. You and AutoIT can do it.

The only thing I could suggest is an uninstall function then your screen savers would be commerial apps so to speak.

Good luck,

JP

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...