Messages

1

Skrommel's Software / A couple small modifications to TrayScreenSaver

« on: February 07, 2010, 12:47 AM »

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

Code: AutoIt [Select]

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