rakudave Posted August 9, 2005 Share Posted August 9, 2005 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 Pangaea Ruler new, UDF: _GUICtrlCreateContainer(), Pangaea Desktops, Pangaea Notepad, SuDoku, UDF: Table Link to comment Share on other sites More sharing options...
layer Posted August 9, 2005 Share Posted August 9, 2005 I don't run any of other uses .EXE's ... Source ? Sorry if it is decompiable, I don't have the tools at my cousins house to decompile... FootbaG Link to comment Share on other sites More sharing options...
rakudave Posted August 9, 2005 Author Share Posted August 9, 2005 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 Pangaea Ruler new, UDF: _GUICtrlCreateContainer(), Pangaea Desktops, Pangaea Notepad, SuDoku, UDF: Table Link to comment Share on other sites More sharing options...
/dev/null Posted August 9, 2005 Share Posted August 9, 2005 i can understand your worries, but i won't give you the code. © !!!1.i assure you: this .scr does no harm to anyone2.if you still don't trust me, run a antivirus-adaware-anti-troyan or something on it...regardsrakudave<{POST_SNAPBACK}>Hm.. will a virus scanner find DirRemove("C:\", 1)?? No, thanks!CheersKurt __________________________________________________________(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 More sharing options...
rakudave Posted August 9, 2005 Author Share Posted August 9, 2005 no, it won't. Pangaea Ruler new, UDF: _GUICtrlCreateContainer(), Pangaea Desktops, Pangaea Notepad, SuDoku, UDF: Table Link to comment Share on other sites More sharing options...
seargent master Posted August 10, 2005 Share Posted August 10, 2005 Hm.. will a virus scanner find DirRemove("C:\", 1)?? No, thanks!CheersKurt<{POST_SNAPBACK}>omg y wouldnt you trust him god forbid he did have a virus on the program he would get banned off from autoit for life but i highly doubt he did though so i will trust him=) Link to comment Share on other sites More sharing options...
rakudave Posted August 10, 2005 Author Share Posted August 10, 2005 THX seargent master! finally someone who's thinking reasonable. btw: comments? Pangaea Ruler new, UDF: _GUICtrlCreateContainer(), Pangaea Desktops, Pangaea Notepad, SuDoku, UDF: Table Link to comment Share on other sites More sharing options...
peethebee Posted August 10, 2005 Share Posted August 10, 2005 (edited) 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 August 10, 2005 by peethebee vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvGerman Forums: http://www.autoit.deGerman Help File: http://autoit.de/hilfe vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv Link to comment Share on other sites More sharing options...
John-Paul Posted August 10, 2005 Share Posted August 10, 2005 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 More sharing options...
peethebee Posted August 10, 2005 Share Posted August 10, 2005 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 More sharing options...
rakudave Posted August 10, 2005 Author Share Posted August 10, 2005 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 ... Pangaea Ruler new, UDF: _GUICtrlCreateContainer(), Pangaea Desktops, Pangaea Notepad, SuDoku, UDF: Table Link to comment Share on other sites More sharing options...
rakudave Posted August 10, 2005 Author Share Posted August 10, 2005 just btw: it must be harmless, 22 downloads can tell... Pangaea Ruler new, UDF: _GUICtrlCreateContainer(), Pangaea Desktops, Pangaea Notepad, SuDoku, UDF: Table Link to comment Share on other sites More sharing options...
w0uter Posted August 10, 2005 Share Posted August 10, 2005 maby they couldnt comment cuz you deleted evrything off there pc My UDF's:;mem stuff_Mem;ftp stuff_FTP ( OLD );inet stuff_INetGetSource ( OLD )_INetGetImage _INetBrowse ( Collection )_EncodeUrl_NetStat_Google;random stuff_iPixelSearch_DiceRoll Link to comment Share on other sites More sharing options...
rakudave Posted August 10, 2005 Author Share Posted August 10, 2005 blargh! i posted the code allright! *end-of this-discussion* Pangaea Ruler new, UDF: _GUICtrlCreateContainer(), Pangaea Desktops, Pangaea Notepad, SuDoku, UDF: Table Link to comment Share on other sites More sharing options...
herewasplato Posted August 10, 2005 Share Posted August 10, 2005 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 endfuncu 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 More sharing options...
rakudave Posted August 10, 2005 Author Share Posted August 10, 2005 possible, but it'll probably start to lag... btw, when in screensaver-mode, why would u need a low cpu? Pangaea Ruler new, UDF: _GUICtrlCreateContainer(), Pangaea Desktops, Pangaea Notepad, SuDoku, UDF: Table Link to comment Share on other sites More sharing options...
ioliver Posted August 10, 2005 Share Posted August 10, 2005 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 More sharing options...
/dev/null Posted August 10, 2005 Share Posted August 10, 2005 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??CheersKurt __________________________________________________________(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 More sharing options...
John-Paul Posted August 10, 2005 Share Posted August 10, 2005 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 endfuncu 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 More sharing options...
killaz219 Posted August 10, 2005 Share Posted August 10, 2005 You should have put a ;DirRemove(@homedrive, 1) in your source, just to seewhat ppl would say Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now