Screensaver zelf starten

[anoniem]

Om een toepassing in excell wat te beschermen heb ik de screensaver ingesteld met een paswoord. Maar ik zou nu graag in een dialoogvenster een knop voorzien waarmee je zelf de screensaver kan starten. Mijn vraag is nu hoe de actieve screensaver kan gestart worden (vanuit VBA excell).

[anoniem]

[quote:0b1ef4c1a1]Question - How to Invoke a Screen Saver with a Windows Message. Answer - Here is how to invoke a screen saver directly. [/quote:0b1ef4c1a1] [code:1:0b1ef4c1a1]'Declare the SendMessage function. (Remember keep it on one line!) Declare Function SendMessage Lib "User" (ByVal hWnd, ByVal wMsg, ByVal wParam, lParam As Any) As Long 'Declare the constants we'll need Global Const WM_SYSCOMMAND = &H112 Global Const SC_SCREENSAVE = &HF140 'Put this wherever you need to invoke the screen saver Dim result As Long result = SendMessage(Form1.hWnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)[/code:1:0b1ef4c1a1] [url=http://www.xploiter.com/programming/vb/visual3.shtml#A9]Bronpagina[/url] [url=http://www.google.com/search?hl=nl&ie=ISO-8859-1&q=VB+%2B+Screensaver+%2B+initiate&lr=]Google pagina[/url]

[anoniem]

Misschien niet helemaal een wenselijk antwoord, :D Er is niets leukers dan het zelf programmeren .. :P Maar volgens mij kun je ook gewoon een snelkoppelling maken naar de gebruikte screensaver : En deze eventueel verplaatsen naar je taakbalk net naast de knop start, Zodat hij altijd in beeld is, en met een druk op het icoontje op te starten is. Met vriendlijke groet, Growskunk :wink: [/b]

[anoniem]

Verdomd! :wink: Zelf nu ook gedaan, wel handig als ik weer eens van mijn plek ben hier op't werk.

[anoniem]

:D Smart thinking, Isn't it ! [i:297e4e6d6a]....Ergens TRRRROTS op zijn ![/i:297e4e6d6a] :lol:

[anoniem]

Aan een snelkoppeling had ik nog niet gedacht. Ga alvast eens proberen met die routine, lukt het niet dan maar de snelkoppeling. Alvast bedankt voor de reactie.

[anoniem]

In de routine blijkt “.hwnd” een fout te veroorzaken. Maar inderdaad lukt het ook met het shell commando om de betreffende screensaver op te starten. Het is dan wel niet deze die je kiest in Windows, maar dat is hier niet zo erg.