anoniem Geplaatst: 17 september 2002 Delen Geplaatst: 17 september 2002 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 Link naar reactie
anoniem Geplaatst: 18 september 2002 Auteur Delen Geplaatst: 18 september 2002 [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] Quote Link naar reactie
anoniem Geplaatst: 18 september 2002 Auteur Delen Geplaatst: 18 september 2002 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] Quote Link naar reactie
anoniem Geplaatst: 18 september 2002 Auteur Delen Geplaatst: 18 september 2002 Verdomd! :wink: Zelf nu ook gedaan, wel handig als ik weer eens van mijn plek ben hier op't werk. Quote Link naar reactie
anoniem Geplaatst: 18 september 2002 Auteur Delen Geplaatst: 18 september 2002 :D Smart thinking, Isn't it ! [i:297e4e6d6a]....Ergens TRRRROTS op zijn ![/i:297e4e6d6a] :lol: Quote Link naar reactie
anoniem Geplaatst: 18 september 2002 Auteur Delen Geplaatst: 18 september 2002 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. Quote Link naar reactie
anoniem Geplaatst: 18 september 2002 Auteur Delen Geplaatst: 18 september 2002 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. Quote Link naar reactie
Aanbevolen berichten
Om een reactie te plaatsen, moet je eerst inloggen