Vraag & Antwoord

Programmeren

Screensaver zelf starten

6 antwoorden
  • 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).
  • [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]
  • 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]
  • Verdomd! :wink: Zelf nu ook gedaan, wel handig als ik weer eens van mijn plek ben hier op't werk.
  • :D Smart thinking, Isn't it ! [i:297e4e6d6a]....Ergens TRRRROTS op zijn ![/i:297e4e6d6a] :lol:
  • 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.

Beantwoord deze vraag

Weet jij het antwoord op deze vraag? Registreer of meld je aan met je account

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.