Welcome Guest.   Make a donation to an author on the site October 26, 2014, 04:36:15 AM  *

Please login or register.
Or did you miss your validation email?


Login with username and password (forgot your password?)
Why not become a lifetime supporting member of the site with a one-time donation of any amount? Your donation entitles you to a ton of additional benefits, including access to exclusive discounts and downloads, the ability to enter monthly free software drawings, and a single non-expiring license key for all of our programs.


You must sign up here before you can post and access some areas of the site. Registration is totally free and confidential.
 
Your Support Funds this Site: View the Supporter Yearbook.
   
   Forum Home   Thread Marks Chat! Downloads Search Login Register  
Pages: [1]   Go Down
  Reply  |  New Topic  |  Print  
Author Topic: A couple small modifications to TrayScreenSaver  (Read 1946 times)
VodkaL
Participant
*
Posts: 1

View Profile Give some DonationCredits to this forum member
« on: February 07, 2010, 12:47:43 AM »

Tell me what you think, and feel free to use it.

Formatted for AutoIt with the GeSHI Syntax Highlighter [copy or print]
  1. ;TrayScreenSaver.ahk
  2. ; Control the screensaver from the tray
  3. ;Skrommel @ 2006
  4.  
  5. #SingleInstance,Force
  6. #Persistent
  7.  
  8. applicationname=TrayScreenSaver
  9.  
  10. Gosub,TRAYMENU
  11. Gosub,ACTIVE
  12.  
  13.  
  14. TRAYMENU:
  15. savers=
  16. Loop,%A_WinDir%\*.scr
  17.  savers=%savers%%A_LoopFileName%`n
  18. Loop,%A_WinDir%\System32\*.scr
  19.  savers=%savers%%A_LoopFileName%`n
  20. StringSplit,savers_,savers,`n
  21. savers_0-=1
  22.  
  23. Menu,Tray,Click,1
  24. Menu,Tray,NoStandard
  25. Menu,Tray,DeleteAll
  26. Menu,Tray,Add,%applicationname%,DOUBLECLICK
  27. Menu,Tray,Add,
  28.  
  29. Menu,savermenu,add,
  30. Menu,tray,add,Saver Menu, :savermenu
  31.  
  32. Loop,%savers_0%
  33. {
  34.  screensaver:=savers_%A_Index%
  35.  Menu,savermenu,Add,%screensaver%,SELECT
  36. }
  37.  
  38. Menu,Tray,Add,
  39. Menu,Tray,Add,Power &Off Monitor,Off
  40. Menu,Tray,Add,&Run,RUN
  41. Menu,Tray,Add,&Enabled,TOGGLE
  42. Menu,Tray,Add,&Settings...,SETTINGS
  43. Menu,Tray,Add,
  44. Menu,Tray,Add,&About...,ABOUT
  45. Menu,Tray,Add,E&xit,EXIT
  46.  
  47. Menu,Tray,Default,%applicationname%
  48. Menu,Tray,Check,&Enabled
  49. Menu,Tray,Tip,%applicationname%
  50.  
  51.  
  52.  
  53. Run,%A_ThisMenuItem% /s
  54.  
  55.  
  56. SINGLECLICK:
  57. SetTimer,SINGLECLICK,Off
  58. clicks=
  59. Gosub,TOGGLE
  60.  
  61.  
  62. DOUBLECLICK:
  63. If clicks=
  64. {
  65.  SetTimer,SINGLECLICK,500
  66.  clicks=1
  67.  Return
  68. }
  69. SetTimer,SINGLECLICK,Off
  70. clicks=
  71. Gosub,RUN
  72.  
  73.  
  74. TOGGLE:
  75. RegRead,active,HKEY_CURRENT_USER,Control Panel\Desktop,ScreenSaveActive
  76. If active=1
  77.  active=0
  78.  active=1
  79. RegWrite,Reg_SZ,HKEY_CURRENT_USER,Control Panel\Desktop,ScreenSaveActive,%active%
  80. Gosub,ACTIVE
  81.  
  82.  
  83. ACTIVE:
  84. RegRead,active,HKEY_CURRENT_USER,Control Panel\Desktop,ScreenSaveActive
  85. If active=1
  86. {
  87.  Menu,Tray,Icon,%applicationname%.exe,1,1
  88.  Menu,Tray,Check,&Enabled
  89. }
  90. {
  91.  Menu,Tray,Icon,%applicationname%.exe,4,4
  92.  Menu,Tray,UnCheck,&Enabled
  93. }
  94.  
  95.  
  96. RegRead,screensaver,HKEY_CURRENT_USER,Control Panel\Desktop,ScrnSave.Exe
  97. IfInString,screensaver,.scr
  98.  Run,%screensaver% /s
  99.  Gosub,SETTINGS
  100.  
  101. Off:
  102. Sleep 1000
  103. SendMessage, 0x112, 0xF170, 2,, Program Manager
  104.  
  105. SETTINGS:
  106. RegRead,screensaver,HKEY_CURRENT_USER,Control Panel\Desktop,ScrnSave.Exe
  107. Run,rundll32.exe desk.cpl`,InstallScreenSaver %screensaver%
  108.  
  109.  
  110. ABOUT:
  111. Gui,99:Destroy
  112. Gui,99:Margin,20,20
  113. Gui,99:Add,Picture,xm Icon1,%applicationname%.exe
  114. Gui,99:Font,Bold
  115. Gui,99:Add,Text,x+10 yp+10,%applicationname% v1.0
  116. Gui,99:Font
  117. Gui,99:Add,Text,y+10,Control the screensaver from the tray
  118. Gui,99:Add,Text,y+5,- Singleclick to enable or disable the screensaver
  119. Gui,99:Add,Text,y+5,- Doubleclick the tray icon to run the default screensaver
  120. Gui,99:Add,Text,y+5,- Run any screensaver from the tray menu
  121. Gui,99:Add,Text,y+5,- Change settings using Settings in the tray menu
  122.  
  123. Gui,99:Add,Picture,xm y+20 Icon5,%applicationname%.exe
  124. Gui,99:Font,Bold
  125. Gui,99:Add,Text,x+10 yp+10,1 Hour Software by Skrommel
  126. Gui,99:Font
  127. Gui,99:Add,Text,y+10,For more tools, information and donations, please visit
  128. Gui,99:Font,CBlue Underline
  129. Gui,99:Add,Text,y+5 G1HOURSOFTWARE,www.1HourSoftware.com
  130. Gui,99:Font
  131.  
  132. Gui,99:Add,Picture,xm y+20 Icon7,%applicationname%.exe
  133. Gui,99:Font,Bold
  134. Gui,99:Add,Text,x+10 yp+10,DonationCoder
  135. Gui,99:Font
  136. Gui,99:Add,Text,y+10,Please support the contributors at
  137. Gui,99:Font,CBlue Underline
  138. Gui,99:Add,Text,y+5 GDONATIONCODER,www.DonationCoder.com
  139. Gui,99:Font
  140.  
  141. Gui,99:Add,Picture,xm y+20 Icon6,%applicationname%.exe
  142. Gui,99:Font,Bold
  143. Gui,99:Add,Text,x+10 yp+10,AutoHotkey
  144. Gui,99:Font
  145. Gui,99:Add,Text,y+10,This tool was made using the powerful
  146. Gui,99:Font,CBlue Underline
  147. Gui,99:Add,Text,y+5 GAUTOHOTKEY,www.AutoHotkey.com
  148. Gui,99:Font
  149.  
  150. Gui,99:Show,,%applicationname% About
  151. hCurs:=DllCall("LoadCursor","UInt",NULL,"Int",32649,"UInt") ;IDC_HAND
  152. OnMessage(0x200,"WM_MOUSEMOVE")
  153.  
  154. 1HOURSOFTWARE:
  155.  Run,http://www.1hoursoftware.com,,UseErrorLevel
  156.  
  157. DONATIONCODER:
  158.  Run,http://www.donationcoder.com,,UseErrorLevel
  159.  
  160. AUTOHOTKEY:
  161.  Run,http://www.autohotkey.com,,UseErrorLevel
  162.  
  163. 99GuiClose:
  164.  Gui,99:Destroy
  165.  OnMessage(0x200,"")
  166.  DllCall("DestroyCursor","Uint",hCur)
  167.  
  168. WM_MOUSEMOVE(wParam,lParam)
  169. {
  170.  Global hCurs
  171.  MouseGetPos,,,,ctrl
  172.  If ctrl in Static10,Static14,Static18
  173.    DllCall("SetCursor","UInt",hCurs)
  174. }
  175.  
  176.  
  177. ExitApp

If you dont have his icons and compile the script, you can just put the script in the same folder as his exe and run the script
VodkaL
« Last Edit: February 07, 2010, 01:02:34 AM by VodkaL » Logged
Pages: [1]   Go Up
  Reply  |  New Topic  |  Print  
 
Jump to:  
   Forum Home   Thread Marks Chat! Downloads Search Login Register  

DonationCoder.com | About Us
DonationCoder.com Forum | Powered by SMF
[ Page time: 0.176s | Server load: 0.23 ]