Hi everbody!
can anyone tell me if it is possible to create simple screensavers in VB,and if so how do you actually install AS a screensaver?
Thanks in advance
Printable View
Hi everbody!
can anyone tell me if it is possible to create simple screensavers in VB,and if so how do you actually install AS a screensaver?
Thanks in advance
Research !
http://www.planet-source-code.com
i know that if you rename your program to .scr and put it in the windows directory then you can use it as a screensaver but i don't know how you put the code in for a settings button.
Merlin ¿:confused:
Make a new project with 3 forms and a module.
rename forms to: Saver Settings & Changepass
In the project properties, set the startup object to "Sub Main"
In the module put this:
That is just the basics of a screen saver!Code:Sub Main()
If App.PrevInstance Then ' If already running, Exit.
End
Else
If InStr(Command$, "/c") = 1 Then 'Show the Settings Dialog
settings.show 1
ElseIf InStr(Command$, "/a") = 1 Then 'Password button
changepass.show 1
ElseIf InStr(Command$, "/s") = 1 or InStr(Command$, "/S") = 1 Then 'Show the screen saver!
saver.Show 1
Else
End
End If
End If
End Sub
Some other code to find that every screen saver needs:[list=1][*] Disable Control-Alt-Delete![*] Disable Start Button[*] Disable Control-Escape[*] Disable Alt-Tab[*] Disable Alt-F4[*] Make mousemove exit saver[*] Make keypress exit saver[*] Add Password Support![*] A GOOD IDEA!! (I have seen so many bad ones)[/list=1]
Oh yea.. I forgot, when Saving as an exe.. rename "EXE" to "SCR" (e.g. "TIGHT.SCR") and after compiled, right click on the file from explorer, and hit install.
Hope This Helped!
Any more questions? E-mail me. LaTerZ
[Edited by da404LewZer on 11-12-2000 at 08:09 PM]
What's the API call to get Windows to show your screen saver in the Preview box?
Thanks,
Josh
umm.. i will have to get back to you at a later time, cuz i'm kinda in school right now.. hehe, and i dont remember all the code off the top of my head.. i'll have to go throught my "vault" of code when i get home, but i will get back to you soon.
Be Patient!